《WordVBA---处理Document对象【计算机类】》由会员分享，可在线阅读，更多相关《WordVBA---处理Document对象【计算机类】（5页珍藏版）》请在装配图网上搜索。
1、WordVBA-处理Document对象 新建文档：Documents.Add文档集合包括所有打开的文档。若要创建一个新文档，使用Add方法向文档集合中添加一个文档对象。创建文档的更好方法是将返回值赋给一个对象变量。Add 方法返回一个引用新文档的 Document 对象。在下面的示例中，将 Add 方法返回的 Document 对象赋给一个对象变量。然后设置该 Document 对象的部分属性和方法。使用对象变量可以很容易地控制新文档。Sub NewSampleDoc() Dim docNew As Document Set docNew = Documents.Add With docNe
2、w .Content.Font.Name = Tahoma .SaveAs FileName:=Sample.doc End With End Sub 打开文档：Documents.Open FileName:=“文件路径文件名”若要打开一个现有文档，请使用文档集合使用Open方法。下面的指令将打开myfolder 文件夹中sample.doc文档。Sub OpenDocument() Documents.Open FileName:=C:MyFolderSample.doc End Sub 保存现有文档 ：Documents(文件名).Save若要保存一个文档，使用文档对象中的Save方法。
3、下面的指令将命名为 Sales.doc 文档保存。Sub SaveDocument() Documents(Sales.doc).Save End Sub 保存所有打开的文档：Documents.Save通过对 Documents 集合应用 Save 方法，可以保存所有打开的文档。下列指令保存所有打开的文档。Sub SaveAllOpenDocuments() Documents.Save End Sub “另存为”一个新文档：ActiveDocument.SaveAs FileName:=（路径）文件名若要保存单个文档，对文档对象使用SaveAs方法。下面的指令将活动文档另存为当前文件夹中的
4、Temp.doc。Sub SaveNewDocument() ActiveDocument.SaveAs FileName:=Temp.doc End SubFileName 参数可以仅包含文件名，也可以包含完整的路径（例如，C:DocumentsTemporary File.doc）。 关闭文档：要关闭单个文档，对文档对象使用Close方法。下面的指令关闭并保存名为 Sales.doc 文档。Sub CloseDocument() Documents(Sales.doc).Close SaveChanges:=wdSaveChanges 关闭并保存End Sub通过应用 Documents
5、集合的 Close 方法可关闭所有打开的文档。下面的指令在不保存更改的情况下关闭所有的文档。Sub CloseAllDocuments() Documents.Close SaveChanges:=wdDoNotSaveChanges 关闭所有文档，但不保存End Sub下面的示例在每个文档关闭之前提示用户保存文档。Sub PromptToSaveAndClose() Dim doc As Document For Each doc In Documents doc.Close SaveChanges:=wdPromptToSaveChanges Next End Sub 激活文档：Docum
6、ents(文件名).Activate若要更改活动文档，可对 Document 对象使用 Activate 方法。下面的指令激活已打开的名为 Sales.doc 的文档。Sub ActivateDocument() Documents(Sales.doc).Activate End Sub 确定文档是否已打开若要确定文档是否处于打开状态，可使用 For Each.Next 语句枚举 Documents 集合中的元素。在下面的示例中，如果文档 Sample.doc 是打开的，将激活该文档，如果该文档当前尚未打开，则将打开该文档。Sub ActivateOrOpenDocument() Dim do
7、c As Document Dim docFound As Boolean For Each doc In Documents If InStr(1, doc.Name, sample.doc, 1) Then doc.Activate docFound = True Exit For Else docFound = False End If Next doc If docFound = False Then Documents.Open FileName:=Sample.doc End Sub 引用活动文档按“name”或索引号引用一个文档。例如，Documents(Sales.doc)， 它的ActiveDocument属性会返回一个活动文档（有焦点的文档）的Document对象。下面的示例显示活动文档的名称，或者如果没有打开的文档，则会显示一条消息。Sub ActiveDocumentName() If Documents.Count = 1 Then MsgBox ActiveDocument.Name Else MsgBox No documents are open End If End Sub5网络软硬件
WordVBA---处理Document对象【计算机类】
