Top-Themen

Aktuelle Themen (A bis Z)

Administrator.de FeedbackApache ServerAppleAssemblerAudioAusbildungAuslandBackupBasicBatch & ShellBenchmarksBibliotheken & ToolkitsBlogsCloud-DiensteClusterCMSCPU, RAM, MainboardsCSSC und C++DatenbankenDatenschutzDebianDigitiales FernsehenDNSDrucker und ScannerDSL, VDSLE-BooksE-BusinessE-MailEntwicklungErkennung und -AbwehrExchange ServerFestplatten, SSD, RaidFirewallFlatratesGoogle AndroidGrafikGrafikkarten & MonitoreGroupwareHardwareHosting & HousingHTMLHumor (lol)Hyper-VIconsIDE & EditorenInformationsdiensteInstallationInstant MessagingInternetInternet DomäneniOSISDN & AnaloganschlüsseiTunesJavaJavaScriptKiXtartKVMLAN, WAN, WirelessLinuxLinux DesktopLinux NetzwerkLinux ToolsLinux UserverwaltungLizenzierungMac OS XMicrosoftMicrosoft OfficeMikroTik RouterOSMonitoringMultimediaMultimedia & ZubehörNetzwerkeNetzwerkgrundlagenNetzwerkmanagementNetzwerkprotokolleNotebook & ZubehörNovell NetwareOff TopicOpenOffice, LibreOfficeOutlook & MailPapierkorbPascal und DelphiPeripheriegerätePerlPHPPythonRechtliche FragenRedHat, CentOS, FedoraRouter & RoutingSambaSAN, NAS, DASSchriftartenSchulung & TrainingSEOServerServer-HardwareSicherheitSicherheits-ToolsSicherheitsgrundlagenSolarisSonstige SystemeSoziale NetzwerkeSpeicherkartenStudentenjobs & PraktikumSuche ProjektpartnerSuseSwitche und HubsTipps & TricksTK-Netze & GeräteUbuntuUMTS, EDGE & GPRSUtilitiesVB for ApplicationsVerschlüsselung & ZertifikateVideo & StreamingViren und TrojanerVirtualisierungVisual StudioVmwareVoice over IPWebbrowserWebentwicklungWeiterbildungWindows 7Windows 8Windows 10Windows InstallationWindows MobileWindows NetzwerkWindows ServerWindows SystemdateienWindows ToolsWindows UpdateWindows UserverwaltungWindows VistaWindows XPXenserverXMLZusammenarbeit

Frage Microsoft Microsoft Office

GELÖST

Excel VBA Makro zum Auslesen von Seitenzahlen in Word Dokumenten

Mitglied: Martin4711

Martin4711 (Level 1) - Jetzt verbinden

29.03.2009, aktualisiert 13:15 Uhr, 12697 Aufrufe, 9 Kommentare

Hallo zusammen,

ich habe in einem Verzeichnis circa 50 Word Dokumente und möchte in einem Excel Blatt eine Übersicht über die Word Dateien erstellen. Dazu soll einfach nur der Word-Dateiname und die Seitenanzahl des Word Dokuments in die Excel Übersicht übernommen werden.

Kann mir jemand mit einem VBA Script aushelfen?

Vielen Dank,
Martin
Mitglied: bastla
29.03.2009 um 18:36 Uhr
Hallo Martin4711 und willkommen im Forum!

Könnte etwa so aussehen:
01.
Sub WordStats() 
02.
Basis = "D:\Word-Dateien" 
03.
Typ = "doc" 'in Kleinbuchstaben 
04.
 
05.
Set wd = CreateObject("Word.Application") 
06.
Zeile = 3 'ab dieser Zeile werden die Informationen in das Tabellenblatt eingetragen 
07.
Set fso = CreateObject("Scripting.FileSystemObject") 
08.
For Each Datei In fso.GetFolder(Basis).Files 
09.
    If LCase(fso.GetExtensionname(Datei.Name)) = Typ Then 
10.
        Set doc = wd.Documents.Open(Datei.Path) 
11.
        Cells(Zeile, "A") = Datei.Name 
12.
        Cells(Zeile, "B") = doc.BuiltinDocumentProperties(14) 
13.
        doc.Close False 
14.
    End If 
15.
    Zeile = Zeile + 1 
16.
Next 
17.
Columns("A:B").AutoFit 
18.
Set wd = Nothing 
19.
End Sub
Grüße
bastla
Bitte warten ..
Mitglied: Minion
29.03.2009 um 18:39 Uhr
Für 50 Dateien:

1. dir *.doc > worddoku.txt
2. worddoku.txt in Excel importieren
3. Jedes Dokument aus der Textdatei öffnen und die Seitenzahl ermitteln
Bitte warten ..
Mitglied: 76109
31.03.2009 um 15:31 Uhr
Hallo bastla,

die Seitenanzahl gibt es unter:

01.
            Cells(Zeile, "B") = doc.Content.End
Gruß Dieter
Bitte warten ..
Mitglied: Martin4711
31.03.2009 um 16:33 Uhr
Super, 1000 Dank! Die Lösung funktioniert prima...

Viele Grüße,
Martin
Bitte warten ..
Mitglied: bastla
31.03.2009 um 17:36 Uhr
@76109
01.
Cells(Zeile, "B") = doc.Content.End
Da erhalte ich aber einige abenteuerliche Werte (als Seitenanzahl) ...

... ist dann doch eher eine Zeichenanzahl - allerdings nicht gleich dem Ergebnis von
 doc.BuiltinDocumentProperties(16)
Grüße
bastla
Bitte warten ..
Mitglied: 76109
31.03.2009 um 18:13 Uhr
Hallo bastla,

wenn ich bei mir doc's lade, dann steht bei mir in "doc.BuiltinDocumentProperties" nix drin (Debbuggerfehler)

Ich habe doc's mit 1,2,3,4, und 5 Seiten (allerdings leer) getestet und da hat die Seitenanzahl mit "doc.Content.End"
gestimmt?

Gruß Dieter
Bitte warten ..
Mitglied: bastla
31.03.2009 um 18:23 Uhr
@did1954
Test unter Office2003 mit einigen Worddateien ("Test5.doc" enthält wie bei Dir nur leere Seiten - dafür aber gleich 12 ):
doc.BuiltinDocumentProperties(14): 
Test2.doc	2 
Test1.doc	1 
Test3.doc	2 
Test4.doc	1 
Test5.doc	12 
 
doc.BuiltinDocumentProperties(16): 
Test2.doc	4134 
Test1.doc	1118 
Test3.doc	1781 
Test4.doc	2383 
Test5.doc	0 
 
doc.Content.End: 
Test2.doc	4865 
Test1.doc	1294 
Test3.doc	2186 
Test4.doc	3010 
Test5.doc	12
Scheint so, als würden mit "Content.End" alle Zeichen (also auch sämtliche Steuerzeichen, wie zB Seitenvorschub) gezählt werden.

Grüße
bastla
Bitte warten ..
Mitglied: 76109
31.03.2009 um 18:47 Uhr
Hallo bastla,

es scheint so, dass .Content.End alle Textzeichen zählt. Aber mit .BuiltIn bekomme ich immer noch Debuggerfehler.
Meldung "nicht verfügbar". Habe noch Office XP?

Gruß Dieter
Bitte warten ..
Mitglied: 76109
31.03.2009 um 19:02 Uhr
Hallo bastla,

also jetzt aber, jetzt funktioniert BuiltIn doch (Syntaxfehler ?), aber mit falschen Seitenzahlen:

Doc01 = 1
Doc02 = 2
Doc03 = 3
Doc04 = 3
Doc05 = 3

Gruß Dieter
Bitte warten ..
Ähnliche Inhalte
Batch & Shell
Word VBA - Powershell - Seitenzahlen - jede Seite
gelöst Frage von internet2107Batch & Shell2 Kommentare

Man möchte gerne bestehende Worddokumente entsprechend ändern (mit POwershell), dass folgende Zusätze eingebaut werden. Ich finde Unmengen an Material ...

VB for Applications
Excel Datei nach dem Auslesen mit Word Makro noch gesperrt
gelöst Frage von vossbaerVB for Applications2 Kommentare

Guten Morgen, ich habe eine Wordvorlage mit dern Hilfe ich Daten aus einer Excel-Datei auslese und das Dokument mit ...

Microsoft Office
SharePoint, Word, Excel. Auslesen mittels VBA und XML
gelöst Frage von schwazzaMicrosoft Office10 Kommentare

Hallo zusammen, ich lese zurzeit in Excel mittels VBA ein Word-Dokument aus, das auf dem SharePoint liegt. Im Word-Dokument ...

Microsoft Office
VBA Excel Makro - Serienbrief in Word aus Excel starten und anschließen einzeln speichern
gelöst Frage von abuelitoMicrosoft Office5 Kommentare

Hallo an Alle, ich möchte gerne aus Excel heraus mein Serienbrief starten und die Briefe einzeln speichern. Das bedeutet, ...

Neue Wissensbeiträge
Linux

Meltdown und Spectre: Linux Update

Information von Frank vor 12 StundenLinux1 Kommentar

Meltdown (Variante 3 des Prozessorfehlers) Der Kernel 4.14.13 mit den Page-Table-Isolation-Code (PTI) ist nun für Fedora freigegeben worden. Er ...

Tipps & Tricks

Solutio Charly Updater Fehlermeldung: Das Abgleichen der Dateien in -Pfad- mit dem Datenobject ist fehlgeschlagen

Tipp von StefanKittel vor 1 TagTipps & Tricks

Hallo, hier einmal als Tipp für alle unter Euch die mit der Zahnarztabrechnungssoftware Charly von Solutio zu tun haben. ...

Sicherheit

Meltdown und Spectre: Wir brauchen eine "Abwrackprämie", die die CPU-Hersteller bezahlen

Information von Frank vor 1 TagSicherheit12 Kommentare

Zum aktuellen Thema Meltdown und Spectre: Ich wünsche mir von den CPU-Herstellern wie Intel, AMD oder ARM eine Art ...

Sicherheit

Meltdown und Spectre: Realitätscheck

Information von Frank vor 1 TagSicherheit9 Kommentare

Die unangenehme Realität Der Prozessorfehler mit seinen Varianten Meltdown und Spectre ist seit Juni 2017 bekannt. Trotzdem sind immer ...

Heiß diskutierte Inhalte
Sicherheit
Meltdown und Spectre: Die machen uns alle was vor
Information von FrankSicherheit24 Kommentare

Aktuell sieht es in den Medien so aus, als hätten die Hersteller wie Intel, Microsoft und Co den aktuellen ...

Ubuntu
Ubuntu - Starter für nicht vertrauenswürdige Anwendungen
Frage von adm2015Ubuntu17 Kommentare

Hallo zusammen, Ich verwende derzeit die Ubuntu Versionen 17.10 bzw. im Test 18.04. Ich habe mehrere .desktop Dateien in ...

Netzwerke
Packet loss bei "InternetLeitungsvollauslastung"
gelöst Frage von Freak-On-SiliconNetzwerke17 Kommentare

Servus; Ja der Titel klingt komisch, is aber so. Wenn die Internetleitung voll ausgelastet ist, hab ich extreme packet ...

Windows 10
Automatische daten kopieren, USB zu USB unter Win10 im Hintergrund
Frage von DerEisigeWindows 1016 Kommentare

Hallo Leute, ich bin auf der Suche nach einem Skript, dass von einem USB Stick automatisch nach dem einstecken ...