Hallo zusammen,

vielleicht kann mir jemand bei folgendem Problem helfen. Ich möchte die Seitennummern von Kommentare aus einem Word-Dokument auslesen und nach Excel schreiben.

Auslesen von Kommentartext und dem markierten Kontext des Kommentars geht. Aber wie spricht man die Seitennummer an. Eigentlich sollte "Scope.Information(wdActiveEndAdjustedPageNumber)" funktionieren. Aber die Zeile wirft den Laufzeitfehler 4608-Anwendung- oder Objektorientierter Fehler.

 Weiß jemand Rat?

Hier mal die Prozedur

Sub commentsinexcel()
    Dim AppWD As Object
    Dim AppWDComments As Variant
    Dim CommentCount As Long
    Dim CommentText As String
   
    Set AppWD = CreateObject("Word.Application")
    AppWD.Visible = True
    AppWDFileName = Application.GetOpenFilename '("Word (*.doc),*.doc")
    AppWD.Documents.Open (AppWDFileName)
    Set AppWDactiveDoc = AppWD.ActiveDocument
   
    Set AppWDComments = AppWDactiveDoc.Comments
   
    CommentCount = AppWDComments.Count
   
    For i = 1 To CommentCount
       'insert new line in review protocol
       Worksheets("Review_Report").Rows(22).Insert
      
       'put the comment data in the new line
       Worksheets("Review_Report").Range("A22").Value = AppWDactiveDoc.Name
      
       Worksheets("Review_Report").Range("C22") = "Context: " & AppWDComments(CommentCount - i + 1).Scope & "  End of Context" & Chr(10) & Chr(10) & AppWDComments(CommentCount - i + 1).Range.Text
       Worksheets("Review_Report").Range("C22:E22").Select
       Selection.Merge True
       Worksheets("Review_Report").Range("B22").Value = AppWDComments(CommentCount - i + 1).Initial & AppWDComments(CommentCount - i + 1).Index & ": "
       Worksheets("Review_Report").Range("F22").Value = "open"
       Worksheets("Review_Report").Range("H22") = AppWDComments(CommentCount - i + 1).Scope.PageSetup.PaperSize
       Worksheets("Review_Report").Range("G22") = AppWDComments(CommentCount - i + 1).Scope.Information(wdActiveEndAdjustedPageNumber) 'Fehlerhafte Zeile
       
    Next i
    AppWD.Quit

End Sub

Viele Grüße,

Christof