Application.Templates Property (Word)
Returns a Templates collection that represents all the available templates—global templates and those attached to open documents.
expression An expression that returns an 'Application' object.
For information about returning a single member of a collection, see Returning an Object from a Collection.
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