Comment changer les guillemets droits en guillemets bouclés dans Word?
Normalement, Microsoft Word changera automatiquement les guillemets droits aux citations bouclées (d'ortypographe intelligent) pendant que vous tapez. Mais si la fonction est désactivée, les guillemets simples et doubles peuvent apparaître directement dans votre document. Voici des conseils pour changer les guillemets droits en guillemets bouclés et vice versa dans Word.
Changer les guillemets droits en guillemets bouclés avec Rechercher et remplacer
Changer les guillemets droits en guillemets bouclés avec VBA
Outils de productivité recommandés pour Word
Kutools for Word: Intégrer l'IA 🤖, plus de 100 fonctionnalités avancées vous font gagner 50 % du temps de traitement de vos documents.Téléchargement gratuit
Office Tab: présente les onglets de type navigateur dans Word (et d'autres outils Office), simplifiant la navigation multi-documents.Téléchargement gratuit
Changer les guillemets droits en guillemets bouclés avec Rechercher et remplacer
Onglet Office : apporte des interfaces à onglets à Word, Excel, PowerPoint... |
Améliorez votre flux de travail maintenant. En savoir plus Téléchargement gratuit
|
Avant d'appliquer Rechercher et remplacer, vous devriez aller à Options de correction automatique pour décocher le "Guillemets droits" avec "guillemets intelligents" Case à cocher.
Dans Word 2003, Options de correction automatique est sous la Outil bar. Et dans Word 2007, appliquer Options de correction automatique en cliquant > Options > proofing > Options de correction automatique. Ici, nous prenons Word 2010/2013 par exemple:
Étape 1. Cliquez sur > Option > proofing > Options de correction automatique > Mise en forme automatique à mesure que vous tapez, et sélectionnez "Guillemets droits" avec "guillemets intelligents" case à cocher. Voir la capture d'écran :
Étape 2. Cliquez sur Accueil > remplacer dans l' Montage groupe ou presse Ctrl + H afficher Rechercher et remplacer boîte de 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 souhaitez remplacer tous les guillemets bouclés par des guillemets droits, veuillez effacer "Guillemets droits" avec "guillemets intelligents" case à cocher).
Changer les guillemets droits en guillemets bouclés avec VBA
Pour remplacer tous les guillemets droits par des guillemets bouclés dans Word 2010 en utilisant VBA, veuillez cliquer sur Déposez votre dernière attestation > Option > proofing et cliquez sur Correction automatique Options et sélectionnez le "Guillemets droits" avec "guillemets intelligents" case à cocher comme suit en premier. (Notes: si vous souhaitez remplacer tous les guillemets par des guillemets droits, veuillez décocher la case "Guillemets droits" par "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 , copiez et collez le code VBA suivant dans le Module fenêtre;
Étape 3: Cliquez ensuite sur Courir bouton pour appliquer le VBA.
Le VBA suivant consiste à changer les guillemets droits 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 consiste à 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
Meilleurs outils de productivité bureautique
Kutools for Word - Élevez votre expérience Word avec Over 100 Caractéristiques remarquables !
🤖 Assistant IA Kutools: Transformez votre écriture avec l'IA - Générer du contenu / Réécrire le texte / Résumer des documents / Demander des informations basé sur le document, le tout dans Word
(I.e. Maîtrise des documents: Pages divisées / Fusionner des documents / Exporter la sélection dans différents formats (PDF/TXT/DOC/HTML...) / Conversion par lots en PDF / Exporter des pages sous forme d'images / Imprimer plusieurs fichiers à la fois
✏ Édition du contenu: Rechercher et remplacer par lots sur plusieurs fichiers / Redimensionner toutes les images / Transposer les lignes et les colonnes du tableau / Convertir le tableau en texte
🧹 Nettoyage sans effort : balayer Espaces supplémentaires / Sauts de section / Tous les en-têtes / Boîtes de texte / Liens hypertextes / Pour plus d'outils de suppression, rendez-vous sur notre Supprimer le groupe
➕ Insertions créatives: Insérer Mille séparateurs / Cases à cocher / Boutons radio / code QR / Code barres / Tableau des lignes diagonales / Légende de l'équation / Légende / Légende de la table / Plusieurs images / Découvrez-en davantage dans le Insérer un groupe
🔍 Sélections de précision: Localiser pages spécifiques / les tables / formes / paragraphes de titre / Améliorez la navigation avec PLUS Sélectionnez les fonctionnalités
⭐ Améliorations des étoiles: Naviguez rapidement vers n’importe quel endroit / insertion automatique de texte répétitif / basculer de manière transparente entre les fenêtres de document / 11 outils de conversion