Pour Ajouter un en-Tête et Pied de page pour de nombreux documents word?

Que j'ai autour de 100 documents pour lesquels l'en-tête et pied de page doivent être modifiées.

Est-il possible que je peux le faire en écrivant simplement un code vba ou une Macro dans un fichier word?

Est-il possible de donner à un dossier spécifique dans une macro qui ll ajouter l'en-tête et pied de page pour tous les documents que le pied de page?

le code ci-dessous me donne

erreur-5111

Private Sub Submit_Click()

        Call openAllfilesInALocation

End Sub


Sub openAllfilesInALocation()
Dim i As Integer
With Application.FileSearch
.NewSearch
.LookIn = "C:\MyFolder\MySubFolder"
.SearchSubFolders = False
.FileName = "*.xls"
.Execute
For i = 1 To .FoundFiles.Count
'Open each workbook
Set Doc = Documents.Open(FileName:=.FoundFiles(i))
'Perform the operation on the open workbook
'wb.Worksheets("sheet1").Range("A1") = Date
'Save and close the workbook
With ActiveDocument.Sections(1)
    .Headers(wdHeaderFooterPrimary).Range.Text = "Header goes here"
    .Footers(wdHeaderFooterPrimary).Range.Text = "Footer goes here"
End With

Doc.Save
Doc.Close
'On to the next workbook
Next i
End With
End Sub
  • Pour toutes vos question je réponds OUI! Si vous tentez quoi que ce soit et vous avez besoin de toute aide que vous pourriez partager votre code pour n'importe quel support
  • Kaz Mâchoire veuillez vérifier le code....iam se 5111 erreur...
InformationsquelleAutor Gokul Sundaravadivel | 2013-03-20
  1. 3

    Dans le code que vous avez fourni vous avez essayé d'utiliser de vieux .FileSearch de la propriété. Il l'habitude de travailler jusqu'à ce que MS Office 2003, mais pas maintenant. Voici le code amélioré pour vous. Il va ouvrir un fichier standard de la fenêtre où vous pouvez sélectionner un ou plusieurs fichiers à traiter.

    Sub openAllfilesInALocation()
Dim Doc
Dim i As Integer

Dim docToOpen As FileDialog
Set docToOpen = Application.FileDialog(msoFileDialogFilePicker)
    docToOpen.Show

For i = 1 To docToOpen.SelectedItems.Count
'Open each document
Set Doc = Documents.Open(FileName:=docToOpen.SelectedItems(i))

With ActiveDocument.Sections(1)
    .Headers(wdHeaderFooterPrimary).Range.Text = "Header goes here"
    .Footers(wdHeaderFooterPrimary).Range.Text = "Footer goes here"
End With

Doc.Save
Doc.Close

Next i

End Sub
    InformationsquelleAutor Kazimierz Jawor