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:
  1. Dim Dest As String
  2. Dim Norm As Template
  3.  
  4. Dest = ActiveDocument.Path & "\" & ActiveDocument.Name
  5.  
  6. 'add DPF
  7. If Not StyleExists("Default Paragraph Font") Then
  8.     Application.OrganizerCopy Source:= _
  9.         "C:\Documents and Settings\pickarooney\Application Data\Microsoft\Templates\Normal.dot" _
  10.         , Destination:=Dest, Name:="Default Paragraph Font", Object:=wdOrganizerObjectStyles
  11. End If