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?
VB Code:
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




Reply With Quote