Bonsoir Thierry,
Le 18/03/2018 à 19:41, Thierry Jeanneret a écrit :
J'ai cité le bouquin de Marcelly, qui est une bible sur laquelle je
m'appuie depuis des années. Mais malgré tout, je reste incapable
d'insérer par programme mes AutoTextes sans retour à la ligne ! Pire,
je ne trouve pas de point d'accrochage qui me permette de résoudre le
problème, qui semble pourtant trivial.
Donc, ça m'énerve, et prodigieusement, car nous avons un vrai filon
avec LibreOffice mais nous ne pouvons pas l'exploiter autrement qu'en
s'hyper-spécialisant sur cette suite. Encore une fois, c'est mon
ressenti.
As-tu essayé en :
1. créant un document Writer caché
Dim TheProps(0) As New com.sun.star.beans.PropertyValue
TheProps(0).Name = "Hidden"
TheProps(0).Value = True
TheDoc = StarDesktop.loadComponentFromURL("private:factory/swriter",
"_blank", 0, TheProps())
ce qui permet d'obtenir un curseur texte (je ne sais pas faire
autrement, il y a sûrement une meilleure manière)
2. créant un curseur texte sur le document
TheTextCursor = TheDoc.Text.CreateTextCursor
TheTextCursor.String = 'le texte à autotexter
3. récupérant l'objet groupe dans lequel insérer l'autotexte
4. ajoutant le texte du curseur comme autotexte dans le groupe ?
ZeAutoText = TheGroup.insertNewByName(TheShortcut, TheTitle, TheTextCursor)
Pas sûr que ça réponde à ta question, malgré tout...
Bien cordialement,
--
Jean-Francois Nifenecker, Bordeaux
--
Envoyez un mail à [email protected] pour vous désinscrire
Les archives de la liste sont disponibles à
https://listarchives.libreoffice.org/fr/users/
Tous les messages envoyés sur cette liste seront archivés publiquement et ne
pourront pas être supprimés
