Word中常用的VBA对象包括Application对象、Document对象、Range对象、Selection对象、Paragraph对象等。
1.Application对象
Word的Application对象就是Word应用程序本身,为Word中的顶级对象[1]。该对象具有丰富的属性和方法,这些属性包括Word本身的外观、路径、用户名等。
(1)Word中Application对象的属性与说明见表24-1:
表24-1 Word中Application对象的属性与说明
(2)常用的方法有:
Application.ChangeFileOpenDirectory方法:改变打开文档的文件夹。
下列代码将打开文件的路径从“Options.DefaultFilePath”改到指定文件夹:
Application.ChangeFileOpenDirectory "C:\Documents"
Application.PrintOut方法:打印当前文件。
下列代码打印当前文档中的当前页:
Application.PrintOut Range:= wdPrintCurrentPage
下列代码打印活动窗口中文档的前三页:
Application.ActiveWindow.PrintOut Range:= wdPrintFromTo, From:="1", To:="3"
2.Documents/Document对象
Documents对象为Word 中在当前打开的所有Document对象(文档对象)的集合。
Document代表一个文档,是Documents集合的一个成员。常常使用对象ActiveDocument。
(1)Documents/Document对象的属性与说明见表24-2:
表24-2 Word中Documents/Document对象的常用属性与说明
(2)相关的说明与常用的事件:
Documents.Activate:激活指定的文档。
下列代码,激活名为“内容控件.docx”的文档:
Documents("内容控件.docx").Activate
下列代码,激活索引为“1”的文档:
Documents.Item(1).Activate
Documents.Open打开指定文档并将其添加到Documents集合中。
下列代码以只读模式打开指定文件夹下的文档“申请表.docx”:
Documents.Open FileName:="C:\MyDocs\申请表.docx”, ReadOnly:=True
Document_Close事件:在文档关闭时发生。
下列代码,在文档关闭时,在文件服务器上存储该文档副本:
Document_Open事件:在文档打开时发生。
Document_New事件:在新建文档时发生。
3.Paragraphs/Paragraph对象
Paragraph对象代表所选的内容(Selection对象)、范围(Range对象)或文档(Document对象)中的一个段落。Paragraphs为所选内容(Selection对象)、范围(Range对象)或文档(Document对象)中的Paragraph对象(段落对象)的集合。
段落对象(Paragraph对象)是段落集合(Paragraphs)的成员。Paragraphs对象含所选内容、范围或文档中的所有段落。用“Paragraphs(index)”来表示某段落对象,“index”为索引号。
使用Paragraphs/Paragraph对象时往往要加前缀“Selection.”或者“ActiveDocument.”来标识段落集/ 段落的位置。具体属性应有前缀“Paragraphs(index)”来表示某个段落。(1)Paragraphs/Paragraph对象的属性与说明见表24-3:
表24-3 Word中Paragraphs/Paragraph对象的常用属性与说明
(www.xing528.com)
例如,下列代码分别返回被选中内容第二段的段落级别和文本内容:
Selection.Paragraphs(2).OutlineLevel
Selection.Paragraphs(2).Range.Text
例如,下列代码将选中段落设为左对齐、双倍行距:
(2)常用的方法有:
Paragraphs.Add方法:在Paragraphs集后新增一个段落。
Paragraphs.CloseUp方法:清除指定段落前的段落间距。
Paragraphs.DecreaseSpacing/IncreaseSpacing方法:以6磅的幅度缩减(增加)段前、段后间距。
Paragraphs.IndentCharWidth方法:按字符数指定段落缩进。
Paragraphs.IndentFirstLineCharWidth方法:按字符数指定段落首行缩进。
Paragraphs.InsertParagraphAfter方法:在所选段落后增加一个段落。
Paragraphs.InsertParagraphBefore方法:在所选段落前增加一个段落。
Paragraphs.OpenUp方法:设置段落12磅的段前间距。
Paragraphs.Outdent方法:删除段落一个级别的缩进。
Paragraphs.OutLineDemote方法:降低一个段落级别。
Paragraphs.OutLineDemoteToBody方法:将段落级别降为正文。
Paragraphs.Reset方法:删除段落由手工添加的格式,恢复到段落所选样式的格式。
4.Range对象
Range对象为文档中的一个连续范围,每一个Range对象由起始(Start)和终止(End)字符位置定义。一般使用Range对象将文档中的一个区域提取出来以作处理。
例如,下列代码将活动文档的前10个字符的字体加粗:
5.Sections/Section对象
Section表示选中的内容、范围或文档中的一节。而Sections为Section的集合。
下列代码更改活动文档中第一节的左、 右页边距:
6.Selection对象
Selection表示文档中被选中(或突出显示)区域,或者代表插入点(如果未选择文档中的任何内容)。每个文档窗格只能有一个Selection对象,并且在整个应用程序中只能有一个活动的Selection对象。
与Range对象不同,Selection对象代表的选定内容既可以是文档中的一个区域,也可以仅仅为一个插入点。表24-4中的属性都应包含前缀“Selection.”,用以表示选中区域。
(1)Selection对象的属性与说明见表24-4:
表24-4 Word中Selection对象的属性与说明
(2)常用的方法有:
Selection.Copy方法:复制到剪贴板。
Selection.CopyAsPicture方法:复制为一个图片。
Selection.CreateTextbox方法:创建一个文本框,将所选内容放入。
Selection.Cut方法:将选定内容剪切到剪贴板中。
Selection.Delete方法:删除选定内容。
Selection.InsertAfter方法:在选定内容后插入指定文字。
Selection.InsertBefore方法:在选定内容前插入指定文字。
免责声明:以上内容源自网络,版权归原作者所有,如有侵犯您的原创版权请告知,我们将尽快删除相关内容。