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

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>
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 pour vous
> désinscrire
> Les archives de la liste sont disponibles à https://listarchives.libreoffi
> ce.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

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