Pääsisältö

Kuinka muuttaa suorat lainaukset kiharaiksi lainauksiksi Wordissa?

Kirjailija: Amanda Li Viimeksi muokattu: 2025-04-02

Normaalisti Microsoft Word muuttaa automaattisesti suoria lainausmerkkejä Suorat lainaukset kiharaisiin (älykkään ortypografin) lainauksiin Kiharat lainaukset kun kirjoitat. Mutta jos ominaisuus on poistettu käytöstä, sekä lainausmerkit että lainausmerkit voivat näkyä suoraan asiakirjassa. Tässä on vinkkejä, joiden avulla voit muuttaa suorat lainaukset kiharaiksi lainauksiksi ja päinvastoin Wordissa.

Muuta suorat lainaukset kiharaiksi lainauksiksi Etsi ja korvaa -toiminnolla

Muuta suorat lainaukset kiharaiksi lainauksiksi VBA:lla

Suorat lainaukset nuoli Kiharat lainaukset

Wordin suositellut tuottavuustyökalut

Kutools for Word: Integroiva tekoäly 🤖, yli 100 lisäominaisuutta säästää 50 % asiakirjojen käsittelyajasta.Ilmainen lataus

Office-välilehti: Esittelee Wordin (ja muiden Office-työkalujen) selaimen kaltaiset välilehdet, mikä yksinkertaistaa useiden asiakirjojen navigointia.Ilmainen lataus


Muuta suorat lainaukset kiharaiksi lainausmerkeiksi Etsi ja korvaa -toiminnolla

Ennen levittämistä Etsi ja korvaa, sinun pitäisi mennä Automaattisen korjauksen asetukset poistaaksesi valinnan "Suorat lainaukset" ja "älykkäät lainaukset" Valintaruutu.

Vaihe 1. Klikkaus filee > Vaihtoehto > Proofing > Automaattisen korjauksen asetukset > Automaattinen muotoilu kirjoittaessasi, ja valitse "Suorat lainaukset" ja "älykkäät lainaukset" valintaruutu. Katso kuvakaappaus

Tiedosto-valikko, jossa Asetukset on valittu nuoli Wordin asetukset -ikkuna, jossa on Oikoluku-välilehti avattu, Automaattisen korjauksen asetukset napsautettu
nuoli
Automaattinen muotoilu kirjoittaessasi -osio, jossa on "Suora lainaus" ja "älykkäät lainaukset" -valintaruutu valittuna

Vaihe 2. Klikkaus ETUSIVU > korvata vuonna Muokkaaminen ryhmä tai paina Ctrl + H näyttää Etsi ja korvaa valintaikkuna ja kirjoita " or '' in Etsittävä ruutuun ja kirjoita " or '' in Korvaa laatikko. Katso kuvakaappaus:

Etsi ja korvaa -valintaikkuna

Vaihe 3. Klikkaus Korvaa kaikki.

Huomautus: Jos haluat korvata kaikki kiharat lainaukset suorilla lainausmerkeillä, tyhjennä "Suorat lainaukset" ja "älykkäät lainaukset" valintaruutu).


Muuta suorat lainaukset kiharaiksi lainauksiksi VBA:lla

Office-välilehti: Tuo välilehtiliittymät Wordiin, Exceliin, PowerPointiin...
Selaa asiakirjoja Office-välilehden avulla
Paranna työnkulkuasi nyt.      Lisätietoja Office-välilehdestä       Ilmainen lataus

Jos haluat korvata kaikki suorat lainaukset kiharailla lainausmerkeillä Word 2010:ssä VBA:ta käyttämällä, napsauta filee> Vaihtoehto > Proofing ja valitse Automaattisen korjauksen Vaihtoehdot Ja valitse "Suorat lainaukset" ja "älykkäät lainaukset" valintaruutu ensin seuraavasti. (Huomautuksia: jos haluat korvata kaikki kiharat lainausmerkit suorilla lainausmerkeillä, poista "Suora lainaus" -valintaruutu "älykkäät lainausmerkit" -valintaruudusta).

Vaihe 1: Paina "Alt-F11” avataksesi Microsoft Visual Basic for Application -ikkunan;

Vaihe 2: Napsauta Moduulit på den liite -välilehti, kopioi ja liitä seuraava VBA-koodi tiedostoon Moduulit ikkuna;

Vaihe 3: Napsauta sitten ajaa Suorita-painike -painiketta ottaaksesi VBA käyttöön.

Seuraava VBA muuttaa suorat lainaukset kiharaiksi lainauksiksi:

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

Seuraava VBA muuttaa kiharat lainaukset suoriksi lainauksiksi:

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

Parhaat toimiston tuottavuustyökalut

Kutools for Word - Paranna sanakokemustasi Overilla 100 Merkittäviä ominaisuuksia!

🤖 Kutools AI -ominaisuudet: AI-avustaja / Reaaliaikainen avustaja / Super Polish (säilytettävä muoto) / Super Translate (säilytä muoto) / AI editointi / AI Proofread...

📘 Asiakirjan hallinta: Jaa sivut / Yhdistä asiakirjat / Vie valikoima eri muodoissa (PDF/TXT/DOC/HTML...) / Erämuunnos PDF-muotoon...

Sisältö Editointi: Eräetsi ja korvaa useita tiedostoja / Muuta kaikkien kuvien kokoa / Transponoi taulukon rivit ja sarakkeet / Muunna taulukko tekstiksi...

🧹 Vaivaton puhdistus: Pyyhkäise pois Ylimääräiset tilat / Leikkaukset / Tekstilaatikot / Hyperlinkit / Jos haluat lisää irrotustyökaluja, siirry kohtaan poista ryhmä...

Luovat lisäosat: Aseta Tuhat erottimet / Valintaruudut / Radiopainikkeet / QR koodi / Viivakoodi / Useita kuvia / Tutustu lisää osoitteessa liite ryhmä...

🔍 Tarkkuusvalinnat: Tarkka kohta Tietyt sivut / taulukot / Muodot / Otsikko Kappaleet / Paranna navigointia lisää valita piirteet...

Tähtien parannukset: Siirry mihin tahansa sijaintiin / Lisää toistuvaa tekstiä automaattisesti / Vaihda asiakirjaikkunoiden välillä / 11 Muuntaminen Työkalut...

Kutools- ja Kutools Plus -välilehdet Word Ribbonissa
???? Haluatko kokeilla näitä ominaisuuksia? Lataa Kutools for Word nyt! 🚀
 

Parhaat toimiston tuottavuustyökalut

Kutools for Word - Yli 100 Wordin työkalua