Template.OpenAsDocument 方法 (Word)
打开指定的模板作为文档并返回 文档 对象。
expression. OpenAsDocument
表达式是必需的。 一个代表“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
本示例为 Normal 模板保存一个副本"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
有关于 Office VBA 或本文档的疑问或反馈? 请参阅 Office VBA 支持和反馈,获取有关如何接收支持和提供反馈的指南。