|
Als Nachtrag:
ich habe es jetzt mit deinen Tipps geschafft, alles in ein Makro zu packen. Es scheitert nur noch an der Range. Da habe ich jetzt sozusagen provisorisch für ein Beispiel genau den passenden Bereich angegeben:
With wdoc.Range(344, 474).Find
.ClearFormatting
.Replacement.ClearFormatting
.Text = ";"
.Replacement.Text = ","
.Forward = True
.Wrap = 0
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
.Execute Replace:=2
.ClearFormatting
.Replacement.ClearFormatting
.Text = ", "
.Replacement.Text = "^p"
.Forward = True
.Wrap = wdFindAsk
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
.Execute Replace:=2
End With
Für dieses eine Beispiel funktioniert es auch wunderbar, aber der Bereich passt natürlich nicht mehr wenn in den anderen Variablen längere oder kürzere Texte stehen. Weißt du dafür vielleicht noch eine Lösung?
|