Bearbeiten von „MS Word Kommentare“

== Kommentare extrahieren ==

Dieses Mkro extrahiert alle Kommentare in ein CSV-File mit den Informationen:

Seite, Zeile, Spalte, Author, kommentierter Text, Kommentar Text  
 
 Sub MitPruefung()
   Open "D:\MP.csv" For Output As #1
  
   For Each listComment In ActiveDocument.Comments
  
     With listComment
       Print #1, _
         .Scope.Information(wdActiveEndPageNumber); _
         "; Ze/Sp = "; .Scope.Information(wdFirstCharacterLineNumber); _
         "/"; .Scope.Information(wdFirstCharacterColumnNumber); _
         ";"; .Author; _
         ";"; .Scope.Text _
         ";"; .Range.Text;
     End With
   
   Next listComment
   Close #1
  
 End Sub

== Standard-Kommentar einfügen ==

Diese Makro fügt eien Standard-Kommentar ''Bitte prüfen.'' zum selektierten Text ein.

 Public Sub ReviewThis()

   ActiveDocument.Comments.Add Range:=Selection.Range, _
     Text:="Bitte prüfen."

 End Sub
 
[[Kategorie:Word]]