Aprire OTT da macro BASIC

Rispondi
ALAIN
Messaggi: 3
Iscritto il: venerdì 17 luglio 2020, 11:26

Aprire OTT da macro BASIC

Messaggio da ALAIN »

Buon giorno, con macro BASIC vorrei aprire un file OTT, cioè di un "Modello di documento di testo". Il codice:

Codice: Seleziona tutto

		Dim Doc As Object
		Dim Dummy()
		Dim FileProperties(0) As New com.sun.star.beans.PropertyValue
		FileProperties(0).Name = "AsTemplate"
		FileProperties(0).Value = False
		Doc = StarDesktop.loadComponentFromURL(FLES(0),"_blank",0,Dummy, FileProperties())
(FLES(i) è l'URL relativo al documento OTT) apre un nuovo documento mentre ho bisogno di aprire e lavorare proprio il file OTT. Grazie per la cortese e preziosa collaborazione che vorrete prestare. Buona giornata.
Ultima modifica di ALAIN il venerdì 17 luglio 2020, 12:20, modificato 1 volta in totale.
Libre Office 6.2.7.1 (x64) su Windows 10 Pro
Avatar utente
charlie
Site Admin
Site Admin
Messaggi: 8804
Iscritto il: mercoledì 19 dicembre 2012, 10:50
Contatta:

Re: Aprire OTT da macro BASIC

Messaggio da charlie »

Ciao @ALAIN e benvenuto sul forum.
Se intanto ti vuoi presentare, farai cosa gradita. Puoi farlo in questa sezione -> viewforum.php?f=16
Se desideri avere una panoramica delle regole del forum puoi consultare il Manuale di sopravvivenza -> http://forum.openoffice.org/it/forum/vi ... hp?f=1&t=2

Buon proseguimento.
charlie
macOS 14.4.1 Sonoma: Open Office 4.1.15 - LibreOffice 7.5.7.2
http://www.charlieopenoffice.altervista.org
ALAIN
Messaggi: 3
Iscritto il: venerdì 17 luglio 2020, 11:26

Re: Aprire OTT da macro BASIC

Messaggio da ALAIN »

Buon giorno, problema risolto. FileProperties() è il 4° parametro di StarDesktop.loadComponentFromURL mentre, per un errore, mi era rimasto un parametro in più. Il codice corretto e funzionante, pertanto è:

Codice: Seleziona tutto

		Dim Doc As Object
		Dim Dummy()
		Dim FileProperties(0) As New com.sun.star.beans.PropertyValue
		FileProperties(0).Name = "AsTemplate"
		FileProperties(0).Value = False
		Doc = StarDesktop.loadComponentFromURL(FLES(0),"_blank",0, FileProperties())
Buona giornata!
Libre Office 6.2.7.1 (x64) su Windows 10 Pro
Rispondi