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 ?
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
--
Didier Dorange-Pattoret
Tel : +33.6.32.38.87.02
http://www.dmaths.org
--
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
