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

Objeto Template

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.