collection that represents all the available templates— global templates as well as those attached to open documents.
expression.Templates
expression Required. An expression that returns an Application object.
Remarks
For information about returning a single member of a collection, see Returning an Object from a Collection.
Example
This example displays the name of each template in the Templates collection.
Count = 1
For Each aTemplate In Templates
MsgBox aTemplate.Name & " is template number " & Count
Count = Count + 1
Next aTemplate
In this example, if template one is a global template, its path is stored in thePath
. The ChDir statement is used to make the folder with the path stored in thePath
the current folder. When this change is made, the Open dialog box is displayed.
If Templates(1).Type = wdGlobalTemplate Then
thePath = Templates(1).Path
If thePath <> "" Then ChDir thePath
Dialogs(wdDialogFileOpen).Show
End If