Comment transformer les guillemets droits en guillemets typographiques dans Word ?

Normalement, Microsoft Word remplace automatiquement les guillemets droits par des guillemets typographiques (ou « intelligents ») pendant la saisie. Toutefois, si cette fonctionnalité est désactivée, vos guillemets simples et doubles s’afficheront sous forme droite dans votre document. Découvrez quelques astuces pour transformer facilement les guillemets droits en guillemets typographiques — et inversement — directement dans Word.

Transformer les guillemets droits en guillemets typographiques avec Rechercher et remplacer

Transformer les guillemets droits en guillemets typographiques avec VBA

---

Transformer les guillemets droits en guillemets typographiques avec Rechercher et remplacer

Avant d’appliquer Rechercher et remplacer, vous devez accéder aux Options de correction automatique afin de désactiver la case à cocher « Guillemets droits » par « guillemets typographiques ».

Étape 1. Cliquez sur Fichier > Options > Relecture > Options de correction automatique > Mise en forme automatique au fur et à mesure, puis cochez la case « Guillemets droits » par « guillemets typographiques ». Voir la capture d’écran.

Étape 2. Cliquez sur Accueil > Remplacer dans le groupe Édition, ou appuyez sur Ctrl + H pour afficher la boîte de dialogue Rechercher et remplacer. Saisissez ensuite ‘ ou ‘’ dans la zone Rechercher, puis ‘ ou ’’ dans la zone Remplacer par. Voir la capture d’écran :

Étape 3. Cliquez sur Remplacer tout.

Remarque : si vous souhaitez remplacer tous les guillemets typographiques par des guillemets droits, veuillez désactiver l’option « Guillemets droits » par « guillemets typographiques » (case à cocher).

---

Transformer les guillemets droits en guillemets typographiques avec VBA

Pour remplacer tous les guillemets droits par des guillemets typographiques dans Word 2010 à l’aide de VBA, cliquez d’abord sur Fichier > Options > Relecture, puis sur Correction automatique Options, et cochez l’option « Guillemets droits » par « guillemets typographiques »comme suit. ()Remarque : si vous souhaitez remplacer tous les guillemets typographiques par des guillemets droits, veuillez désactiver la case à cocher « Guillemets droits » par « guillemets typographiques ».)

Étape 1 : Appuyez sur «Alt-F11» pour ouvrir la fenêtre Microsoft Visual Basic pour Applications ;

Étape 2 : Cliquez sur Modulesous l’onglet Insertion, puis copiez-collez le code VBA suivant dans la fenêtre Module;

Étape 3 : Cliquez ensuite sur le bouton Exécuter pour appliquer le code VBA.

Le code VBA suivant permet de transformer les guillemets droits en guillemets typographiques :

Sub ChangeDoubleStraightQuotes()
'Update 20131107
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = """"
.Replacement.Text = """"
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord =False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
End Sub

Le code VBA suivant permet de transformer les guillemets typographiques en guillemets droits :

Sub ReplaceSmartQuotes()
Dim vFindText As Variant
Dim vReplText As Variant
Dim i As Long
vFindText = Array("[^0145^0146]", "[^0147^0148]")
vReplText = Array("^039", "^034")
With Selection.Find
.ClearFormatting
.Replacement.ClearFormatting
.Forward = True
.Wrap = wdFindContinue
.MatchWholeWord = True
.MatchWildcards = True
For i = LBound(vFindText) To UBound(vFindText)
.Text = vFindText(i)
.Replacement.Text = vReplText(i)
.Execute Replace:=wdReplaceAll
Next i
End With
End Sub

---