لی یک کلان دارد که پاراگراف به پاراگراف دو سند را با هم مقایسه می کند. او به راهی برای کاهش استفاده از نقل قول های هوشمند در یک پاراگراف نیاز دارد. به عبارت دیگر، اگر دو پاراگراف از هر نظر شبیه هم باشند - به جز اینکه یکی از نقل قول های هوشمند استفاده می کند و دیگری از "t" استفاده می کند - لی همچنان می خواهد پاراگراف ها را معادل در نظر بگیرد.
ساده ترین راه برای مدیریت این وضعیت این است که به سادگی هر نقل قول هوشمند را با نقل قول های معمولی جایگزین کنید و سپس مقایسه کنید. به عنوان مثال، با فرض اینکه ماکرو شما از سند عبور می کند و متن یک پاراگراف را به یک متغیر (مانند sThisPar) اختصاص می دهد، می توانید با استفاده از این کد از شر نقل قول های هوشمند در متن خلاص شوید:
sThisPar = RepText(sThisPar, Chr(145), """)
sThisPar = RepText(sThisPar, Chr(146), """)
sThisPar = RepText(sThisPar, Chr(147), Chr(34))
sThisPar = RepText(sThisPar, Chr(148), Chr(34))
این خطوط جایگزین نسخه‌های هوشمند نقل قول‌های باز و پایانی و آپستروف‌ها با معادل‌های «ساده» خود می‌شوند. این کد به تابعی به نام RepText متکی است که در این نکته نشان داده نشده است. روال کاری انجام نمی دهد جز اینکه یک متن را با متن دیگری جایگزین می کند. در برخی از نسخه های VBA می توانید به جای آن از دستور Replace استفاده کنید که در آن نسخه های زبان تعبیه شده است.
در حالی که در آن هستید، ممکن است بخواهید دیگر کاراکترهای مخصوص Word را با معادل های ساده آنها جایگزین کنید. خطوط زیر به ترتیب جایگزین خط تیره های en، خط تیره em و بیضی می شوند.
sThisPar = RepText(sThisPar, Chr(150), "-")
sThisPar = RepText(sThisPar, Chr(151), "--")
sThisPar = RepText(sThisPar, Chr(133), "...")
پس از انجام جایگزینی، می توانید متن موجود در پاراگراف ها را با اطمینان بسیار بیشتری مقایسه کنید.
اگر به دلایلی نمی توانید کد ماکرو خود را تغییر دهید، ممکن است بخواهید به سادگی پیش از اجرای ماکرو، نقل قول های هوشمند موجود در اسناد خود را با نقل قول های معمولی جایگزین کنید. سند را باز کنید، نقل قول های هوشمند خودکار را خاموش کنید (در کادر محاوره ای تصحیح خودکار)، و سپس دو عملیات پیدا کردن و جایگزینی را انجام دهید تا ابتدا هر نقل قول را با یک نقل قول جایگزین کنید (این نقل قول را در کادرهای Find What و Replace With قرار دهید) دوم اینکه هر آپاستروف را با یک آپاستروف جایگزین کنیم. سپس می‌توانید ماکروهای خود را اجرا کنید و مقایسه باید روان‌تر شود.
