Solution trouvé sur le site de microsoft...
Essayez ca dans un document Word vierge, dans Outils... Macro... Visual Basic Editor...
et F5 pour runner l'application
Sub Test()
Dim strFilePath As String
Dim strPath As String
Dim intCounter As Integer
Dim strFileName As String
Dim OldServer As String
Dim NewServer As String
Dim objDoc As Document
Dim objTemplate As Template
Dim dlgTemplate As Dialog
'Ancien chemin où est le mauvais modèle
OldServer = "\\AncienServeur\AncienModèle.dot"
'Nouveau chemin, du modèle, au pire, normal.dot
NewServer = "C:\Program Files\Microsoft Office\Modèles\Normal.dot"
strFilePath = InputBox("What is the folder location that you want to use?")
If Right(strFilePath, 1) <> "\" Then strFilePath = strFilePath & "\"
strFileName = Dir(strFilePath & "*.doc")
Do While strFileName <> ""
Set objDoc = Documents.Open(strFilePath & strFileName)
Set objTemplate = objDoc.AttachedTemplate
Set dlgTemplate = Dialogs(wdDialogToolsTemplates)
strPath = dlgTemplate.Template
With objDoc
.UpdateStylesOnOpen = False
If LCase(Left(strPath, Len(OldServer))) = LCase(OldServer) Then
.AttachedTemplate = NewServer & Mid(strPath, (Len(OldServer) + 1))
End If
.XMLSchemaReferences.AutomaticValidation = True
.XMLSchemaReferences.AllowSaveAsXMLWithoutValidation = False
End With
strFileName = Dir()
objDoc.Save
objDoc.Close
Loop
Set objDoc = Nothing
Set objTemplate = Nothing
Set dlgTemplate = Nothing
End Sub