MS Word Kommentare

Aus Thomas Wiki
Version vom 16. Januar 2012, 16:38 Uhr von Thomas (Diskussion | Beiträge) (Die Seite wurde neu angelegt: „Extrahieren aller Kommentare in eine CSV File mit den Informationen: Seite, Zeile, Spalet, Author, kommentierter Text, Kommentar Text Sub MitPruefung() …“)
(Unterschied) ← Nächstältere Version | Aktuelle Version (Unterschied) | Nächstjüngere Version → (Unterschied)
Zur Navigation springen Zur Suche springen

Extrahieren aller Kommentare in eine CSV File mit den Informationen: Seite, Zeile, Spalet, 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