Pannello di Controllo Moderatore ]

Aprire OTT da macro BASIC

Aprire OTT da macro BASIC

Messaggioda ALAIN » venerdì 17 luglio 2020, 10:35

Buon giorno, con macro BASIC vorrei aprire un file OTT, cioè di un "Modello di documento di testo". Il codice:
Codice: Seleziona tutto   Espandi visualeStringi visuale
      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, 11:20, modificato 1 volta in totale.
Libre Office 6.2.7.1 (x64) su Windows 10 Pro
ALAIN
 
Messaggi: 3
Iscritto il: venerdì 17 luglio 2020, 10:26

Re: Aprire OTT da macro BASIC

Messaggioda charlie » venerdì 17 luglio 2020, 10:39

Ciao @ALAIN e benvenuto sul forum.
Se intanto ti vuoi presentare, farai cosa gradita. Puoi farlo in questa sezione -> https://forum.openoffice.org/it/forum/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/viewtopic.php?f=1&t=2

Buon proseguimento.
charlie
macOS 10.12 Sierra: Open Office 4.1.8 - LibreOffice 6.4.6.2
http://www.charlieopenoffice.altervista.org
Avatar utente
charlie
Site Admin
Site Admin
 
Messaggi: 7000
Iscritto il: mercoledì 19 dicembre 2012, 10:50

Re: Aprire OTT da macro BASIC

Messaggioda ALAIN » martedì 21 luglio 2020, 6:31

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   Espandi visualeStringi visuale
      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
ALAIN
 
Messaggi: 3
Iscritto il: venerdì 17 luglio 2020, 10:26


Torna a Macro

Chi c’è in linea

Visitano il forum: Nessuno e 1 ospite