Přejít k hlavnímu obsahu

Jak změnit přímé uvozovky na zvlněné uvozovky ve Wordu?

Za normálních okolností bude aplikace Microsoft Word automaticky měnit přímé uvozovky kudrnaté (chytré ortygrafické) nabídky jak píšete. Pokud je ale funkce vypnutá, mohou se v dokumentu objevit rovné i uvozovky. Zde jsou tipy, jak ve Wordu změnit přímé uvozovky na zvlněné uvozovky a naopak.

Změňte přímé uvozovky na kudrnaté uvozovky pomocí funkce Najít a nahradit

Změňte přímé uvozovky na zvlněné uvozovky pomocí VBA


šipka modrá pravá bublina Změňte přímé uvozovky na zvlněné uvozovky pomocí funkce Najít a nahradit

Karta Office: Přináší rozhraní s kartami do aplikací Word, Excel, PowerPoint...
střední slovo ad 100
Vylepšete svůj pracovní postup hned teď.      Více       Stažení zdarma

Před aplikací Najít a nahradit, měli byste jít na Možnosti automatické opravy zrušte zaškrtnutí políčka „Přímé uvozovky“ s „inteligentními uvozovkami“ zaškrtněte políčko.

V aplikaci Word 2003 Možnosti automatické opravy je v rámci Nástroj bar. A v aplikaci Word 2007 platí Možnosti automatické opravy Kliknutím  > možnosti > Kontrola pravopisu > Možnosti automatické opravy. Tady vezmeme například Word 2010/2013:

Krok 1. Klikněte na tlačítko  > Volba > Kontrola pravopisu > Možnosti automatické opravy > Automatický formát při psanía vyberte „Přímé uvozovky“ s „inteligentními uvozovkami“ zaškrtávací políčko. Viz screenshot :

Krok 2. Klikněte na tlačítko Domů > Nahradit v Editace skupiny nebo stiskněte Ctrl + H zobrazit Najít a nahradit dialogové okno a zadejte "or ‚‘ in Najít to, co a zadejte " or ‚‘in Nahradit krabice. Viz snímek obrazovky:

Krok 3. Klikněte na tlačítko Nahradit vše.

Poznámka: pokud chcete nahradit všechny složené uvozovky rovnými uvozovkami, zrušte prosím zaškrtnutí „Přímé uvozovky“ s „inteligentními uvozovkami“ zaškrtávací políčko).


šipka modrá pravá bublina Změňte přímé uvozovky na zvlněné uvozovky pomocí VBA

Chcete-li nahradit všechny přímé uvozovky zvlněnými uvozovkami v aplikaci Word 2010 pomocí VBA, klikněte prosím Soubor> Volba > Kontrola pravopisu a klepněte na tlačítko Automatické opravy možnosti A vyberte položku „Přímé uvozovky“ s „inteligentními uvozovkami“ Nejprve zaškrtněte políčko. (Poznámka: Pokud chcete nahradit všechny složené uvozovky přímými uvozovkami, zrušte zaškrtnutí políčka „Přímé uvozovky“ a „Inteligentní uvozovky“).

Krok 1: Stiskněte “Alt-F11”Pro otevření okna Microsoft Visual Basic for Application;

Krok 2: Klepněte na tlačítko Modul na Vložit kartu, zkopírujte a vložte následující kód VBA do souboru Modul okno;

Krok 3: Poté klikněte Běh tlačítko pro použití VBA.

Následující VBA má změnit přímé uvozovky na zvlněné uvozovky:

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

 

Následující VBA má změnit složené uvozovky na rovné uvozovky:

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

Nejlepší nástroje pro produktivitu v kanceláři

Kutools pro Word - Zvyšte své zkušenosti se slovem Over 100 Pozoruhodné vlastnosti!

Ponořte se do zvýrazněných funkcí níže nebo klikněte sem a prozkoumejte plnou sílu Kutools pro Word.

📘 Mistrovství dokumentů: Rozdělit stránky  /  Sloučit dokumenty  /  Exportovat výběr v různých formátech (PDF/TXT/DOC/XLSX)  /  Dávkový převod do PDF  /  Exportujte stránky jako obrázky  /  Tisk více souborů najednou ...

Úprava obsahu: Dávkové hledání a nahrazení přes více souborů   /  Změnit velikost všech obrázků   /  Transponujte řádky a sloupce tabulky  /  Převést tabulku na text ...

🧹 Čištění bez námahySmést pryč Extra prostory  /  Sekce přestávky  /   Všechny záhlaví  /  Textová pole  /  Odkazy  /  Další nástroje pro odstraňování najdete v naší skupině pro odstranění

Kreativní vložky: Vložit Tisíc separátorů  /  Zaškrtávací políčka  /  Tlačítka rádia  /  QR kód  /  čárový kód  /  Tabulka diagonálních čar  /  Titulek rovnice  /  Titulek obrázku  /  Titulek tabulky  /  Více obrázků  /  Objevte více v naší skupině Insert

???? Přesné výběry: Označte konkrétní stránky  /  Tabulky  /  Tvary  /  nadpisové odstavce  /  Procházejte se snadno pomocí naší Select Group

Vylepšení hvězd: Navigujte rychle na libovolné místo  /  automatické vkládání opakujícího se textu  /  plynule přepínat mezi okny dokumentů  /  11 Konverzní nástroje ...

Transformujte své úkoly ve Wordu pomocí Kutools. 👉 Stáhněte si nyní 30denní zkušební verzi 🚀.

Více       Stažení zdarma      Nákup
 
Comments (5)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
The VBA code method for changing "straight" to "smart" quotes worked perfectly! Thank you!
This comment was minimized by the moderator on the site
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?
This comment was minimized by the moderator on the site
This is my problem too. Did you ever find an answer?
This comment was minimized by the moderator on the site
Your explanation for replacing in Find/Replace from instruction #2 on is completely incomprehensible.
This comment was minimized by the moderator on the site
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.
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations