Lee a une macro qui compare, paragraphe par paragraphe, deux documents. Il a besoin d’un moyen d’écarter l’utilisation de citations intelligentes dans un paragraphe. En d’autres termes, si deux paragraphes sont similaires dans tous les sens – sauf que l’un utilise des guillemets intelligents et l’autre pas – Lee veut toujours considérer les paragraphes comme équivalents.

Le moyen le plus simple de gérer cette situation consiste simplement à remplacer les guillemets intelligents par des guillemets réguliers, puis à effectuer la comparaison. Par exemple, en supposant que votre macro parcourt le document et assigne le texte d’un paragraphe à une variable (telle que sThisPar), alors vous pouvez vous débarrasser des guillemets intelligents dans le texte en utilisant ce code:

sThisPar = RepText(sThisPar, Chr(145), "'")

sThisPar = RepText(sThisPar, Chr(146), "'")

sThisPar = RepText(sThisPar, Chr(147), Chr(34))

sThisPar = RepText(sThisPar, Chr(148), Chr(34))

Ces lignes remplacent les versions intelligentes des guillemets d’ouverture et de fermeture et des apostrophes par leurs équivalents «simples». Ce code repose sur une fonction appelée RepText, qui n’est pas représentée dans cette astuce. La routine ne fait rien d’autre que remplacer l’occurrence d’un morceau de texte par un autre. Dans certaines versions de VBA, vous pouvez utiliser la commande Remplacer à la place, qui est intégrée à ces versions du langage.

Pendant que vous y êtes, vous souhaiterez peut-être également remplacer d’autres caractères spécifiques à Word par leurs équivalents simples. Les lignes suivantes remplacent respectivement les tirets en, les tirets em et les ellipses.

sThisPar = RepText(sThisPar, Chr(150), "-")

sThisPar = RepText(sThisPar, Chr(151), "--")

sThisPar = RepText(sThisPar, Chr(133), "...")

Une fois les remplacements effectués, vous pouvez alors comparer le texte des paragraphes avec beaucoup plus de confiance.

Si vous ne pouvez pas modifier le code de votre macro pour une raison quelconque, vous souhaiterez peut-être simplement remplacer les guillemets intelligents dans vos documents par des guillemets réguliers avant d’exécuter la macro. Ouvrez le document, désactivez les guillemets automatiques automatiques (dans la boîte de dialogue Correction automatique), puis effectuez deux opérations de recherche et de remplacement pour, d’abord, remplacer chaque devis par un devis (placez le devis dans les zones Rechercher et Remplacer par) et , deuxièmement, pour remplacer chaque apostrophe par une apostrophe. Vous pouvez ensuite exécuter vos macros et la comparaison devrait être plus fluide.

_Note: _

Si vous souhaitez savoir comment utiliser les macros décrites sur cette page (ou sur toute autre page des sites WordTips), j’ai préparé une page spéciale qui comprend des informations utiles.

lien: / wordribbon-WordTipsMacros [Cliquez ici pour ouvrir cette page spéciale dans un nouvel onglet de navigateur].

WordTips est votre source pour une formation Microsoft Word rentable.

(Microsoft Word est le logiciel de traitement de texte le plus populaire au monde.) Cette astuce (5411) s’applique à Microsoft Word 97, 2000, 2002 et 2003. Vous pouvez trouver une version de cette astuce pour l’interface ruban de Word (Word 2007 et plus tard) ici:

link: / wordribbon-Ignoring_Smart_Quotes_when_Comparing_Text [Ignorer les citations intelligentes lors de la comparaison de texte].