Hallo,
Zwar habe ich jetzt alles implementiert, also
1) Bilder auswählen (Danke!!)
2) Auswählen der Captions unter den Bildern.
3) Kopieren und Einfügen der Beschriftungen am Ende des Dokumentes
Leider hat meine Lösung aber noch einen Schönheitsfehler. Die Bildunterschriften sammele ich in einem Array. Danach kommt folgender Code:
Selection.MoveDown Unit:=wdLine, Count:=2
ArrayLen = UBound(myArray) - LBound(myArray) + 1
For i = 1 To ArrayLen - 1
title = myArray(i) & Chr(13)
Selection.TypeText (title)
'Selection.InsertAfter (title)
Next i
Das Problem ist, dass sämtliche Sonderzeichen (Schriftart symbol, tiefgestellte Zeichen etc.) nicht als solche übernommen werden.
Zum Kopieren habe ich CopyFormat übernommen, weiß aber nicht, ob die Eigenschaften damit tatsächlich übernommen werden. Mir sind zwar die Methoden
Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
xlNone, SkipBlanks:=False, Transpose:=False
'Selection.PasteFormat
bekannt, aber außer Selection.TypeText(title) und .insertAfter (title) ist mir keine Methode bekannt, der man einen Text zuweisen könnte und den Text in das WordDokument zu schreiben (die auch funktioniert). Bei denen lässt sich aber nicht SpezialCharacters bzw. Format als Parameter mitgeben.
Gibt es eine Möglichkeit die genaue Übernahme des Formats im ausgegebenen Text sicherzustellen?
Grüße
Thommy7571
|