Hallo liebes Forum,
brache leider wieder mal Hilfe.
Habe Word-Dokument mit ganz normalen Sätzen (z.B. 50 Seiten voll).
Nun darunter auch viele Sätze der Art: Hauptsatz, Nebensatz.
Jetzt möchte ich den Nebensatz z.B. gelb markieren, damit ich die Nebensätze beim Durchlesen direkt sehe und sie evtl. korrigierten kann.
Dafür möchte ich ein Makro schreiben. Leider kenne ich zu wehig vom VBA.
Habe versucht:
Dim satz() as String
For Each objsatz In ActiveDocument.Sentences
satz = Split(objsatz, ", ", -1, vbTextCompare)
If UBound(satz) > 0 Then
objsatz.HighlightColorIndex = 7 ' das funktioniert aber nur zum Teil
End If
Next
Es wäre mir lieber etwas in der Art wie: objsatz.Range(", ", ".").HighlightColorIndex = 7 'was natürlich nicht funktioniert!
Natürlich habe ich versucht:
dim a, b as integer
a=Instr(1, objsatz, ", ",1), gleiches für b mit "." und dann objsatz.Range(a, b).HighlightColorIndex = 7 ' funktioniert nicht!
Kann mir da jemand helfen?
Wäre ich sehr dankbar.
Hubi
brache leider wieder mal Hilfe.
Habe Word-Dokument mit ganz normalen Sätzen (z.B. 50 Seiten voll).
Nun darunter auch viele Sätze der Art: Hauptsatz, Nebensatz.
Jetzt möchte ich den Nebensatz z.B. gelb markieren, damit ich die Nebensätze beim Durchlesen direkt sehe und sie evtl. korrigierten kann.
Dafür möchte ich ein Makro schreiben. Leider kenne ich zu wehig vom VBA.
Habe versucht:
Dim satz() as String
For Each objsatz In ActiveDocument.Sentences
satz = Split(objsatz, ", ", -1, vbTextCompare)
If UBound(satz) > 0 Then
objsatz.HighlightColorIndex = 7 ' das funktioniert aber nur zum Teil
End If
Next
Es wäre mir lieber etwas in der Art wie: objsatz.Range(", ", ".").HighlightColorIndex = 7 'was natürlich nicht funktioniert!
Natürlich habe ich versucht:
dim a, b as integer
a=Instr(1, objsatz, ", ",1), gleiches für b mit "." und dann objsatz.Range(a, b).HighlightColorIndex = 7 ' funktioniert nicht!
Kann mir da jemand helfen?
Wäre ich sehr dankbar.
Hubi
