Gesamtes Dokument (inkl. Fußnoten) durchsuchen und bearbeiten

13/07/2009 - 12:59 von Frank Glück | Report spam
Hallo zusammen,

heute mal eine vermutlich recht einfache Frage, für die ich bisher aber
leider noch keine befriedigende Lösung gefunden habe. Folgende Sub benutze
ich zur Ersetzung einer Reihe von Suchstrings in meinen Dokumenten, was an
sich auch ganz prima funktioniert:


Sub Ersetzungen(vorher, nachher)
Selection.HomeKey Unit:=wdStory
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = vorher
.Replacement.Text = nachher
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
End Sub


Sie hat nur einen Haken: Sie sucht und ersetzt lediglich im Hauptdokument
und nicht auch in den Fußnoten. Wie kann ich das beheben? Eine Methode, um
den Cursor an den Anfang des Fußnotenbereiches zu setzen (analog zu dem
von mir oben benutzten "Selection.HomeKey Unit:=wdStory") scheint es ja
nicht zu geben(?)

Danke und schöne Grüße,
Frank
 

Lesen sie die antworten

#1 Thomas Gahler
13/07/2009 - 13:19 | Warnen spam
Hallo Frank


heute mal eine vermutlich recht einfache Frage, für die ich bisher aber
leider noch keine befriedigende Lösung gefunden habe.


Hier nachlesen, dann hast du ein Lösungsvorschlag


- Using a macro to replace text where ever it appears in a document
including Headers, Footers, Textboxes, etc
http://word.mvps.org/faqs/macrosvba...ithVBA.htm

und hier ein zweites Mal
- Using a macro to replace text where ever it appears in a document
http://word.mvps.org/faqs/customiza...ywhere.htm


den benötigst du vielleuicht auch noch
- Flush bad karma from Word's find facility after an unsuccessful wildcard
search
http://word.mvps.org/faqs/macrosvba/FlushFR.htm






Thomas Gahler
MVP für Word
Co-Autor von »Microsoft Word-Programmierung.
Das Handbuch« (MS Press)


- Windows XP (SP3), Office XP (SP3)

Ähnliche fragen