Astuce: Les autres langues sont Google-Traduction. Vous pouvez visiter le English version de ce lien.
Se connecter
x
or
x
x
S'enregistrer
x

or

Comment changer les guillemets simples aux guillemets bouclés dans le mot?

Normalement, le Microsoft Word va automatiquement changer les guillemets boucler les citations (smart ortypographer) pendant que vous tapez. Mais si la fonctionnalité est désactivée, les guillemets simples et doubles peuvent apparaître directement dans votre document. Voici quelques conseils pour modifier les guillemets simples en guillemets et vice versa dans Word.

Chang cite des citations frisées avec Rechercher et remplacer

Remplacez les guillemets par des guillemets avec VBA

Kutools for Word: Ajouter 100 Nouvelles fonctionnalités avancées to Word 2003 / 2007 / 2010 / 2013 / 2016 / 2019.
Office Tab: Activer Édition à onglets et navigation dans Office, Tout comme Chrome, Firefox, IE 8 / 9 / 10.
Classic Menu for Office: Apportez l'ancien look du bureau 2003 dans Office 2007, 2010, 2013, 2016 et 2019.

flèche bleue droite bulle Remplacez les guillemets par des guillemets avec Trouver et Remplacer

Chaud
Incroyable! Utilisez des onglets efficaces dans Word (Office) tels que Chrome, Firefox et Nouvel Internet Explorer!

Lire la suite Télécharger gratuitement

Avant d'appliquer Rechercher et remplacer, vous devriez aller à Options de correction automatique décocher la "Citations droites" avec "citations intelligentes" Case à cocher.

Dans Word 2003, Options de correction automatique est sous la Outil bar. Et dans Word 2007, en appliquant Options de correction automatique en cliquant > Options > proofing > Options de correction automatique. Ici nous prenons le mot 2010 / 2013 par exemple:

Étape 1. Cliquez sur > option > proofing > Options de correction automatique > Mise en forme automatique au cours de la frappeEt sélectionnez "Citations droites" avec "citations intelligentes" case à cocher Voir la capture d'écran:

Étape 2. Cliquez sur Accueil > remplacer le Rédaction groupe ou appuyez sur Ctrl + H afficher Rechercher et remplacer dialogue, et entrez »or '' in Trouvez ce que boîte, et entrez » or ''in Remplacez-le par boîte. Voir la capture d'écran:

Étape 3. Cliquez sur Remplacer tout.

Remarque: Si vous voulez remplacer toutes les citations bouclées par des guillemets droits, veuillez effacer "Citations droites" avec "citations intelligentes" case à cocher).


flèche bleue droite bulle Remplacez les guillemets par des guillemets avec VBA

Pour remplacer toutes les guillemets simples par des guillemets dans Word 2010 avec VBA, cliquez sur Fichier> option > proofing et cliquez sur Correction automatique Options et sélectionnez le "Citations droites" avec "citations intelligentes" case à cocher comme suit en premier. (Note: si vous souhaitez remplacer toutes les citations bouclées par des guillemets droits, veuillez effacer les "guillemets droits" avec les guillemets "guillemets intelligents".

Étape 1: Appuyez sur "Alt-F11"Pour ouvrir la fenêtre Microsoft Visual Basic pour Application;

Étape 2: cliquez sur Module sur le insérer onglet, copiez et collez le code VBA suivant dans Module fenêtre;

Étape 3: puis cliquez sur course bouton pour appliquer le VBA.

Le VBA suivant est de changer les guillemets simples en guillemets bouclés:

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 VBA suivant est de changer les guillemets bouclés 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



Kutools for Word

Plus que des fonctions avancées 100 pour Word 2003, 2007, 2010, 2013, 2016 et 2019

coup-kutools-700-225-kte

Plus de fonctionnalités | Essai Gratuit | Seulement $ 39.00 pour des centaines de fonctions

Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Sri · 4 months ago
    The VBA code method for changing "straight" to "smart" quotes worked perfectly! Thank you!
  • To post as a guest, your comment is unpublished.
    no name · 9 months ago
    My problem is that I have work normally in German but have an English document, which I marked as "English". Then I did find&replace and it converted them to lower " and upper " as it would happen in German. I looked at all the settings but I couldn't find it. I changed the dictionary language and everything else I could find to English... any idea?
  • To post as a guest, your comment is unpublished.
    Bill Smith · 4 years ago
    Your explanation for replacing in Find/Replace from instruction #2 on is completely incomprehensible.
    • To post as a guest, your comment is unpublished.
      Dustin · 3 years ago
      I think I found the explanation on another page. If you simply do a replace all and ask it to replace either single quotes or double quotes with the exact same symbol, it will go through and apply your autocorrect rules, including to replace straight quotes with smart quotes. So it should update those all to smart quotes as it goes.