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

Objeto de Aplicativo

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.