A voir également:
- [WORD] Modèles et compléments.
- Supprimer une page word - Guide
- Espace insécable word - Guide
- Word gratuit - Guide
- Symbole attention word ✓ - Forum Word
- Organigramme word - Guide
2 réponses
Gihef
Messages postés
5146
Date d'inscription
mercredi 20 juillet 2005
Statut
Contributeur
Dernière intervention
20 février 2023
2 771
9 févr. 2006 à 20:27
9 févr. 2006 à 20:27
Bonjur,
Remettre un fichier du même nom que le modèle effacé au bon endroit sur le réseau ?
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
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