Bonjour,
Je suis en train de réaliser une macro OpenOffice (en Basic) qui me permettra de traduire dans une autre langue (via Google translator) une portion de texte sélectionnée, d'un simple clic de souris.
J'ai déjà fait la partie web (envoi et récupération du texte), qui marche bien. Ce que par contre je n'arrive pas à faire, c'est d'accéder au texte sélectionné du document...
Je m'explique ; j'ai fait cette petite macro :
Elle est sensée afficher le texte que j'ai sélectionné dans une MsgBox.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10 Sub Traducteur monDocument = StarDesktop.getCurrentComponent() maSelection = monDocument.CurrentSelection ' si la sélection est multiple, la sélection 0 est vide ' donc on prend la 1 n = IIF(maSelection.Count>1,1,0) monTexte = maSelection(n).text MsgBox monTexte.String End Sub
Le problème, c'est que si je tape le texte "Salut, c'est moi !" dans un document vide, que je sélectionne "Salut" et que le lance cette macro, ça m'affiche tout le texte du document, donc "Salut, c'est moi !", au lieu de "Salut".
Bref, ça marche pas !
Quelqu'un aurait-il la solution à mon problème ?
(j'ai déjà cherché sur google et sur api.openoffice.org, mais je n'ai rien trouvé).
Merci d'avance pour votre aide
Partager