edwinj

Hallo Thomas P,

vielen Dank für den Tipp mit VB bzw. VBA. Leider ist Programmieren nicht gerde meine Stärke. Habe schon im Internet nach Lösungen gesucht und herum probiert. Das Einzige was ich mit einem Makro erreicht habe war, dass ich am Ende eines geöffneten Dokuments die ganzen Dokumentinformationen agehängt bekam.

Nicht auslachen, hier ist das Makro:

Sub test()

' test Makro

' Makro erstellt am 16.08.01 von EJ

Set meinBereich = ActiveDocument.Content

meinBereich.Collapse Direction:=wdCollapseEnd

For Each eigenschaft In ActiveDocument.BuiltInDocumentProperties

With meinBereich

.InsertParagraphAfter

.InsertAfter eigenschaft.Name & "= "

On Error Resume Next

.InsertAfter eigenschaft.Value

End With

Next

End Sub

Vielleicht läßt es sich ja modifizieren, so dass das herauskommt was ich will. Ich komme selber aber nicht auf die Lösung.

Gruß

Hilfe,

ich muss die Seitenzahl (Summe) aller Winword-Dokumente ermitteln, die sich in einem Verzeichnis befinden, machmal auch in mehreren.

Wer kann helfen?

Dank und Gruss