Re: [fr-users] Retour à la ligne après AutoText

Bonne suggestion, mais les deux objets sont riches et je ne vois pas trop ce qui pourrait spécifier 
le forçage d’un retour ligne.
Si tu as une indication plus précise, je suis preneur.

Sinon, la suggestion d’utiliser les auto-corrections m’intéresse, mais je n'ai pas encore trouvé 
comment alimenter ces trucs automatiquement. J’ai un peu plus de 100 articles à charger, je ne vais 
pas le faire à la main, d’autant que ça change assez souvent et que j’ai une jolie petite table 
Base qui contient tout ça bien au chaud.

Je vais aussi tenter un Xray d’un autotext existant, mais pour ça je dois le charger, donc faire un 
bout de code et là, c’est sieste !

A+, merci à tous,

Thierry




> Le 25 févr. 2018 à 11:00, yves dutrieux <ydutrieux@gmail.com> a écrit :
>
> Bonjour,
> qq pistes :
> peut-être une propriété de oEntry ou oGroup à décocher (qui considérerait que ton autotexte est 
> au format paragraphe ? )
> ce n'est qu'une supposition.
> faire un xray sur ces 2 champs pour y voir plus clair ?
> comparer l'xray avec un auto-texte fait manuellement.
>
>
> Yves
>
> Le 25 février 2018 à 10:46, Thierry Jeanneret <thierry.jeanneret@gmail.com 
> <mailto:thierry.jeanneret@gmail.com>> a écrit :
> Bonjour à vous,
>
> Voici qu'il m'a pris l'envie de charger un groupe d'auto-textes à partir d'une table de base de 
> données. Tout se passe parfaitement bien, je retrouve mes petits avec leur clé d'accès, libellé 
> court et texte de remplacement, tout bien.
>
> Par contre lorsque je les utilise, j'obtiens systématiquement un retour à la ligne après le texte 
> de remplacement. Quelqu'un a-t-il une idée ?
>
> Lorsque j'utilise d'autres auto-textes, livrés avec LibreOffice, tout se passe correctement et le 
> curseur reste bien sagement à côté du dernier caractère inséré.
>
> Merci d'avance si vous pouvez me mettre sur une piste.
>
> Thierry
>
> _Annexes_ :
>
> *Code de la fonction d'insertion*
>
> ' Une entrée AutoText se compose de :
> ' - Le code saisi par l'utilisateur                    - CodeFourniture
> ' - Un titre résumant le contenu de remplacement    - Désignation
> ' - Le contenu de remplacement                        - Désignation & PrixUnitaire,
>
> Sub StoreAutoText(sDesignation As String, sPrixUnitaire As String, sCodeFourniture As String)
>     DIM oGroup As Object
>     Dim oEntry As Object
>     Dim oTextRange As Object
>
> ' Définition du texte de remplacement. Par rapport à la désignation, j'ajoute le prix pour
> ' l'exploiter ensuite par une macro.
>     oTextRange = createUnoService("com.sun.star.text.TextRange"
>     oTextRange.String = sDesignation & " " & sPrixUnitaire
>
>     oGroup = oAutoTextContainer.getByName(sAutoTextGroupName)
>     oEntry = oGroup.insertNewByName(sCodeFourniture, sDesignation, oTextRange )
> End Sub
>
> *Info LibreOffice*
>
> Version: 5.4.5.1
> Build ID: 79c9829dd5d8054ec39a82dc51cd9eff340dbee8
> Threads CPU : 8; OS : Mac OS X 10.13; UI Render : par défaut;
> Locale : fr-CH (fr_CH.UTF-8); Calc: group
>
>
>
> -- 
> Envoyez un mail à users+unsubscribe@fr.libreoffice.org 
> <mailto:users%2Bunsubscribe@fr.libreoffice.org> pour vous désinscrire
> Les archives de la liste sont disponibles à https://listarchives.libreoffice.org/fr/users/ 
> <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
>
>
>
> -- 
> web site : http://www.molenbaix.com <http://www.molenbaix.com/>

-- 
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