Date: prev next · Thread: first prev next last
2018 Archives by date, by thread · List index


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.libreoffice.org/fr/users/
Tous les messages envoyés sur cette liste seront archivés publiquement et ne pourront pas être 
supprimés

Context


Privacy Policy | Impressum (Legal Info) | Copyright information: Unless otherwise specified, all text and images on this website are licensed under the Creative Commons Attribution-Share Alike 3.0 License. This does not include the source code of LibreOffice, which is licensed under the Mozilla Public License (MPLv2). "LibreOffice" and "The Document Foundation" are registered trademarks of their corresponding registered owners or are in actual use as trademarks in one or more countries. Their respective logos and icons are also subject to international copyright laws. Use thereof is explained in our trademark policy.