|
Hallo und guten Tag,
Ich hatte mein kleines Problem vor einigen Wochen bereits hier eingestellt, aber leider keine Antwort erhalten. Heute versuche ich es noch einmal.
Ich habe ein Makro, das bestimmte Wörter in einem Wordtext sucht und diese einrahmt. Leider geht der Rahmen über das Wort hinaus bis an das nächste Wort, d.h. die Leerstelle wird auch eingerahmt. Das macht beim Einfügen, Löschen usw. Probleme, da der Rahmen weiter wandert, manchmal bleibt er nach dem Löschen nur in der Leerstelle stehen.
Beispiel: So soll der Rahmen NICHT sein!
Der Rahmen soll direkt hinter dem Wort enden!
Beispiel: So soll der Rahmen sein! Die Leerstelle bleibt frei.
Der betreffende Abschnitt aus dem Makro sieht so aus:
Set myRange = ActiveDocument.Range
With myRange
For Each AktWord In .Words
TmpStr = Trim(AktWord.Text)
For iWord = 0 To UBound(AllWord)
If UCase(TmpStr) Like AllWord(iWord) & "*" Then
With AktWord.Font.Borders(1)
.LineStyle = wdLineStyleSingle
.LineWidth = wdLineWidth150pt
.ColorIndex = 4
End With
End If
Next
Next
End With
Set SuchRange = Nothing
Set myRange = Nothing
Bitte, kann mir als VBA-Unkundigem jemand helfen, wie ich die Zeilen im Makro ändern muss?
Vielen Dank für jede Hilfe!
|