Word VBA教程:OpenAsDocument方法

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

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

expression.OpenAsDocument()

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

VBA示例

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


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

Word VBA教程

Word VBA参考教程:目录1 Word VBA参考教程:目录2
Word VBA参考教程:目录3 Word VBA参考教程:目录4
Word VBA参考教程:目录5 Word VBA参考教程:目录6
Word VBA参考教程:目录7 Word VBA参考教程:目录8
Word VBA参考教程:目录9 Word VBA参考教程:目录10
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号