Hi Mark,
You will want to create an AutoExec macro that you place inside a global
template (a template that you have saved in the Startup path directory). The
AutoExec macro will run "When you start Word or load a global template".
Public Sub AutoExec ()
sOldPath = "C:\Program files\Microsoft Office\Templates\ABCTemplates"
sNewPath = "C:\Documents and Settings\All Users\Application
Data\Microsoft\ABCTemplates"
If LCase(Options.DefaultFilePath(wdUserTemplatesPath)) = LCase(sOldPath)
Then
Options.DefaultFilePath(wdUserTemplatesPath) = sNewPath
End If
End Sub
HTH
Quote:
> My company are slowly changing operating systems from NT4
> to XP. They use Office 97 and as an co-author of these
> templates I want to change all the file paths of my USER
> TEMPLATES.
> Would someone be kind enough to provide me with some code
> that automatically does a find & replace routine that
> changes the paths in the code from C:\Program
> files\Microsoft Office\Templates\ABCTemplates to
> C:\Documents and Settings\All Users\Application
> Data\Microsoft\ABCTemplates without any user intervention.
> Regards
> Mark
FIND & REPLACE