Discussion :

[Jon Shannow]

Bonjour,

Je cherche à piloter Word et Excel 2010 via un programme Lazarus (sous Windows Seven)

J'arrive à lancer Word avec

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
 
{   fMSWord : Variant;}
 
Try
    fMSWord := GetActiveOleObject('Word.Application');
Except
    fMSWord := CreateOleObject('Word.Application');
End;

Mais quand je fais

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
 
{fDocuments et fDocument : Variant
 pst_Document : AnsiString - récupérer d'un OpenDialog}
 
fDocuments := fMSWord.Documents;
fDocument := fDocuments.Open( Pst_document);

J'ai un message d'erreur disant que je n'ai pas assez de mémoire pour réaliser l'opération...

Quelqu'un a-t-il déjà réalisé ce genre de trucs ? Un code source exemple, pour voir où je merdoie ?

Merci d'avance
JS

[Jon Shannow]

En regardant l'aide VBA pour Word, j'ai essayé cela

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 
   fDocuments := fMSWord.Documents;
   fDocument := fDocuments.Open( Pst_document);

Mais ça ne change rien au problème...

[Jon Shannow]

Bon, j'ai trouvé...

Il faut que le nom du document soit dans un variant !