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

Bonjour,

Peut-être que les autotextes téléchargés contiennent tous un retour ligne.

Pour vérifier, il suffit d'un éditer un. (Outils -> Autotextes ou Ctrl+F3).

Cordialement.


Le 25/02/2018 à 10:46, Thierry Jeanneret 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

--
Didier Dorange-Pattoret
Tel : +33.6.32.38.87.02
http://www.dmaths.org




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