Ignorerer Smarte anførselstegn når Sammenligning tekst

April 18  by Eliza

Lee har en makro som sammenligner, avsnitt for avsnitt, to dokumenter. Han trenger en måte å rabatt på bruk av smarte sitater i et avsnitt. Med andre ord, dersom to avsnitt er tilsvarende på alle måter - bortsett fra en bruker smarte anførselstegn og den andre utfører vanligvis ikke - Lee fortsatt ønsker å vurdere avsnittene ekvivalent.

Den enkleste måten å håndtere denne situasjonen er å bare erstatte noen smarte sitater med jevne sitater, og deretter gjøre sammenligningen. For eksempel, forutsatt at makro skritt gjennom dokumentet og tildeler teksten i et avsnitt til en variabel (for eksempel sThisPar), så kan du bli kvitt smarte sitater i teksten ved å bruke denne koden:

sThisPar = RepText (sThisPar, Chr (145), "" ')
sThisPar = RepText (sThisPar, Chr (146), "" ')
sThisPar = RepText (sThisPar, Chr (147), Chr (34))
sThisPar = RepText (sThisPar, Chr (148), Chr (34))

Disse linjene erstatte de smarte versjoner av åpning og lukking sitater og apostrofer med sine "ren" ekvivalenter. Denne koden er avhengig av en funksjon som heter RepText, som ikke er vist i dette tipset. Rutinen gjør ingenting, men erstatte forekomsten av ett stykke tekst med en annen. I noen versjoner av VBA kan du bruke Erstatt-kommandoen i stedet, som er bygget inn i disse versjonene av språket.

Mens du er på det, kan du også ønsker å erstatte andre Word-spesifikke tegn med deres vanlig ekvivalenter. Følgende linjer erstatte henholdsvis en bindestrek, lange tankestreker, og ellipser.

sThisPar = RepText (sThisPar, Chr (150), "-")
sThisPar = RepText (sThisPar, Chr (151), "-")
sThisPar = RepText (sThisPar, Chr (133), "...")

Når erstatninger er ferdig, kan du deretter sammenligne teksten i avsnittene med mye mer selvtillit.

Hvis du ikke kan endre makrokoden eller annen grunn, så vil du kanskje å bare erstatte de smarte sitater i dokumentene dine med jevne sitater før du kjører makroen. Åpne dokumentet, slå av automatiske smarte anførselstegn (i Autokorrektur dialogboksen), og deretter gjøre to finne og erstatte operasjoner til, først, erstatte hvert sitat med et sitat (sette sitatet i både Finn, og erstatt Med boksene) og , andre, for å erstatte hver apostrof med en apostrof. Du kan deretter kjøre makroer og sammenligningen skal gå glattere.

WordTips er din kilde for kostnadseffektiv Microsoft Word trening. (Microsoft Word er den mest populære tekstbehandlingsprogrammet i verden.) Dette tipset (11983) gjelder for Microsoft Word 2007 og 2010. Du kan finne en versjon av dette tipset for den eldre menygrensesnittet i Word her: Ignorerer Smarte anførselstegn når Sammenligning tekst.