I have been having trouble completing this task. so i have been using a workaround i have oo save in a folder and each time the computer starts the folder is transferred to the network location using a windows script.
my current code
Code: Select all
Sub TEMPSAVE
Dim args1(2) as new com.sun.star.beans.PropertyValue
args1(0).Name = "Zoom.Value"
args1(0).Value = 100
args1(1).Name = "Zoom.ValueSet"
args1(1).Value = 28703
args1(2).Name = "Zoom.Type"
args1(2).Value = 0
Dim args2(1) as new com.sun.star.beans.PropertyValue
Dim Arg(0) as new com.sun.star.beans.PropertyValue
url = ConvertToUrl("C:\NetShare\Est Pdf\TEMP.ods")
oDoc.StoreAsUrl(url,Array())
'ret& = Msgbox ("READY FOR EDIT", 10 + 1, "Information")
End Sub
Code: Select all
url = ConvertToUrl("\\wolv54-pc\documents\TEMP.ods")
oDoc.StoreAsUrl(url,Array())