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 <[email protected]> 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 <[email protected] > <mailto:[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] > <mailto:users%[email protected]> 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 à [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
