Hallo leute,
ich hab mir folgende Funktion geschrieben die bestimmte Wörter in einem Word Dokument austauscht...WordApp.Selection.WholeStory
With WordApp.Selection.Find
.Text = Form1.Text1.Text
.Replacement.Text = Form1.Text2.Text
.Forward = True
'.Wrap = wdFindAsk
.Format = False
.MatchCase = True
.MatchWholeWord = True
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = True
End With
'Suchen und Ersetzen anwenden
WordApp.Selection.Find.Execute , , , , , , , , , , 2
Die Funktion arbeitet einwandfrei, allerdings wird nur der "normale" Text des Dokuments durchsucht...
Die Kopf und Fußzeilen werden dabei ignoriert, daher hab ich mir eine zweite Funktion für die Fußzeile geschrieben:'Fußzeile....
With WordDoc.Sections(1).Footers(wdHeaderFooterPrimary).Range.Find
.Text = Form1.Text1.Text
.Replacement.Text = Form1.Text2.Text
.Forward = True
'.Wrap = wdFindAsk
.Format = False
.MatchCase = True
.MatchWholeWord = True
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = True
End With
WordDoc.Sections(1).Footers(wdHeaderFooterPrimary).Range.Find.Execute , , , , , , , , , , 2
Nur das diese Funktion leider nichts tut, die FußZeile sieht anschließend aus wie vorher...
Wieso funktioniert das nicht??
Zum Seitenanfang