OpenOffice.info

Ok dann mach ich halt ein neues Thema auf mit der selben Problemstellung.....

Hallo
ich hab genau das gleiche Problem bzw such auch sowas, nur scheint das Makro nicht zu laufen, oder ich hab irgendwas noch falsch gemacht

Vielen dank ,

in der Standard Bibliotek ist es nicht so gut ,ich versuche es in das Dokument einzufügen da es mehrere Anwender bekommen, werde es mal probieren.

Grüße

:D rk

' oooinfo 12809
' 2007-06-23
Sub openCalcWithUpdate

' Create a FilePicker dialog.
oFileDialog = _
 CreateUnoService( "com.sun.star.ui.dialogs.FilePicker" )
' object for file services
oUcb = _
 createUnoService("com.sun.star.ucb.SimpleFileAccess")

' set titel
oFileDialog.setTitle( "Öffnen von *.ods mit automatischem Update" )

' set up filter 
oFileDialog.appendFilter( "OpenDocument Tabellendokument (*.ods)", "*.ods")

' pre-set your source path HERE
InitPath = ConvertToURL( "/zentrale/firma/data/" ) 

' pre-set source path
If oUcb.Exists( InitPath ) Then
	oFileDialog.SetDisplayDirectory( InitPath )
End If

' Dialog anzeigen, ausführen Aktion bei OK
if oFileDialog.execute() = _
 com.sun.star.ui.dialogs.ExecutableDialogResults.OK then
	gesamteAuswahl = oFileDialog.getFiles()
	Dim aFileProp( 0 ) as new com.sun.star.beans.PropertyValue
	aFileProp( 0 ).name = "UpdateDocMode"
	aFileProp( 0 ).value = 3 'full update
	oDok = _
	 StarDesktop.loadComponentFromURL( _
	 gesamteAuswahl( 0 ) , _
	 "_blank", 0, aFileProp())
End If 

End Sub

kopiere den folgenden Code in ein Modul Deiner "Standard"-Bibliothek. Tipp: Angefragt war "Calc" - nimmt man die Filter-Anweisung raus, dann funktioniert das "Öffnen mit update aller Links/Verknüpfungen/Verzeichnisse" auch bei Writer:[code]
' oooinfo 12809
' 2007-06-23
Sub openCalcWithUpdate

' Create a FilePicker dialog.
oFileDialog = _
CreateUnoService( "com.sun.star.ui.dialogs.FilePicker" )
' object for file services
oUcb = _
createUnoService("com.sun.star.ucb.SimpleFileAccess")

' set titel
oFileDialog.setTitle( "Öffnen von *.ods mit automatischem Update" )

' set up filter
oFileDialog.appendFilter( "OpenDocument Tabellendokument (*.ods)", "*.ods")

' pre-set your source path HERE
InitPath = ConvertToURL( "/zentrale/firma/data/" )

' pre-set source path
If oUcb.Exists( InitPath ) Then
oFileDialog.SetDisplayDirectory( InitPath )
End If

' Dialog anzeigen, ausführen Aktion bei OK
if oFileDialog.execute() = _
com.sun.star.ui.dialogs.ExecutableDialogResults.OK then
gesamteAuswahl = oFileDialog.getFiles()
Dim aFileProp( 0 ) as new com.sun.star.beans.PropertyValue
aFileProp( 0 ).name = "UpdateDocMode"
aFileProp( 0 ).value = 3 'full update
oDok = _
StarDesktop.loadComponentFromURL( _
gesamteAuswahl( 0 ) , _
"_blank", 0, aFileProp())
End If

End Sub[/code]
Viel Erfolg!

Hallo ,

gibt es eine Möglichkeit die Abfrage "Verknüpfung aktualisieren" die beim Start eines Dokumentes (Calc) kommt per Makro
zu unterdrücken , bez. automatisch zu beantworten?
(unter Optionen Verknüpfungen ab - bez einstellen kann ich nicht gebrauchen)

MFG

rk