Fokus verschieben nach Suchen und Ersetzen

28/10/2009 - 12:47 von Frank Spade | Report spam
Guten Tag,

ich möchte eine làngere Zeichenkette ersetzen, wo der Ersetzungstring
teilweise formatiert ist (fett). Das versuche ich wie folgt:

Selection.HomeKey wdStory
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = _
"Ich wünsche in den oben genannten Situationen "
.Replacement.Text = _
"In den oben aufgeführten Situationen "
.Forward = True
End With
Selection.Find.Execute Replace:=wdReplaceAll
If Selection.Find.Found Then
Selection.Font.Bold = True
Selection.TypeText "wünsche ich"
Selection.Font.Bold = False
End If

Leider wird der Fokus durch die Suche nicht veràndert, sodass der
eingegebene Text am Anfang der Seite eingefügt wird.

Wie kann ich das richtig machen?

Herzlichen Gruß

Frank
 

Lesen sie die antworten

#1 Helmut Weber
28/10/2009 - 16:09 | Warnen spam
Hallo Frank,
unterschiedlich formattierten Ersetzungstext
zu behandeln, erscheint mir àußerst problematisch.
Würde ich mir nicht antun wollen.
Am Anfang des Doks wird der Text "wünsche ich" eingefügt,
weil Selection.Find.Execute Replace:=wdReplaceAll
wahr ist, also erfolgreich gefunden.
Ein Selection.Find.Execute Replace:=wdReplaceAll
bewegt die Selection nicht.


Gruß

Helmut Weber

Vista Small Business, Office XP

Ähnliche fragen