Bonjour,
Déjà, merci pour votre aide. J'ai enfin réussi à
mettre en place ce que je voulais (je met en bas le
source utilisé pour ceux que ça intéresse). Il reste
cependant un problème que je n'arrive pas à régler. Je
ne sais pas comment lancer la correction
orthographique sur le document que je viens
d'ouvrir... J'ai lu qu'il faut utiliser
"com.sun.star.linguistic2.LinguServiceManager" et
"com.sun.star.linguistic2.XSpellChecker" mais je ne
sais vraiment pas comment faire... Tout ce que j'ai
trouvé semble permettre de créer un correcteur
orthographique en dehors d'une feuille ouverte dans le
traitement de texte. Tout exemple (pas forcément en
VB.net d'ailleurs) ou lien est le bienvenu.
Merci.
CCC
***************************************************
Public Sub Ooorg_Orthog(ByVal Nom_Document As
String)
Dim objServiceManager As Object
Dim objDesktop As Object
Dim objDocument As Object
Dim args(-1) As Object
Try
objServiceManager =
CreateObject("com.sun.star.ServiceManager")
'ouverture(d'OOo)
objDesktop =
objServiceManager.createInstance("com.sun.star.frame.Desktop")
'ouverture d'OOo, les deux lignes sont nécessaires
Nom_Document = Nom_Document.Replace("\",
"/")
objDocument =
objDesktop.loadComponentFromURL("file:///" &
Nom_Document, "_blank", 0, args) 'chargement d'un
fichier
Catch ex As Exception
MsgBox("Le chargement de OpenOffice.org à
échoué...")
End Try
'correction orthographique
'enregistrer
Call objDocument.store()
'Pour fermer le document
objDocument.Close(True)
objDocument = Nothing
End Sub
***************************************************
Découvrez le nouveau Yahoo! Mail : 250 Mo d'espace de stockage pour vos mails !
Créez votre Yahoo! Mail sur http://fr.mail.yahoo.com/
Avec Yahoo! faites un don et soutenez le Téléthon en cliquant sur
http://www.telethon.fr/030-Don/10-10_Don.asp