Moshe hat ein Word-Dokument, das von einem Kopiereditor bearbeitet wurde. Überall dort, wo der Editor einen Kommentar eingefügt hat, beginnt er mit einer linken Klammer, gefolgt von „ed note:“, dann der Notiz und schließlich einer rechten Klammer.

Für die internen Prozesse von Moshe ist es vorteilhafter, diese Notizen als tatsächliche Word-Kommentare zu haben. Er fragt sich, ob es eine Möglichkeit gibt, das Auffinden dieser In-Text-Notizen zu automatisieren und sie in Word-Kommentare umzuwandeln.

Die Möglichkeit zur Automatisierung dieses Prozesses besteht in der Verwendung eines Makros. Das Makro kann sich auf die Such- und Ersetzungsfunktionen von Word verlassen, jedoch eine gewisse Verarbeitung hinzufügen, wenn ein übereinstimmender Kommentar gefunden wird.

Sub NoteToComment()

Dim sTemp As String

Selection.HomeKey Unit:=wdStory

With Selection.Find         .ClearFormatting         .Text = "\(ed note:*\)"

.Replacement.Text = ""

.Forward = True         .Wrap = wdFindStop         .MatchWildcards = True     End With

Do While Selection.Find.Execute         sTemp = Selection.Text         sTemp = Mid(sTemp, 10, Len(sTemp) - 11)

sTemp = Trim(sTemp)

Selection.Text = ""

Selection.MoveEnd unit:=wdCharacter         Selection.MoveStart unit:=wdCharacter, Count:=-1         If Selection.Text = "  " Then Selection.Text = " "

Selection.Collapse         ActiveDocument.Comments.Add Range:=Selection.Range, Text:=sTemp     Loop End Sub

Das Makro bewegt sich zuerst zum Anfang des Dokuments und legt dann die Bedingungen für die Suche fest. Es wird nach dem Muster gesucht, das Moshe notiert hat – eine linke Klammer, gefolgt von „ed note:“, dann die Notiz und schließlich eine rechte Klammer -. Diese Sequenz wird der .Text-Eigenschaft des Find-Objekts zugewiesen. Beachten Sie, dass vor jeder Klammer ein Schrägstrich steht. Wenn diese Backslashes nicht enthalten wären, würde Word die Klammern als Steuerzeichen im Suchmuster betrachten. Darüber hinaus wird die .MatchWildcards-Eigenschaft auf True festgelegt, sodass die .Text-Eigenschaft als Suchmuster behandelt wird.

In der Do While-Schleife, die jedes Mal eingegeben wird, wenn ein übereinstimmender Kommentar gefunden wird, wird die Variable sTemp auf den Text des Kommentars gesetzt. Die ersten 9 Zeichen werden zusammen mit der letzten rechten Klammer entfernt (dies sind „(Anmerkung:“)). Der Kommentar wird aus dem Dokument entfernt, und wenn nach dem Entfernen mehrere Leerzeichen übrig sind, werden diese ebenfalls gelöscht.

Schließlich wird ein tatsächlicher Kommentar hinzugefügt, der den Text in der Variablen sTemp enthält.

Bei der Verwendung dieses Makros ist Folgendes zu beachten: Es hängt davon ab, ob das Kommentarmuster korrekt übereinstimmt. Dies bedeutet, dass einige Kommentare, die nicht genau dem Muster folgen, möglicherweise nicht gefunden und konvertiert werden. (Zum Beispiel, wenn nach der linken Klammer ein Leerzeichen steht.) Wenn die Kommentare im Dokument enthalten Anmerkungen in Klammern innerhalb des Kommentars (mit anderen Worten, der Kommentar enthält verschachtelte Klammern), die das, was bei der Platzhaltersuche gefunden wird und was anschließend im Kommentar endet, durcheinander bringen.

_Hinweis : _

Wenn Sie wissen möchten, wie es uns geht Für die auf dieser Seite (oder auf einer anderen Seite der WordTips-Websites) beschriebenen Makros 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 (1797) gilt für Microsoft Word 2007, 2010, 2013 und 2016.