Propriedade Global.Templates (Word)
Retorna uma coleção Templates que representa todos os modelos disponíveis sejam modelos globais ou aqueles anexados a documentos abertos.
Sintaxe
expression. Templates
expression é obrigatório. Uma variável que representa um objeto 'Global'.
Comentários
Para obter informações sobre como retornar um único membro de uma coleção, consulte Retornando um objeto de uma coleção.
Exemplo
Este exemplo exibe o nome de cada modelo da coleção Templates.
Count = 1
For Each aTemplate In Templates
MsgBox aTemplate.Name & " is template number " & Count
Count = Count + 1
Next aTemplate
Neste exemplo, se o modelo um for um modelo global, seu caminho será armazenado em thePath. A instrução ChDir é usada para tornar a pasta com caminho armazenado em thePath a pasta atual. Quando essa alteração é feita, a caixa de diálogo Abrir é exibida.
If Templates(1).Type = wdGlobalTemplate Then
thePath = Templates(1).Path
If thePath <> "" Then ChDir thePath
Dialogs(wdDialogFileOpen).Show
End If
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.