[WordVBA学习讲义.docxVIP

Word学习讲义Window 对象是Windows集合的一个成员。Application 对象的 Windows 集合包含应用程序中的所有窗口，而 Document 对象的 Windows 集合仅包含显示指定文档的窗口。使用 Windows(Index) 可返回一个 Window 对象，其中 Index 为窗口名称或索引号。以下示例将 Document1 窗口最大化。Windows(Document1).WindowState = wdWindowStateMaximize使用 Add 方法或 NewWindow 方法可向 Windows 集合添加新窗口。下列每个语句都为活动窗口中的文档创建一个新窗口。ActiveDocument.ActiveWindow.NewWindowNewWindowWindows.Add使用Open方法打开一个文件。以下示例打开名为“Sales.doc”的文档。Documents.Open FileName:=C:\My Documents\Sales.doc使用Documents(Index) 返回单个 Document 对象（其中 Index 是文档名称或索引编号）。以下指令关闭名为“Report.doc”的文档但不保存更改。Documents(Report.doc).Close SaveChanges:=wdDoNotSaveChanges索引编号代表文档在 Documents 集合中的位置。以下示例激活 Documents 集合中的第一篇文档。Documents(1).Activate以下示例枚举 Documents 集合以判定名为“Report.doc”的文档是否已打开。如果该文档包含在 Documents 集合中，则激活该文档，否则打开该文档。For Each doc In Documents If doc.Name = Report.doc Then found = TrueNext docIf found True Then Documents.Open FileName:=C:\Documents\Report.docElse Documents(Report.doc).ActivateEnd If有多个对象具有 Range 属性，如Paragraph、Bookmark和Cell。该属性用于返回 Range 对象。下面的示例返回一个 Range 对象，该对象引用活动文档中的第一段。Sub SetParagraphRange() Dim rngParagraph As Range Set rngParagraph = ActiveDocument.Paragraphs(1).RangeEnd Sub使用SetRange方法可重新定义现有的 Range 对象。下面的示例将一个区域定义为当前的所选内容。然后应用 SetRange 方法以重新定义该区域，使之包含当前所选内容和接下来的 10 个字符。Dim rngParagraph As Range Set rngParagraph = Selection.Range rngParagraph.SetRange Start:=rngParagraph.Start, _ End:=rngParagraph.End + 10以下示例在活动文档中查找所有“hi”并将其替换为“hello”。Set myRange = ActiveDocument.ContentmyRange.Find.Execute FindText:=hi, ReplaceWith:=hello, _Replace:=wdReplaceAll使用 Bookmarks 属性返回文档、区域或选定内容的 Bookmarks 集合。以下示例在选择名为“temp”的书签之前，确保该书签存在于活动文档中。If ActiveDocument.Bookmarks.Exists(temp) = True Then ActiveDocument.Bookmarks(temp).SelectEnd If本示例将 myRange 设置为代表活动文档内容区域，折叠 myRange，然后在文档的最后插入一个 2ｘ2 表格。Set myRange = ActiveDocument.ContentmyRange.Collapse Direction:=wdCollapseEndActiveDocument.Tables.Add Range:=myRange, NumRows:=2, NumColumns:=2如果用 wdCollapseEnd 折叠一个代表完整段落的区域，则该区域将定位于段落结束标记之后（即下段开头）。但是，在该区域折叠后，可以