Namig: drugi jeziki so prevedeni v Google. Lahko obiščete English različico te povezave.
Vpiši se
x
or
x
x
Registracija
x

or

Kako spremeniti naravne citate na skrivne citate v besedilu?

Običajno bo Microsoft Word samodejno spremenil neposredne narekovaje kričati (citat pametnih ortypographer) med vnašanjem. Toda če je funkcija izklopljena, se lahko v vašem dokumentu pojavijo enojne in dvojne oznake narekovaja. Tukaj so nasveti, s katerimi lahko spremenite neposredne narekovaje na skrivne narekovaje in obratno v Wordu.

Zamenjajte naravne citate na kodrele narete z Najdi in zamenjaj

Spremenite neposredne narekovanje na navidezne kotacije z VBA


puščica modra desno mehurček Če želite zamenjati neposredne narekovaje z navadnimi kotacijami, poiščite in zamenjajte

Hot
Neverjetno! Uporabite učinkovite kartice v programu Word (Office), kot so Chrome, Firefox in nov Internet Explorer!

Preberi več Brezplačen prenos

Pred vložitvijo vloge Poišči in zamenjaj, bi morali iti Samodejno popravi možnosti da počistite "Straight quotes" s "pametnimi citati" potrditveno polje.

V Wordu 2003, Samodejno popravi možnosti je pod Orodje bar. In v Word 2007, ki se uporablja Samodejno popravi možnosti s klikom > možnosti > izolacija > Samodejno popravi možnosti. Tukaj vzamemo Word 2010 / 2013, na primer:

Korak 1. Kliknite > Možnost > izolacija > Samodejno popravi možnosti > Samodejna oblika med vnašanjemin izberite "Straight quotes" s "pametnimi citati" potrditveno polje. Prikaz slike:

Korak 2. Kliknite Domov > Zamenjaj v Urejanje skupino ali pritisnite Ctrl + H prikazati Poišči in zamenjaj pogovorno okno in vnesite "or '' in Našli kaj polje in vnesite " or ''in Zamenjaj z škatla. Prikaz slike:

Korak 3. Kliknite Zamenjaj vse.

Opomba: če želite zamenjati vse skrite navedke z neposrednimi navodili, prosim počistite "Straight quotes" s "pametnimi citati" potrditveno polje).


puščica modra desno mehurček Spremenite neposredne narekovanje na navidezne kotacije z VBA

Če želite zamenjati vse neposredne narekovaje s kodranimi kotacijami v Word 2010 z uporabo VBA, kliknite file> Možnost > izolacija in kliknite Samopopravki možnosti In izberite "Straight quotes" s "pametnimi citati" potrdite polje na naslednji način. (Opombe: če želite zamenjati vse skrite navedke z neposrednimi navodili, počistite potrditveno polje »Neposredne ponudbe« s »pametnimi ponudbami«).

Korak 1: Pritisnite "Alt-F11", Da odprete okno Microsoft Visual Basic for Application;

Korak 2: kliknite Moduli o Vstavi kartico, kopirajte in prilepite naslednjo kodo VBA v Moduli okno;

Korak 3: nato kliknite Run gumb za uporabo VBA.

Naslednja VBA je, da spremenite neposredne narekovaje na skrivne narekovaje:

Sub ChangeDoubleStraightQuotes()
'Update 20131107
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = """"
.Replacement.Text = """"
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord =False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
End Sub

Naslednja VBA je, da spremenite uvodne narekovaje v neposredne narekovaje:

Sub ReplaceSmartQuotes()
Dim vFindText As Variant
Dim vReplText As Variant
Dim i As Long
vFindText = Array("[^0145^0146]", "[^0147^0148]")
vReplText = Array("^039", "^034")
With Selection.Find
.ClearFormatting
.Replacement.ClearFormatting
.Forward = True
.Wrap = wdFindContinue
.MatchWholeWord = True
.MatchWildcards = True
For i = LBound(vFindText) To UBound(vFindText)
.Text = vFindText(i)
.Replacement.Text = vReplText(i)
.Execute Replace:=wdReplaceAll
Next i
End With
End Sub

Priporočena orodja za produktivnost Worda

shot kutools beseda kutools zavihek 1180x121
shot kutools beseda kutools plus zavihek 1180x120

Kutools for Word - več kot 100 napredne funkcije Za Microsoft Word shranite svoj čas 50%

  • Zapletene in ponavljajoče se operacije lahko opravite enkratno obdelavo v sekundah.
  • V dokument Worda vstavite več slik v mapah.
  • Združite in združite več datotek Word v mapah v eno z želenim naročilom.
  • Razdelite trenutni dokument v ločene dokumente v skladu z naslovom 1, odlomkom odseka ali drugimi merili.
  • Pretvorite datoteke med Doc in Docx, Docx in PDF, zbirko orodij za običajne konverzije in izbiro, in tako naprej...
Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Sri · 6 months ago
    The VBA code method for changing "straight" to "smart" quotes worked perfectly! Thank you!
  • To post as a guest, your comment is unpublished.
    no name · 11 months ago
    My problem is that I have work normally in German but have an English document, which I marked as "English". Then I did find&replace and it converted them to lower " and upper " as it would happen in German. I looked at all the settings but I couldn't find it. I changed the dictionary language and everything else I could find to English... any idea?
  • To post as a guest, your comment is unpublished.
    Bill Smith · 4 years ago
    Your explanation for replacing in Find/Replace from instruction #2 on is completely incomprehensible.
    • To post as a guest, your comment is unpublished.
      Dustin · 3 years ago
      I think I found the explanation on another page. If you simply do a replace all and ask it to replace either single quotes or double quotes with the exact same symbol, it will go through and apply your autocorrect rules, including to replace straight quotes with smart quotes. So it should update those all to smart quotes as it goes.