Hallo,
ich habe ein VBA-Makro, das zuverlässig den Text der Fusszeile im aktuell geöffneten Word-Dokument ändert. Ich möchte das ganze jetzt in VBS umsetzen, sodass die Fußzeilen aller Dokumente in einem angegebenen Ordner durchlaufen und geändert werden, ist das überhaupt machbar ohne die Dokumente händisch zu öffnen? Die Fusszeilen in allen 200 *docx-Dokumenten sind identisch.
Mein Code sieht bisher so aus:
Danke Euch schon mal im Voraus!
ich habe ein VBA-Makro, das zuverlässig den Text der Fusszeile im aktuell geöffneten Word-Dokument ändert. Ich möchte das ganze jetzt in VBS umsetzen, sodass die Fußzeilen aller Dokumente in einem angegebenen Ordner durchlaufen und geändert werden, ist das überhaupt machbar ohne die Dokumente händisch zu öffnen? Die Fusszeilen in allen 200 *docx-Dokumenten sind identisch.
Mein Code sieht bisher so aus:
Visual Basic-Quellcode
- Sub ErsetzeFusszeile()
- Dim suche As String
- Dim Ersetze As String
- Dim rng As Range
- suche = InputBox("Was soll in der Fußzeile gesucht werden?")
- Ersetze = InputBox("Wie lautet der Ersetzungstext?")
- Set rng = ActiveDocument.Sections(1).Footers(wdHeaderFooterPrimary).Range
- rng.Find.ClearFormatting
- rng.Find.Replacement.ClearFormatting
- With rng.Find
- .Text = suche
- .Replacement.Text = Ersetze
- .Forward = True
- .Wrap = wdFindContinue
- .Format = False
- .MatchCase = False
- .MatchWholeWord = False
- .MatchWildcards = False
- .MatchSoundsLike = False
- .MatchAllWordForms = False
- End With
- rng.Find.Execute Replace:=wdReplaceAll
- End Sub
Danke Euch schon mal im Voraus!
Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „wurstsemmerl“ ()