☰

Makro zum Einfügen von Kommentarblasen in Microsoft Word?

tag-icon • tag-icon microsoft-word visual-basic
Makro zum Einfügen von Kommentarblasen in Microsoft Word?

Ich habe ein Problem und möchte wissen, ob es durch ein Makro gelöst werden kann:

Ich hätte gerne ein Makro, das ein Microsoft Word-Dokument durchsucht, alle Vorkommen einer Textzeichenfolge findet, diese Zeichenfolge dann hervorhebt und eine Kommentarblase (wie bei „Änderungen nachverfolgen“) erstellt, die eine zweite Textzeichenfolge enthält (z. B. „Das scheint falsch zu sein.“).

Können Makros auf diese Weise Kommentarblasen einfügen?

Antwort1

Habe dies gerade codiert (in Word 2010, kann aber nichts erkennen, was die Funktion auf älteren Versionen verhindern sollte):

Sub CommentBubble()
'
' CommentBubble Macro
'
'
Dim range As range
Set range = ActiveDocument.Content

Do While range.Find.Execute("aaa") = True
    ActiveDocument.Comments.Add range, "my comment"
Loop
End Sub

Das funktioniert, muss aber offensichtlich noch ein wenig aufgeräumt werden :) Sie könnten ein Kommentarobjekt erstellen (und Dinge wie Autor, Initialen angeben … die Farben können Sie allerdings nicht auswählen!)

verwandte Informationen