Hab den Tip mit : ActivePresentation.Slides.Count aber da komm ich auch nciht weiter
Könntet ihr mir da helfen
Der Code leicht eingepasst für mich ist
Code:
Sub Seiten_Zahl_von_Dokumenten_öffnen()
Dim Wordobj As Object
Dim wrdApp As Word.Application
Dim wrdDoc As Word.Document
Zeilenanzahl = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row
For x = 1 To Zeilenanzahl
Set wrdApp = CreateObject("Word.Application")
Dateiname = Range("B" & x) & "\" & Range("A" & x)
On Error Resume Next
Set wrdDoc = wrdApp.Documents.Open(Dateiname)
Anzahl = wrdApp.Selection.Information(wdNumberOfPagesInDocument)
Range("C" & x) = Anzahl
wrdApp.Quit False
Set wrdDoc = Nothing
Set wrdApp = Nothing
Next x
End Sub