Seitenzahl einer Word-Datein per VBA in Excelzelle
10.03.2006 21:48:07
Kohlhase
Ich hoffe es kann mir jemand bei diesem Problem helfen!?
Ich möchte gern die Anzahl der Seiten einer Word-Datei in einer Excelzelle sehen.
In Word konnte ich die Seitenzahl schon mit felgendem Code ermitteln:
Sub zählen()
Dim pg As String
Dim wrdDoku As Word.Document
Set wrdDoku = GetObject("C:\Diplomarbeit.doc")
wrdDoku.Select
pg = ActiveDocument.ComputeStatistics(wdStatisticPages)
'pg = wrdDoku.Words.Count
MsgBox pg
End Sub
Leider weiß ich jetzt nicht wie ich das Ganze in Excel bekomme.
Vielen Dank für die Hilfe!