Mmm, y a de l'idée, je regarde demain. Ça ne peut pas marcher tel quel mais ça me met sur une piste. Je te tiens au courant. Merci ! Et bonne fin de soirée,
Thierry Le dim. 18 mars 2018 à 21:10, Jean-Francois Nifenecker < [email protected]> a écrit : > 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
