Date: prev next · Thread: first prev next last
2018 Archives by date, by thread · List index


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 <
jean-francois.nifenecker@laposte.net> 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 à users+unsubscribe@fr.libreoffice.org 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

Context


Privacy Policy | Impressum (Legal Info) | Copyright information: Unless otherwise specified, all text and images on this website are licensed under the Creative Commons Attribution-Share Alike 3.0 License. This does not include the source code of LibreOffice, which is licensed under the Mozilla Public License (MPLv2). "LibreOffice" and "The Document Foundation" are registered trademarks of their corresponding registered owners or are in actual use as trademarks in one or more countries. Their respective logos and icons are also subject to international copyright laws. Use thereof is explained in our trademark policy.