Bei der Entwicklung eines Dokuments ist es nicht ungewöhnlich, einen bestimmten Absatzstil für redaktionelle Notizen zu verwenden. Beispielsweise können die Notizen in Absätzen im Notes-Stil gespeichert werden. Irgendwann möchten Sie möglicherweise alle Absätze, die den Notes-Stil verwenden, in tatsächliche Kommentare im Dokument konvertieren. Sie können das Dokument durchgehen und die Konvertierung manuell durchführen. Dies kann jedoch schnell mühsam werden. Verwenden Sie stattdessen ein Makro, das die Konvertierung für Sie durchführt:

Sub ConvertNotesToComments()

Dim CommentText As String     Dim MyRange As Range     Dim iPCount As Integer     Dim J As Integer

Application.ScreenUpdating = False     iPCount = ActiveDocument.Paragraphs.Count

For J = iPCount To 1 Step -1         If ActiveDocument.Paragraphs(J).Style = _           ActiveDocument.Styles("Notes") Then             Set MyRange = ActiveDocument.Paragraphs(J).Range             CommentText = MyRange.Text

'Get rid of trailing end-of-paragraph mark             CommentText = Left(CommentText, Len(CommentText) - 1)



'Move selection to end of previous paragraph             MyRange.Collapse (wdCollapseStart)

MyRange.Move Unit:=wdCharacter, Count:=-1

'The original paragraph is no longer necessary             ActiveDocument.Paragraphs(J).Range.Delete

'Create the comment at the range location             ActiveDocument.Comments.Add Range:=MyRange, _               Text:=CommentText         End If     Next J     Application.ScreenUpdating = True End Sub

Das Makro geht rückwärts durch das Dokument und betrachtet den Stil jedes Absatzes. Wenn eine gefunden wird, die den Notes-Stil verwendet, wird der Text des Absatzes in die Variable CommentText verschoben und der Absatz entfernt. Der Kommentar wird dann am Ende des Absatzes hinzugefügt, bevor die Löschung vorgenommen wurde.

_Hinweis: _

Wenn Sie wissen möchten, wie die auf dieser Seite (oder auf einer anderen Seite der WordTips-Websites) beschriebenen Makros verwendet werden, habe ich eine spezielle Seite vorbereitet, die hilfreiche Informationen enthält.

Klicken Sie hier, um diese spezielle Seite in einem neuen Browser-Tab zu öffnen.

WordTips ist Ihre Quelle für kostengünstige Microsoft Word-Schulungen.

(Microsoft Word ist die weltweit beliebteste Textverarbeitungssoftware.) Dieser Tipp (5404) gilt für Microsoft Word 97, 2000, 2002 und 2003. Sie finden eine Version dieses Tipps für die Multifunktionsleistenschnittstelle von Word (Word 2007) und später) hier:

Konvertieren von Absätzen in Kommentare.