Discussion :

[ESVBA]

Bonjour,


je cherche à mettre la sélection entre guillemets et changer le style de la sélection.

actuellement je fais une sélection du texte à mettre entre guillemets et lance la macro suivante :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Sub AjoutGuillemetsStyleFort()
    With Selection
        .InsertBefore Chr(171) & Chr(160)
        .InsertAfter Chr(160) & Chr(187)
         '        .MoveRight unit:=wdCharacter, Count:=3
        '.Style = ActiveDocument.Styles("Fort")
    End With
End Sub

Je sélectionne pour changer le style.

Si j'ajoute la ligne mettant en style "fort" toute la sélection et donc les guillemets aussi sont en style "Fort". Ce que je ne veux pas.

J'ai tenté de déplacer le curseur pour rester dans la sélection mais :

• la sélection est aussi ce qui a été ajouté par "InsertBefore" ou "InserAfter".
• Si la sélection n'a qu'un caractère ou est composée de plusieurs mots ça ne fonctionne pas.

Je n'ai pas trouvé d'autres instructions d'ajout pour lesquelles l'ajout n'est pas dans la sélection ou pour laquelle je puisse récupérer la sélection de départ.

Quelle solution utiliseriez-vous ?

Merci.

ESVBA

[ESVBA]

j'ai ajouté deux fonctions de réduction de la sélection par la gauche et par la droite.
Le code est celui-ci :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
With Selection
        .InsertBefore Chr(171) & Chr(160)
        .InsertAfter Chr(160) & Chr(187)
 
        .MoveStart unit:=wdCharacter, Count:=2
        .MoveEnd unit:=wdCharacter, Count:=-2
 
        .Style = ActiveDocument.Styles("Fort")
 End With

Problème résolu.

Si ça peut aider.

ESVBA