Word、Excel、PPT高级应用：活动对象

Windows是一个多任务的系统，在使用Office时，我们可以同时打开多个Office文档，例如同时打开多个Word文档、多个Excel工作簿或者多个PowerPoint演示文稿。但是，只有其中的一个文档、工作簿或演示文稿以及其中的具体的窗口、对象是活动的。

在确定活动对象的时候，Active前缀和Selection对象（选中的对象）起到重要作用。

对于Word，一次只有一个文档是活动的，其中也只有一个窗口是活动的。在VBA中分别被定为对象“ActiveDocument”“ActiveWindow”，而当前位置则被定为对象“ActiveWindow. Selection”。例如，下列代码返回Word文档选中文字的第一个字符（或者当前位置之后的第一个字符）。

ActiveWindow.Selection.Characters(1)

对于Excel，同样一次只有一个工作簿是活动的，其中也只有一个工作表是活动的。而活动的工作表中只有一个单元格是活动的，分别被定为对象“ActiveWorkbook”“ActiveSheet”和“ActiveCell”。被选中的单元格区域为“ActiveWindow.RangeSelection”对象。

可见，上一节添加工作表的操作，在每一个工作表对象之前，实际上是省略了ActiveWorkbook对象引用的。省略后，当然就是操作当前工作簿。再例如，下列代码第一行返回当前工作表的名称，第二行则返回当前窗口中选中区域单元格的个数。

ActiveSheet.Name

ActiveWindow.RangeSelection.Count

假设当前打开的是名为“9月销售情况”的工作簿，其中只有一个名为“销售”的工作表，下列任意一行代码都引用这个工作表：(www.xing528.com)

ActiveSheet

ActiveWorkbook.ActiveSheet

Workbooks(1).Sheets(1)

Workbooks(1).Worksheets(1)

Workbooks("9月销售情况.xlsx").Worksheets("销售")

当然，我们还可以在上述代码前加上应用限定词“Application.”。

对于PowerPoint，与Word类似，一次只有一个演示文稿是活动的，其中也只有一个窗口是活动的，分别被定为对象“ActivePresentation”“ActiveWindow”。而当前幻灯片不是ActiveSlide，而是“ActiveWindow.Selection.SlideRange(1)”对象，即选中的一组幻灯片对象中的第一张。