I once needed to bulk update a whole directory of Microsoft Office Word documents to point them to a new template. They were using a template that no longer existed on a network drive and Office seemed to spend a long time looking for the non-existant template.

The following macro allows you to quickly set the template associated with a directory of Word documents to 'Normal.dot'.

Sub ChangeTemplates()



  ' Define variables

  Dim strDocPath  As String

  Dim strTemplate As String

  Dim strCurDoc As String

  Dim docCurDoc As Document



  ' Set document folder path and template strings

  strDocPath = "d:\temp\"

  strTemplate = "Normal.dot"



  ' Get first document name

  strCurDoc = Dir(strDocPath & "*.doc")



  ' Loop through files

  Do While strCurDoc <> ""

    ' Open file

    Set docCurDoc = Documents.Open(FileName:=strDocPath & strCurDoc)

    ' Change the template

    docCurDoc.AttachedTemplate = strTemplate

    ' Save and close

    docCurDoc.Close wdSaveChanges

    ' Get next file name

    strCurDoc = Dir

  Loop

  

  MsgBox "Finished"

  

End Sub

The macro assumes your documents are in directory "d:\temp\" but you can adjust this if required.