|
Hallo,
ich habe gleich ein neues Problem:
Ich habe die Aufgabe, eine Funktion zu erzeugen, die Zeichenketten sucht, diese durch andere Zeichenketten ersetzt und das Format der Zeichenkette im Text beibehält. Konkreter sollen alle männlichen Wörter durch die jeweilige weibliche Form ersetzt werden. Momentan stellt sich mir die Frage: Wie prüfe ich, ob ein Wort am Anfang oder am Ende eines Paragraphen steht? Ich habe es mit
With ActiveDocument.Content.Find
.ClearFormatting
.Text = Chr(10) & "String "
.Replacement.ClearFormatting
.Replacement.Text = Chr(10) & "String2 "
.Execute Replace:=wdReplaceAll, Forward:=True, Wrap:=wdFindContinue
End With
'Alternativ
With ActiveDocument.Content.Find
.ClearFormatting
.Text = "String " & Chr(10)
.Replacement.ClearFormatting
.Replacement.Text = "String2 " & Chr(10)
.Execute Replace:=wdReplaceAll, Forward:=True, Wrap:=wdFindContinue
End With
versucht. Leider war dies ein Fehlschlag, mit den "Chr(10)" hat es noch schlechter funktioniert als zuvor. Kann mir bitte jemand weiterhelfen?
P. S. Es ist kein Entweder-Oder, das Wort kann am Anfang eines Paragraphen stehen, kann am Ende eines Paragraphen stehen, muss aber nicht.
|