Før du påfører Finn og erstatt, bør du gå til Auto Correct alternativer å fjern "Straight anførselstegn" med "smarte anførselstegn" boksen.
I Word 2003 Auto Correct alternativer er under verktøylinjen. Og i Word 2007, bruke Auto Correct alternativer ved å klikke > Valg > Korrektur > Auto Correct Alternativer. Her tar vi Word 2010/2013 for eksempel:
Trinn 1. Click > Alternativ > Korrektur > Auto Correct Alternativer > Autoformat mens du skriver, og velg "Straight anførselstegn" med "smarte anførselstegn" boksen Se skjermbilde.
Trinn 2. Klikk på Home > Sett i Redigering-gruppen eller trykk Ctrl + H for å vise Finn og erstatt dialog, og skriv 'eller' 'i Søk etter-boksen, og skriv inn' eller '' i boksen Erstatt med Se skjermbilde:..
Trinn 3. Klikk Erstatt alle
Merk: Hvis du vil erstatte alle krøllete sitater med rette sitater, kan du fjerne "Straight anførselstegn" med "smarte anførselstegn" boksen).
Endre rett anførselstegn for å krøllete sitater med VBA
vil erstatte alle rette anførselstegn med doble sitater i Word 2010 med hjelp av VBA vennligst klikk på Fil > Alternativ > Korrektur og klikk Alternativer for autokorrektur og velg "Straight anførselstegn" med "smarte anførselstegn" i boksen som følger først (Merk: Hvis du vil erstatte alle krøllete sitater med rette anførselstegn, kan du fjerne "Straight. sitater "med" smarte anførselstegn "boksen)
. Trinn 1: Trykk" Alt-F11 "for å åpne Microsoft Visual Basic for Application vinduet;
Trinn 2: Klikk Module på kategorien Sett inn, kopiere og lime inn Følgende VBA kode i Module vinduet;
Trinn 3:. Deretter klikker du Kjør knappen for å bruke VBA
følgende VBA er å endre rett sitater til krøllete sitater:
Sub ChangeDoubleStraightQuotes () 'Update 20131107Selection.Find .ClearFormattingSelection.Find.Replacement.ClearFormattingWith Selection.Find.Text = "" "" .Replacement.Text = "" "" .forward = True.Wrap = wdFindContinue.Format = False.MatchCase = False.MatchWholeWord = False.MatchWildcards = False.MatchSoundsLike = False.MatchAllWordForms = FalseEnd WithSelection.Find.Execute Erstatt: = wdReplaceAllEnd Sub
Følgende VBA er å endre krøllete sitater til rette sitater:
Sub ReplaceSmartQuotes () Dim vFindText Som VariantDim vReplText As VariantDim jeg Som LongvFindText = Array ("[^ 0145 ^ 0146]", "[^ 0147 ^ 0148]") vReplText = Array («^ 039", "^ 034") Med Selection.Find.ClearFormatting.Replacement.ClearFormatting. Forward = True.Wrap = wdFindContinue.MatchWholeWord = True.MatchWildcards = TrueFor i = LBound (vFindText) Til UBound (vFindText) .Text = vFindText (i) .Replacement.Text = vReplText (i) .Execute Erstatt: = wdReplaceAllNext iEnd WithEnd Sub