OVH Cloud OVH Cloud

Ms access --> OpenOffice Writer

1 réponse
Avatar
Francois
Bonjour,

Je cherche à manipuler un document sous OpenOffice Writer via MsAccess, mais
je débute et je ne connais pas bien cet environnement.

Comment, depuis msaccess, faire l'équivalent de
Set appword = CreateObject("Word.Application")
pour ouvrir OpenOffice Writer et le manipuler ?

J'aurai bien d'autres questions, mais je commence par celle ci...

Merci

François

1 réponse

Avatar
Francois
Bonjour,

C'est bon, j'ai trouvé....

Pour info, c'est :
Dim objServiceManager As Object
Dim objDesktop As Object
Dim args()

Set objServiceManager= CreateObject("com.sun.star.ServiceManager")
Set Stardesktop objServiceManager.createInstance("com.sun.star.frame.Desktop")
Set doc = Stardesktop.loadComponentFromURL("private:factory/swriter",
"_blank", 0, args)
Set text = doc.getText()
text.setString("Hello World")
REM You can get the full example in the SDK (under OLE examples)
REM Read the Automation Bridge part of the Developer's Guide for writing
code with WSH or JScript, both are very similiar to VBScript

Bonne journée

François

"Francois" a écrit dans le message de
news:eLR2DM%
Bonjour,

Je cherche à manipuler un document sous OpenOffice Writer via MsAccess,
mais

je débute et je ne connais pas bien cet environnement.

Comment, depuis msaccess, faire l'équivalent de
Set appword = CreateObject("Word.Application")
pour ouvrir OpenOffice Writer et le manipuler ?

J'aurai bien d'autres questions, mais je commence par celle ci...

Merci

François