Re: Gesamtes Dokument (inkl. Fußnoten) durchsuchen und bearbeiten
- From: Frank Glück <FrankImGlueck@xxxxxx>
- Date: Mon, 13 Jul 2009 17:47:22 +0200
Thomas Gahler schrieb:
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/FindReplaceAllWithVBA.htm
und hier ein zweites Mal
- Using a macro to replace text where ever it appears in a document
http://word.mvps.org/faqs/customization/ReplaceAnywhere.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
Super, vielen Dank!!
Dennoch hätte ich eine Anschlussfrage:
In den vorgeschlagenen Code-Beispielen wird ja - aus gutem Grund - statt Selection.Find die Find-Methode direkt auf das Range-Objekt angewendet. Wenn ich nun aber, während die Liste der Treffer durchgegangen wird, bspw. nur ein InsertBefore und/ oder ein InsertAfter ausführen möchte, würde ich statt
.Find.Execute Replace:=wdReplaceAll
eine Schleife initiieren wie bspw. diese:
Do While .Find.Execute
.InsertBefore "<b>"
.InsertAfter "</b>"
Loop
Dies wird nun aber zur Endlosschleife, weil der interne Suchtreffer-"Zeiger" offenbar nicht weitergerückt wird. Bei der Selection.Find-Methode hatte ich mir immer damit beholfen, einfach den Cursor im Dokument nach der jeweiligen Einfüge-Operation um ein Zeichen weiterzuschieben. Wie bekomme ich das hier in den Griff?
Danke und Grüße,
Frank
.
- References:
- Gesamtes Dokument (inkl. Fußnoten) durchsuchen und bearbeiten
- From: Frank Glück
- Re: Gesamtes Dokument (inkl. Fußnoten) durchsuchen und bearbeiten
- From: Thomas Gahler
- Gesamtes Dokument (inkl. Fußnoten) durchsuchen und bearbeiten
- Prev by Date: Re: Application.OrganizerCopy in 2007
- Next by Date: Re: Gesamtes Dokument (inkl. Fußnoten) durchsuchen und bearbeiten
- Previous by thread: Re: Gesamtes Dokument (inkl. Fußnoten) durchsuchen und bearbeiten
- Next by thread: Re: Gesamtes Dokument (inkl. Fußnoten) durchsuchen und bearbeiten
- Index(es):
Relevant Pages
|
Loading