|
Hallo,
eine häufig vorkommende Arbeit ist vor dem Einreichen eines Artikels aus dem fertigen Artikel das Manuskript zu erstellen. Ich verwende WORD2010 unter WINDOWS 10. In dem darf es keine aktiven Felder mehr geben (von Beschriftungen, Referenzen etc.) und alle Bildunterschriften müssen am Ende aufgelistet sein sowie alle Bilder gelöscht. Leider bereitet schon das programmierte Auswählen der Bilder große Probleme. Ich habe ein Worddokument Artikel.docx verwendet mit Text, Tabellen und Bildern, dann folgenden Code in VBA eingegeben und als Makro ausgeführt.
Sub BilderTest()
Dim anzahl As Integer
anzahl = ActiveDocument.Shapes.Count
ActiveDocument.Shapes.SelectAll
End Sub
Selbst diese einfachen Zeilen funktionieren nicht. Zum einen wird für anzahl bei der Ausführung der wert Null angegeben (beim Debugging mit F8.). Auch inlineShapes funktionieren nicht. Ich habe zum einen Graphiken von Origin im Text zum anderen Bilder (*.tif, *.gif) mittels Copy Paste eingefügt. Sollten die nicht als solche erkannt werden?
Zum anderen wird zwar das erste Bild ausgewählt, aber danach erhalte ich einen Fehler "Laufzeitfehler '70' Zugriff verweigert. Leider scheint dieser Fehler, den ich auch bereits gegoogelt habe, viele Ursachen haben zu können.
Ich habe schon mehrere WORD-Makros programmiert, aber in diesem Fall funktioniert irgendwie gar nichts. Könnte mir bitte jemand helfen?
Grüße
Tommy7571
|