OpenOffice/LibreOffice OLE Automation: Executer une macro

Version imprimable

Bonjour,

Je souhaite simplement exécuter une macro qui est dans un document Ooffice, depuis Delphi via l'OLE comment faire ?

Je peux charger le document

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
 
//------------------------------------------------------------------------------------------------------------------------------
procedure TForm1.BtnLoadDocumentClick(Sender: TObject);
var
  LoadParams : Variant;
  NomFichier : AnsiString;
begin
  OpenOffice  := CreateOleObject('com.sun.star.ServiceManager');
  OpenDesktop := OpenOffice.createInstance('com.sun.star.frame.Desktop');
  LoadParams  := VarArrayCreate([0, -1], varVariant);
  NomFichier  := StringReplace(DocumentFileName, '\', '/', [rfReplaceAll, rfIgnoreCase]);
  OLEDocument := openDesktop.LoadComponentFromURL( 'file:///'+NomFichier, '_blank', 0,  LoadParams);
end;

Je peux mettre à jour un signet:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
 
procedure TForm1.BtnSetDateTimeClick(Sender: TObject);
var
 bmk : variant;
begin
  try 
    bmk := OLEDocument.Bookmarks.getByName('DateTime').Anchor; 
  except  
    bmk:=null; 
  end;
  if not(VarIsEmpty(bmk)) then bmk.setString('The date and time') else ShowMessage('Repere de texte non trouvé');
end;

Mais impossible de trouver comment executer une macro..
Merci

15/03/2022, 11h42
ShaiLeTroll

Inspire toi d'un exemple VB: V. Déclencher une macro OpenOffice depuis Excel
15/03/2022, 12h00
franckcl
Merci mais j'ai trouvé cela mais j'ai un message d'erreur:
Code:

1 2 3 // MyScript est un variant // Le nom de la macro est "test" MyScript := OLEDocument.getScriptProvider.getScript('vnd.sun.star.script:Standard.Module1.test?language=Basic&location=Document');
Mais j'ai le message suivant:

Citation:

The following basic script could not be found:
library: 'Standard'
module: 'Module1'
method: 'test'
location: 'Document'

Ma macro se trouve bien dans "Mes macros et boites de dialogue/Standard/Module1" avec comme nom "sub test"
15/03/2022, 12h12
SergioMaster

Citation:

Envoyé par franckcl

avec comme nom "sub test"

alors la commande ne serait pas ?

Code:

MyScript := OLEDocument.getScriptProvider.getScript('vnd.sun.star.script:Standard.Module1.sub%20test?language=Basic&location=Document');

Toutes les macros commencent pas sub...
J'ai quand même fait l'essai mais ça ne change rien, même type d'erreur.

Dans le document office que j'utilise, voici le contenu de "Mes macros et boîtes de dialogue" /Standard/Module1

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
REM  *****  BASIC  *****
 
Sub Main
 
End Sub
'-----------------------------------------------------------------------------------------------
Sub test
	MsgBox("Test macro success !!!")
end sub
'-----------------------------------------------------------------------------------------------
Sub PrintPDF
   theDoc           = ThisComponent
	docUrl             = theDoc.URL
	If NOT FileExists(docUrl) Then  
	MsgBox("The document must be saved to an URL for this routine to work.")
    Exit Sub
	End If
	If NOT theDoc.supportsService("com.sun.star.text.TextDocument") Then
    MsgBox("This routine can only export Writer documents.")
    Exit Sub
   End If
docURLsplit        = Split(docURL, ".")
docExt             = docURLsplit(Ubound(docURLsplit))
pdfURL             = Left(docURL, Len(docURL) - Len(docExt) -1) & ".pdf"
Dim storeArgs(0) As New com.sun.star.beans.PropertyValue
storeArgs(0).Name  = "FilterName"
storeArgs(0).Value = "writer_pdf_Export"
theDoc.storeToURL(pdfUrl, storeArgs())
 
end sub
'-----------------------------------------------------------------------------------------------

15/03/2022, 14h01
franckcl
Je progresse...mais il y a encore une dernière étape.

En fait la location doit être "application"
Code:

1 2 MyScript := OLEDocument.getScriptProvider.getScript('vnd.sun.star.script:Standard.Module1.test?language=Basic&location=application');
Maintenant j'ai bien un objet MyScript valide et sans qu'aucune erreur ne soit executée.

Comment lancer le script ?

En cherchant, j'ai trouvé ça mais je ne sais pas comment le porter en Delphi:
Code:

1 2 MyScript.invoke(Array(), Array(), Array())

C'est bon, je tiens la solution, voici le code résultant:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
 
procedure TForm1.BtnRunMacroClick(Sender: TObject);
var
 MyScript : variant;
 P1,P2,P3: variant;
begin
  MyScript := OLEDocument.getScriptProvider.getScript('vnd.sun.star.script:Standard.Module1.test?language=Basic&location=application');
  P1  := VarArrayCreate([0, -1], varVariant);
  P2  := VarArrayCreate([0, -1], varVariant);
  P3  := VarArrayCreate([0, -1], varVariant);
  MyScript.invoke(P1,P2,P3)
end;