Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
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
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" <Francois@mail.fr> a écrit dans le message de
news:eLR2DM%23UGHA.776@TK2MSFTNGP09.phx.gbl...
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...
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...