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

Le 25/02/2018 à 10:59, Didier Dorange-Pattoret a écrit :
> 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 ?
C'est une bogue que j'ai toujours connue (avant 2006) et qui ne doit pas
être compliquée à corriger. Le saut de paragraphe est ajouté à tous les
autotextes en texte brut. Ceci interdit cette fonction pourtant pratique
pour éviter de polluer un document avec des surcharges locales si le
texte doit être préformaté.

Voir par exemple
https://bugs.documentfoundation.org/show_bug.cgi?id=53023, JBF signalant
en 2012 que cette bogue existait déjà dans la version Ooo 2.

C'est ce genre de truc qui rend le logiciel très vulnérable face à la
concurrence, car c'est insupportable.
> > 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

-- 
Jean-Yves ROYER



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