Propriedade Application.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
Expressão Uma expressão que retorna um objeto Application .
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 o caminho armazenado em thePath na 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.