syntaxe selection.text perd la police en publipostage

[vansco]

Bonjour,

Qui connait l'instruction permettant de ne pas affecter la police d'un champ publiposté ?

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
 
dim lafont as string
Dim signets(1 To 100, 1 To 2) As String
        For IntSigNum = 1 To 100
            If LTrim$(RTrim$(signets(IntSigNum, 1))) = "" Then Exit For
            signets(IntSigNum, 1) = signet.name
 
            If wdDoc.Bookmarks.Exists(signets(IntSigNum, 1)) = True Then
                '
                '   Sélection du signet de la ligne en cours
                '
                wdDoc.Bookmarks(signets(IntSigNum, 1)).Range.Select
                lafont = oWORD.Selection.Font.name
 
                oWORD.Selection.Bookmarks.Add signet.name
                oWORD.Selection.Text = signets(IntSigNum, 2) ' je voudrais remplacer cette syntaxe par une autre qui n'affecte pas la police
                With oWORD.Selection.Font
                  .name = lafont
                End With
            End If
        Next

La syntaxe .text affecte la police définit sur le modèle.
Je ne trouve pas la syntaxe qui permet de remplacer le champ sans affecter la police.

Merci pour vos contributions.

[Heureux-oli]

Salut,

Dis nous ce que tu veux faire !
Tu mentionnes un champ de publipostage, mais je n'en voit pas dans ton code, je vois juste un signet.