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

