Verknüpfung aktualisieren per Makro unterdrücken/ beantworte

[rk67]

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

[komma4]

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: Alles auswählen

' 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

Viel Erfolg!

[rk67]

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

rk

[aqua]

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

[aqua]

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