MS Word Kommentare: Unterschied zwischen den Versionen

Aus Thomas Wiki
Zur Navigation springen Zur Suche springen
(Weitere Makro)
Zeile 1: Zeile 1:
== Kommentare extrahieren ==
== Kommentare extrahieren ==
== Kommentare extrahieren ==


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


Seite, Zeile, Spalte, Author, kommentierter Text, Kommentar Text   
Seite, Zeile, Spalte, Author, kommentierter Text, Kommentar Text   
Zeile 24: Zeile 25:
    
    
  End Sub
  End Sub
== Stanmdard-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]]


== Kommentar: "Bitte prüfen" einfügen ==
== Kommentar: "Bitte prüfen" einfügen ==

Version vom 19. Dezember 2018, 11:14 Uhr

Kommentare extrahieren

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

Stanmdard-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

Kommentar: "Bitte prüfen" einfügen

Diese Makro fügt einen Kommentar "Bitte prüfen" zum selektierten Text hinzu.

Public Sub ReviewThis()
  ActiveDocument.Comments.Add Range:=Selection.Range, _
    Text:="Bitte prüfen."
End Sub