von Rasakul » Mi, 20.08.2014 10:30
Hallo liebe Community!
Mein Plan ist es, ein Writer-Dokument per Makro zu öffnen und anschließend zu einer Textmarke zu springen, wobei gleichzeitig das Dokument schreibgeschützt sein sollte.
Leider scheinen sich Schreibschutz und Textmarken nicht zu vertragen, zumindest erzielt der folgende Code keinen Sprung zur Textmarke, das Dokument wird nur geöffnet:
Code: Alles auswählen
Sub OpenDoc
Dim myProp(0) As new com.sun.star.beans.PropertyValue
myProp(0).name="ReadOnly"
myProp(0).value = True
strBookmark = "MyBookmark"
sURL = ConverttoURL(dies\ist\der\pfad\test.odt)
oDoc = StarDesktop.loadComponentFromURL(sURL, "_blank", 0, myProp())
oViewCursor = oDoc.CurrentController.getviewCursor()
oBookmark = oDoc.Bookmarks.getByName(strBookmark)
oBookmarkAnchor = oBookmark.Anchor
oViewCursor.gotorange(oBookmarkAnchor,false)
End Sub
Deshalb die Frage: gibt es eine Möglichkeit, das Dokument nach dem Sprung in den ReadOnly Modus zu versetzen? Oder gibt es eine andere Möglichkeit, dies zu realisieren?
Danke schonmal für die Hilfe!
LG
Rasakul
Hallo liebe Community!
Mein Plan ist es, ein Writer-Dokument per Makro zu öffnen und anschließend zu einer Textmarke zu springen, wobei gleichzeitig das Dokument schreibgeschützt sein sollte.
Leider scheinen sich Schreibschutz und Textmarken nicht zu vertragen, zumindest erzielt der folgende Code keinen Sprung zur Textmarke, das Dokument wird nur geöffnet:
[code=php]Sub OpenDoc
Dim myProp(0) As new com.sun.star.beans.PropertyValue
myProp(0).name="ReadOnly"
myProp(0).value = True
strBookmark = "MyBookmark"
sURL = ConverttoURL(dies\ist\der\pfad\test.odt)
oDoc = StarDesktop.loadComponentFromURL(sURL, "_blank", 0, myProp())
oViewCursor = oDoc.CurrentController.getviewCursor()
oBookmark = oDoc.Bookmarks.getByName(strBookmark)
oBookmarkAnchor = oBookmark.Anchor
oViewCursor.gotorange(oBookmarkAnchor,false)
End Sub[/code]
Deshalb die Frage: gibt es eine Möglichkeit, das Dokument nach dem Sprung in den ReadOnly Modus zu versetzen? Oder gibt es eine andere Möglichkeit, dies zu realisieren?
Danke schonmal für die Hilfe!
LG
Rasakul