[WORD] Modèles et compléments.
kenses
-
J-S -
J-S -
Bonjour,
j'ai un soucis avec word XP Standard lorsque j'ouvre des documents.
Si ces documents ont été créé à partir d'un modèle et si ce modèle n'existe plus sur le réseau, les fichier mette 10 minutes pour s'ouvrir.
Une fois le document ouvert, lorsque je vais dans modèle et complement, je vois bien le chemin vers le modèle en question qui n'existe plus. En remplacent ce chemin par le normal.dot. le fichier s'ouvre rapidement.
Seulement j'ai beaucoup de fichier dans ce cas et je ne peux pas les ouvrir un par un.
Existe t-il une solution pour que word xp ne recherche plus les modèles pendant 10 minutes ?
Merci d'avance
Séb
j'ai un soucis avec word XP Standard lorsque j'ouvre des documents.
Si ces documents ont été créé à partir d'un modèle et si ce modèle n'existe plus sur le réseau, les fichier mette 10 minutes pour s'ouvrir.
Une fois le document ouvert, lorsque je vais dans modèle et complement, je vois bien le chemin vers le modèle en question qui n'existe plus. En remplacent ce chemin par le normal.dot. le fichier s'ouvre rapidement.
Seulement j'ai beaucoup de fichier dans ce cas et je ne peux pas les ouvrir un par un.
Existe t-il une solution pour que word xp ne recherche plus les modèles pendant 10 minutes ?
Merci d'avance
Séb
2 réponses
-
Bonjur,
Remettre un fichier du même nom que le modèle effacé au bon endroit sur le réseau ?
-
J'ai eue le même problème, voici comment je l'ai réglé... avec une petite macro word...
je l'ai fait a partir d'un poste office 97 mais avec 2000 et XP ca focntionne aussi par contre ce sera plus long car la macro ouvre les doc un apres l'autre... voici la macro :
Sub ChangeTemplates()
Dim strDocPath As String
Dim strTemplateB As String
Dim strCurDoc As String
Dim docCurDoc As Document
' set document folder path and template strings
strDocPath = "c:\sous-dossier\"
strTemplateB = "Normal.dot"
' get first doc - only time need to provide file spec
strCurDoc = Dir(strDocPath & "*.doc")
' ready to loop (for as long as file found)
Do While strCurDoc <> ""
' open file
Set docCurDoc = Documents.Open(FileName:=strDocPath & strCurDoc)
' change the template
docCurDoc.AttachedTemplate = strTemplateB
' save and close
docCurDoc.Close wdSaveChanges
' get next file name
strCurDoc = Dir
Loop
MsgBox "Finished"
End Sub
