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 <[email protected]> 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 à [email protected] 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 à [email protected] 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
