Método Template.OpenAsDocument (Word)
Abre o modelo especificado como um documento e retorna um objeto Document.
Sintaxe
expression. OpenAsDocument
expression é obrigatório. Uma variável que representa um objeto 'Template'.
Valor de retorno
Documento
Comentários
Abrir um modelo como um documento permite ao usuário editar o conteúdo do modelo. Isso pode ser necessário se uma propriedade ou método (a propriedade estilos, por exemplo) não está disponível a partir do objeto Template.
Exemplo
Este exemplo abre o modelo anexado ao documento ativo, exibe uma caixa de mensagem se o modelo contiver algo mais que uma única marca de parágrafo e fecha o modelo.
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
Este exemplo salva uma cópia do modelo Normal como "Backup.dot"
Dim docNew As Document
Set docNew = NormalTemplate.OpenAsDocument
With docNew
.SaveAs FileName:="Backup.dot"
.Close SaveChanges:=wdDoNotSaveChanges
End With
Este exemplo altera a formatação do estilo Heading 1 no modelo anexado ao documento ativo. O métodupdatestyles atualiza os estilos do documento ativo.
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
Confira também
Suporte e comentários
Tem dúvidas ou quer enviar comentários sobre o VBA para Office ou sobre esta documentação? Confira Suporte e comentários sobre o VBA para Office a fim de obter orientação sobre as maneiras pelas quais você pode receber suporte e fornecer comentários.