OpenOffice.info

Dim Doc As Object
Dim Dummy()
Dim Url As String
Dim SearchFlags As Long
SearchFlags = com.sun.star.frame.FrameSearchFlag.CREATE + _
com.sun.star.frame.FrameSearchFlag.ALL
Url = "file:///C:/test.sxw"
Doc = StarDesktop.loadComponentFromURL(Url, "MyFrame", _
SearchFlags, Dummy)
MsgBox "Drücken Sie Ok, um das zweite Dokument anzuzeigen."
Url = "file:///C:/test2.sxw"
Doc = StarDesktop.loadComponentFromURL(Url, "MyFrame", _
SearchFlags, Dummy)

Hi,
[color=#800000]Moderation,4: [/color]neue Fragestellung - deswegen neues Thema eröffnet


Habe diesen den Code versucht:
[code]Dim Doc As Object
Dim Dummy()
Dim Url As String
Dim SearchFlags As Long
SearchFlags = com.sun.star.frame.FrameSearchFlag.CREATE + _
com.sun.star.frame.FrameSearchFlag.ALL
Url = "file:///C:/test.sxw"
Doc = StarDesktop.loadComponentFromURL(Url, "MyFrame", _
SearchFlags, Dummy)
MsgBox "Drücken Sie Ok, um das zweite Dokument anzuzeigen."
Url = "file:///C:/test2.sxw"
Doc = StarDesktop.loadComponentFromURL(Url, "MyFrame", _
SearchFlags, Dummy)[/code]
Der stammt aus den StarOfficeTM 7 Office Suite Basic Programmierhandbuch.
Der funktioniert aber nicht wie beschrieben.
Der soll das erste Dokument durch das Zweite, im selben Fenster, ersetzten.
Geöffnet wird es aber in einem Neuen, und die Makros gehen dort auch nicht. Fehlermeldung: "Aus Sicherheitsgründen kann das Makro nicht ausgeführt werden."

Zudem bräuchte ich aber auch noch den Rahmennamen meines aktuellen Fensters.

Grüße


[color=#800000]Moderation,4[/color]: Neue Frage = Neuer Thread!; Beitrag abgetrennt; Betreff angepasst