Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
740to744
740to744
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Seitenzahl einer Word-Datein per VBA in Excelzelle

Forumthread: 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!
Anzeige

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
Anzeige

Infobox / Tutorial

Seitenzahl einer Word-Datei per VBA in Excelzelle

Schritt-für-Schritt-Anleitung

Um die Seitenanzahl einer Word-Datei in einer Excel-Zelle mit VBA zu ermitteln, folge diesen Schritten:

  1. Öffne Excel und drücke ALT + F11, um den VBA-Editor zu öffnen.

  2. Füge ein neues Modul ein: Klicke im Menü auf Einfügen > Modul.

  3. Kopiere den folgenden VBA-Code und füge ihn in das Modul ein:

    Sub SeitenzahlInExcel()
   Dim pg As Long
   Dim wrdDoku As Object
   Set wrdDoku = GetObject("C:\Pfad\zu\deiner\Datei.docx") ' Passe den Pfad an
   pg = wrdDoku.ComputeStatistics(2) ' 2 steht für wdStatisticPages
   ThisWorkbook.Sheets(1).Cells(1, 1).Value = pg ' Schreibe in Zelle A1
   wrdDoku.Close
   Set wrdDoku = Nothing
End Sub

  4. Ändere den Dateipfad zu deiner Word-Datei.

  5. Schließe den VBA-Editor und kehre zu Excel zurück.

  6. Führe das Makro aus, um die Seitenzahl in die Excel-Zelle zu schreiben.

Häufige Fehler und Lösungen

  • Fehler: "Datei nicht gefunden"

    • Überprüfe den Datei-Pfad. Stelle sicher, dass die Datei existiert und der Pfad korrekt ist.

  • Fehler: "Object variable not set"

    • Stelle sicher, dass du die Word-Bibliothek im VBA aktiviert hast. Gehe zu Extras > Verweise und aktiviere "Microsoft Word xx.x Object Library".

Alternative Methoden

Falls du kein VBA verwenden möchtest, kannst du auch die Word-Funktion direkt in Word nutzen und die Seitenanzahl manuell in Excel übertragen. Alternativ gibt es Online-Tools, die die Seitenzahlen in Word-Dokumenten zählen können, jedoch sind diese möglicherweise weniger zuverlässig als der VBA-Ansatz.

Praktische Beispiele

Beispiel 1: Um die Seitenzahl einer Diplomarbeit zu ermitteln, kannst du den obigen Code anpassen, um die Datei Diplomarbeit.doc zu verwenden.

Beispiel 2: Wenn du die Gesamtseitenzahl für mehrere Dokumente benötigst, kannst du eine Schleife im VBA-Code implementieren, um alle gewünschten Dokumente nacheinander zu öffnen und die Seitenzahlen zu zählen.

Tipps für Profis

  • Experimentiere mit den verschiedenen ComputeStatistics-Werten, um zusätzliche Informationen wie die Wortanzahl oder die durchschnittliche Seitenzahl zu erhalten.
  • Organisiere deine Word-Dateien in einem zentralen Ordner, um den Zugriff über VBA zu erleichtern.
  • Speichere dein Excel-Dokument als Makro-fähige Datei (*.xlsm), um die VBA-Funktionalität beizubehalten.

FAQ: Häufige Fragen

1. Wie kann ich die Seitenanzahl für ein geschütztes Word-Dokument abrufen? Wenn das Dokument passwortgeschützt ist, benötigst du das Passwort, um darauf zugreifen zu können. Der VBA-Code funktioniert nicht, wenn die Datei gesperrt ist.

2. Kann ich die Seitenanzahl automatisch aktualisieren lassen? Ja, du kannst das Makro so einstellen, dass es beim Öffnen der Excel-Datei automatisch ausgeführt wird. Füge dazu den Code in das Workbook_Open-Ereignis ein.

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige