|
Guten Tag, liebe VBA-Fachleute,
ich wäre dankbar, wenn mir einer von euch bei meinem kleinen Problem helfen könnte. Ein kompetenter Leser dieser Seite hat mir folgenden Teil eines Makros geschrieben (es ist nicht das vollständige Makro!):.
' Worddokument durchsuchen und Wörter färben
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 = wdLineWidth100pt
.ColorIndex = 10
End With
End If
Next
Next
End With
Set SuchRange = Nothing
Set myRange = Nothing
End Sub
Dieser Teil meines Makros rahmt Wörter aus einer Exceltabelle in einem Wordtext farbig ein.
Das Problem: Der Rahmen geht leider über das Wort hinaus und rahmt auch die Leerstelle dahinter ein. Er reicht also bis an den ersten Buchstaben des nächsten Wortes. Das macht mir öfter Probleme, wenn ich den Text bearbeite. Der Rahmen wandert manchmal mit und umrahmt auch die Wörter, die ich dahinter schreibe.
Kann mir jemand bitte die entsprechenden Zeilen ändern, damit der Rahmen nicht die Leerstelle mit einbezieht?
Vielen Dank fürs Lesen und die Mühe.
|