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
|