Office: [VBA] - Kommentare aus Word in Excel schreiben

Hallo zusammen,

ich habe ein Makro, das die Kommentare aus Worddateien ausliest und in eine Excel-Tabelle (ab Zeile 4) einfügt. Dabei schreibe ich verschiedene Dinge wie z.B. Textpassage, Kommentar, heutiges Datum etc. in die Tabelle.

Allerdings bekomme einen Fehler bei folgender Zeile in meinem Code, der die Seitenzahl des Kommentars in Spalte 5 schreiben soll:

Cells(rowNum, 5).Value = comment.Scope.Information(wdActiveStartPageNumber)

Weiß einer von euch, was ich falsch mache?

Viele Grüße

Code:

Sub ExtractCommentsFromWord()

    ' Declare variables
    Dim wdApp As Object
    Dim wdDoc As Object
    Dim comment As Object
    Dim rowNum As Integer
    Dim varFile As Variant
    Dim fd As Office.FileDialog
    
    
    Set fd = Application.FileDialog(msoFileDialogFilePicker)
    
    With fd
    
        .Filters.Clear
        .Filters.Add "Doc Files", "*.docx?", 1
        .Title = "Choose an Doc file"
        .AllowMultiSelect = True
    
        .InitialFileName = "C:\"
    
    End With
    
    If fd.Show = True Then
            
        ' Initialize row number for writing comments to Excel
        rowNum = 4
            
            
        For Each varFile In fd.SelectedItems
                  
            ' Create a new instance of Word application
            Set wdApp = CreateObject("Word.Application")
            ' Open the Word document
            Set wdDoc = wdApp.Documents.Open(varFile)
                
            
                ' Loop through all comments in the Word document
                For Each comment In wdDoc.Comments
                
                
                    ' Write comment information to Excel sheet
                    Cells(rowNum, 1).Value = rowNum - 3 ' Count from 1 to n
                    Cells(rowNum, 2).Value = wdDoc.Name
                    Cells(rowNum, 6).Value = comment.Scope.FormattedText
                    Cells(rowNum, 7).Value = comment.Range.Text
                    Cells(rowNum, 8).Value = Date
                    Cells(rowNum, 5).Value = comment.Scope.Information(wdActiveStartPageNumber)
                    
                    rowNum = rowNum + 1
                    
                Next comment
    
            ' Close the Word document and application
            wdDoc.Close
            wdApp.Quit
        
        Next varFile
        
    End If
    
    ' Release memory
    Set wdDoc = Nothing
    Set wdApp = Nothing
    

    
    MsgBox "Done"
    
End Sub

 

Hallo,

im Word.Application-Object gibt es keine vordefinierte Konstante namens wdActiveStartPageNumber.

Aber selbst wenn es sie gäbe, würde sie nicht funktionieren, so wie du die Word.Application-Instanz erzeugst: Im Late-Binding-Verfahren musst du die Konstante explizit deklarieren/definieren mit "Const wdKonstantenname = Zahl oder String", damit der Compiler sie kennt - oder zumindest eine Referenz zB. mit "wdApp.wdKonstante" hinzufügen.

 

Hallo Anton,

danke. Leider bekomme ich es mit deinen Hinweisen nicht selbst hin. Hättest du mir bitte den passenden Code dafür?

Mit Late-Binding oder Early-Binding habe ich mich noch nicht beschäftigt. Könnte ich meinen Code mit Early-Binding verbessern?

viele Grüße

 

Hallo,

welche wdInformation-Konstanten es in Word tatsächlich gibt und was sie bedeuten, kannst du folgendem Microsoft-Hilfelink entnehmen:
WdInformation-Enumeration (Word) | Microsoft Learn

Eine wdInformation-Konstante, die tatsächlich existiert, ist zB.: wdActiveEndPageNumber, sodass die Problemzeile modifiziert dann lauten würde:
Cells(rowNum, 5).Value = comment.Scope.Information(wdApp.wdActiveEndPageNumber)

 

Hallo,

Code:

Option Explicit

#Const IsEarlyBinding = False  '<-- Compilierung für Late-Binding ist eingeschaltet !!
'#Const IsEarlyBinding = True

Sub ExtractCommentsFromWord()

#If IsEarlyBinding Then

    ' Declare variables
    ' Early-Binding
    ' Create a new instance of Word application AT COMPILE-TIME
    Dim wdApp As New Word.Application
    Dim wdDoc As Word.Document
    Dim comment As Word.comment
 
#Else

    ' Declare variables
    ' Late-Binding
    Dim wdApp As Object
    Dim wdDoc As Object
    Dim comment As Object
    ' Create a new instance of Word application AT RUN-TIME
    Set wdApp = CreateObject("Word.Application")
 
#End If

    Dim rowNum As Integer
    Dim varFile As Variant
    Dim fd As Office.FileDialog
 
 
    Set fd = Application.FileDialog(msoFileDialogFilePicker)
 
    With fd
 
        .Filters.Clear
        .Filters.Add "Doc Files", "*.docx?", 1
        .Title = "Choose an Doc file"
        .AllowMultiSelect = True
 
        .InitialFileName = "C:\"
 
    End With
 
    If fd.Show = True Then
         
        ' Initialize row number for writing comments to Excel
        rowNum = 4
         
         
        For Each varFile In fd.SelectedItems
               
            ' Open the Word document
            Set wdDoc = wdApp.Documents.Open(varFile)
             
         
                ' Loop through all comments in the Word document
                For Each comment In wdDoc.Comments
             
             
                    ' Write comment information to Excel sheet
                    Cells(rowNum, 1).Value = rowNum - 3 ' Count from 1 to n
                    Cells(rowNum, 2).Value = wdDoc.Name
                    Cells(rowNum, 6).Value = comment.Scope.FormattedText
                    Cells(rowNum, 7).Value = comment.Range.Text
                    Cells(rowNum, 8).Value = Date
                    Cells(rowNum, 5).Value = comment.Scope.Information(wdDoc.wdActiveEndPageNumber)
                 
                    rowNum = rowNum + 1
                 
                Next comment
 
            ' Close the Word document and application
            wdDoc.Close
            wdApp.Quit
     
        Next varFile
     
    End If
 
    ' Release memory
    Set wdDoc = Nothing
    Set wdApp = Nothing
 
    MsgBox "Done"
 
End Sub

obiger VBA-Code ist so eingestellt, dass er im Late-Binding-Modus kompiliert wird. Stellst du jedoch die beiden Zeilen
'#Const IsEarlyBinding = False
#Const IsEarlyBinding = True '<-- Kompilierung für Early-Binding ist eingeschaltet !!
um, wird bei der nächsten Kompilierung der VBA-Code fürs Early-Binding-Verfahren erzeugt.
Voraussetzung, dass diese Kompilierung ohne Fehlermeldung abläuft, ist, dass du die Word-Library vor der Kompilierung eingebunden hast, wie folgt: Menü des VBA-Editors > Extras > Verweise ...