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 支持和反馈，获取有关如何接收支持和提供反馈的指南。