OpenAsDocument 方法

将指定模板作为文档打开并返回一个 Document 对象。

注意   将模板作为文档打开则允许编辑该模板的内容。当 Template 对象中的某属性或方法（例如 Styles 属性）无效时，就可能需要使用这种方法。

expression   必需。该表达式返回一个 Template 对象。

示例

本示例打开活动文档所选用的模板，如果该模板包含了不止一个段落标记的内容，则显示一个消息框，然后关闭该模板。

Dim docNew As Document

Set docNew = ActiveDocument.AttachedTemplate.OpenAsDocument

If docNew.Content.Text <> Chr(13) Then
    MsgBox "Template is not empty"
Else
    MsgBox "Template is empty"
End If
docNew.Close SaveChanges:=wdDoNotSaveChanges

本示例为常用模板保存一个副本“Backup.dot”。

Dim docNew As Document

Set docNew = NormalTemplate.OpenAsDocument

With docNew
    .SaveAs FileName:="Backup.dot"
    .Close SaveChanges:=wdDoNotSaveChanges
End With

本示例改变活动文档所选用的模板中“标题 1”的样式设置。UpdateStyles 方法用来更新活动文档中的样式。

Dim docNew As Document

Set docNew = ActiveDocument.AttachedTemplate.OpenAsDocument

With docNew.Styles(wdStyleHeading1).Font
    .Name = "Arial"
    .Size = 16
    .Bold = False
End With
docNew.Close SaveChanges:=wdSaveChanges
ActiveDocument.UpdateStyles