[gelöst] Passwortgeschützte Datei *einfügen* per Makro

[akoerber]

Hallo,
ich möpchte per Macro an der Cursorposition eine Datei *einfügen* (wie Einfügen / Datei), die Passwortgeschützt ist.

Der folgende Macro öffnet zwar die Datei, aber in einem neuen Fenster. Wie kann ich es hinbekommen, dass die Einfügung an der aktuellen Cursorposition einer existierenden offenen Datei erfolgt?

Dank im Voraus

Andreas
--
sub Dateieinfügen
Dim Doc As Object
Dim FileProperties(1) As New com.sun.star.beans.PropertyValue
Dim Url As String
Dim PWD As String

REM Variable "PWD" Abfrage; leerer Default-Wert
PWD = InputBox("Passwort:", "Dateieinfügung", "")

REM Dateiname fest vorgeben
Url = "file:///P:/xyz.odt"

REM Passwort an Passwort-Argument übergeben
FileProperties(0).Name = "Password"
FileProperties(0).Value = PWD

REM Datei aufrufen mit Passwort in das offene Dokument (?)
Doc = StarDesktop.loadComponentFromURL(Url, , 0, FileProperties())

end sub

[ykcim]

Hallo,

der richtige Befehl dafür ist InsertDocumentFromUrl an der Cursorposition.
Ob es mit Passwort klappt, habe ich jetzt nicht ausprobiert (zu spät ich will ins Bett ).

Code: Alles auswählen

  oCURsor = oDoc.text.createtextcursor
  oCURsor.InsertDocumentFromUrl(Url,FileProperties())

mfg
Michael

[akoerber]

Danke, ykcim,

Ich habe den Makro nun wie folgt verändert:

sub Signatur
Dim Doc As Object
Dim FileProperties(1) As New com.sun.star.beans.PropertyValue
Dim Url As String
Dim PWD As String

REM Variable "PWD" abfrage; leerer Default-Wert
PWD = InputBox("Passwort:", "Signature", "")

REM Dateiname fest vorgeben
Url = "file:///P:/xyz.odt"

REM Passwort an Passwort-Argument übergeben
FileProperties(0).Name = "Password"
FileProperties(0).Value = PWD

oDoc = thiscomponent
oCURsor = oDoc.text.createtextcursor()

REM Datei n das offene Document an Cursorposition aufrufen - mit Passwort (?)
oCURsor.InsertDocumentFromUrl(Url,FileProperties())

end sub

Leider fügt er die Datei weit weit oben ein, nicht an der Stelle, wo der Schreibcursor bei Aufruf stand.
Was ist noch falsch?

Dank im Voraus

akoerber

[Karolus]

Hallo
Möchtest du beim sichtbarem Cursor einfügen ? :

Code: Alles auswählen

....
....
oCURsor = oDoc.text.createtextcursor()
oViewCursor=oDoc.GetCurrentController.ViewCursor
REM Datei n das offene Document an Cursorposition aufrufen - mit Passwort (?)
oCursor.gotoRange(oViewCursor,false)
oCURsor.InsertDocumentFromUrl(Url,FileProperties())

weitere Infos hier
Gruß Karo

[akoerber]

Klasse,
es geht.
Dank und Gruß

Andreas