Sprungmarke setzen

'Anfang Durchführung der Änderung
For Each xRange In wrdDoc.StoryRanges
For Each xFiled In xRange.Fields
With xFiled
.Select
'Anfang funktioniert - Auslesen Gesamtcode
With WrdApp
varTextGesamt = .Selection                                      ' _
TextGesamt mit Klammer links und rechts
Debug.Print varTextGesamt
varTextGesamt = Right(varTextGesamt, Len(varTextGesamt) - 1)    ' _
TextGesamt ohne Klammer links und mit rechts
Debug.Print varTextGesamt
Dim varTextTeilLinks As Variant
varTextTeilLinks = Left(varTextGesamt, 5)
Debug.Print varTextTeilLinks
varTextGesamt = Left(varTextGesamt, Len(varTextGesamt) - 1)     ' _
TextGesamt ohne Klammer links und rechts
Debug.Print varTextGesamt
varTextLeft = Left(varTextGesamt, InStr(varTextGesamt, ".12 ") + 2)  ' _
TextGesamt von Links ohne Klammer bis einschl. .12 ohne Leerzeichen aus
Debug.Print varTextLeft 'i.O.
varTextRight = Mid(varTextGesamt, InStr(varTextGesamt, "Worddaten!"))    _
'TextGesamt von Rechts ohne Klammer bis einschl. Worddaten! aus
Debug.Print varTextRight
SucheNach = varTextGesamt
Debug.Print SucheNach
ErsetzeDurch = varTextLeft & " " & aktPfadDatei & " " &  _
varTextRight
Debug.Print ErsetzeDurch
If SucheNach  ErsetzeDurch Then
MsgBox "Werte nicht identisch - alles umwandeln  _
erforderlich"
WrdApp.Selection.Find.ClearFormatting
WrdApp.Selection.Find.Replacement.ClearFormatting
WrdApp.Selection.Find.Execute FindText:=SucheNach, _
ReplaceWith:= _
ErsetzeDurch, _
Replace:=2
xFiled.Update
Else
MsgBox "Werte sind identisch - keine Umwandlung  _
erforderlich"
End If
End With
'Ende funktioniert - Auslesen Gesamtcode
End With
Next xFiled
Next xRange
'Ende Durchführung der Änderung
'Ende Prüfung vorhandener Wert