Anzahl Grafiken in Word 2007-Dokument

Hallo,

ist es möglich die Anzahl der in einem Word-Dokument enthaltenen Grafiken (bmps, jpgs, pngs) herauszubekommen?

Gruß, Herbert

ist es möglich die Anzahl der in einem Word-Dokument
enthaltenen Grafiken (bmps, jpgs, pngs) herauszubekommen?

Hallo,
speichere das Dokument als html. Dann sind sie in einem extra Ordner und lassen sich leicht zählen.
So holst du übrigens Grafiken auch ohne Qualitätsverlust aus Word heraus.
Grüße
Ulf

Hallo Ulf,

speichere das Dokument als html. Dann sind sie in einem extra
Ordner und lassen sich leicht zählen.
So holst du übrigens Grafiken auch ohne Qualitätsverlust aus
Word heraus.

diese Tipps sind ab sofort als FAQ:2726 und FAQ:2727 verfügbar.

Danke!

Grüße aus Schönberg (Lübeck)
Wolfgang
(Netwolf)

mit einem kleinen makro ganz einfach:

Sub CountPictures()
For Each obj In ActiveDocument.InlineShapes
 If obj.Type = wdInlineShapeLinkedPicture Or obj.Type = wdInlineShapePicture Then
 Count = Count + 1
 End If
Next

For Each obj In ActiveDocument.Shapes
 If obj.Type = msoLinkedPicture Or obj.Type = msoPicture Then
 Count = Count + 1
 End If
Next
MsgBox "Das Dokument hat " & Count & " Grafiken"
End Sub

lg
erwin