Beim Öffnen eines WriterDokuments ein Bild austauschen
Verfasst: Mi 14. Aug 2019, 10:42
Hallo,
ich habe Einen Serienbrief, bei dem ich in Abhängigkeit von Parametern eine ersetzen muss.
Wenn ich innerhalb des Dokumentes eine Makroaufzeichnung mache, kommt folgender Code heraus:
Ich fügte diesen Makro dem Ereignis Dokument aktivieren hinzu. Er wird auch aufgerufen.
Der Makro funktioniert allerdings nur, wenn der Fokus auf dem richtigen Bild steht.
Sicherer wäre es, wenn ich das Bild(Bild1 oder Bild2) direkt anspreche und per Makro die Adresse der Bildquelle (Verzeichnis* Dateiname)
austausche.
Nach dem Öffnen des Dokuments finde ich im Zweig oDoc/GraphicObjects die Namen der Bilder.
Gibt es eine Möglichkeit diese explizit anzusprechen?
Für Hilfe bedanke ich mich
Jürgen
ich habe Einen Serienbrief, bei dem ich in Abhängigkeit von Parametern eine ersetzen muss.
Wenn ich innerhalb des Dokumentes eine Makroaufzeichnung mache, kommt folgender Code heraus:
Code: Alles auswählen
sub changeImage
rem ----------------------------------------------------------------------
rem define variables
dim document as object
dim dispatcher as object
rem ----------------------------------------------------------------------
rem get access to the document
document = ThisComponent.CurrentController.Frame
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")
rem ----------------------------------------------------------------------
dispatcher.executeDispatch(document, ".uno:ChangePicture", "", 0, Array())
end subDer Makro funktioniert allerdings nur, wenn der Fokus auf dem richtigen Bild steht.
Sicherer wäre es, wenn ich das Bild(Bild1 oder Bild2) direkt anspreche und per Makro die Adresse der Bildquelle (Verzeichnis* Dateiname)
austausche.
Nach dem Öffnen des Dokuments finde ich im Zweig oDoc/GraphicObjects die Namen der Bilder.
Gibt es eine Möglichkeit diese explizit anzusprechen?
Für Hilfe bedanke ich mich
Jürgen