Macro Word remplacer les guilements anglais-> français

Effectivement, dans ces conditions ce sera plus aisé d'automatiser un peu

Pour faire le remplacement, utilise le recherche/remplace de la seconde solution de ce tuto avec un espace insécable (les 2 dernières lignes). Il faut lire qu'il faut aussi cocher les caractères génériques avant de lancer le recherche/remplace. Tu peux faire un copier/coller des commandes
https://www.faqword.com/index.php/word/mise-en-forme/929

Si tu ne le fais qu'occasionnellement, autant enregistrer ce Recherche/Remplace en macro :
- Onglet Développeur
- Cliquer sur Enregistrer une macro
- Saisir un nom dans le champ Nom (dans le normal.dotm)
- Lui affecter un raccourci clavier
- Faire le recherche/remplace
- Cliquer sur Arrêter l'enregistrement.
Si ça t'intéresse, on peut aussi l'enregistrer dans la barre d'outils rapide.

C'est bon ?

Argitxu

Si tes guillemets actuels sont des guillemets français " ", et que l’option des guillemets est bien activée, le recherche remplace du tuto marche parfaitement.

Par contre, j’ai peut-être lu trop vite et j’ai un doute sur le début de ton message quand tu donnes l'exemple “mot” où là ce sont des guillemets anglais
Voici une macro à rajouter par Alt F11 puis dans this document :

Sub RemplacerGuillemetsAnglaisV2()
'
' RemplacerGuillemetsAnglaisV2 Macro
'
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = ChrW(8221) & "<"
.Replacement.Text = """ "
.Forward = True
.Wrap = wdFindContinue
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = ChrW(8221)
.Replacement.Text = " """
.Forward = True
.Wrap = wdFindContinue
End With
Selection.Find.Execute Replace:=wdReplaceAll
End Sub

Argitxu