Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
740to744
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
740to744
740to744
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Seitenzahl einer Word-Datein per VBA in Excelzelle

Seitenzahl einer Word-Datein per VBA in Excelzelle
10.03.2006 21:48:07
Kohlhase
Hallo!
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!

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Seitenzahl einer Word-Datein per VBA in Excelzelle
10.03.2006 21:59:25
chris
Was hälst du davon ?
bei mir klappt es.

Sub neu()
Set wrdDoku = GetObject("C:\test.doc")
pg = wrdDoku.ComputeStatistics(seiten) - 3
MsgBox pg
End Sub

AW: Seitenzahl einer Word-Datein per VBA in Excelz
10.03.2006 22:22:40
Kohlhase
Vielen Dank für die schnelle Antwort!!
Und tatsächlich... Doch so einfach! :-)
Allerdings liefert dieser Code die Anzahl der Wörter.
Hast du vielleicht noch ne Idee wie ich die Seiten rausbekomme?
Vielen Dank!
Anzeige

311 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige