Se connecter avec
S'enregistrer | Connectez-vous

[Résolue] - Problème avec Modèles et Compléments dans WORD

Dernière réponse : dans Le monde de Windows

Bonjour,

j'ai un soucis avec word 2000 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 2000 ne recherche plus les modèles pendant 10 minutes ?

Je ne peux remettre un fichier du même nom que le modèle effacé au bon endroit sur le réseau car le serveur en question n'existe plus...

Merci d'avance

Autres pages sur : resolue probleme modeles complements word

Lassé par la pub ? Créez un compte

J'ai finalement trouver une solution à mon problème en faisant cette macro par contre je l'ai fait sur un poste en office 97 et il faut le faire pour chaque sous-dossier qui contient des .doc

voici le code en question :

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 = "\\serveur\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
Lassé par la pub ? Créez un compte

Créer un nouveau sujet