How to reference Normal.dot?

[pickarooney]

I'm writing a macro which copies a style (Default Paragraph Font) from the users Normal.dot template file. At the moment it's hard-coded to point it to my own template, but how can I edit this so it will use the normal template of whoever runs the macro?

Dim Dest As String
Dim Norm As Template
 
Dest = ActiveDocument.Path & "\" & ActiveDocument.Name
 
'add DPF
If Not StyleExists("Default Paragraph Font") Then
    Application.OrganizerCopy Source:= _
        "C:\Documents and Settings\pickarooney\Application Data\Microsoft\Templates\Normal.dot" _
        , Destination:=Dest, Name:="Default Paragraph Font", Object:=wdOrganizerObjectStyles
End If

[NeedSomeAnswers]

Think you need api's to return the "application data" path for each user,

found this link though, - http://www.thescarms.com/vbasic/specialfolders.asp

you can download the source code too, so it may help !!!

[zaza]

Hi,

If you're in VBA:

strPath = Options.DefaultFilePath(wdUserTemplatesPath)

will get you the path.

zaza