Salt la conținutul principal

Cum să schimbați ghilimelele drepte în ghilimele buclate în cuvânt?

În mod normal, Microsoft Word va schimba automat ghilimelele la citatele cretate (ortografe inteligente) pe măsură ce tastați. Dar dacă caracteristica este dezactivată, ambele ghilimele simple și duble pot apărea direct în document. Iată câteva sfaturi pentru a schimba ghilimelele drepte în ghilimele curlate și invers în Word.

Schimbați ghilimele drepte la ghilimele curlate cu Găsiți și înlocuiți

Schimbați ghilimelele drepte în ghilimele cu VBA


săgeată albastru dreapta balon Schimbați ghilimelele drepte în ghilimele cret cu Găsiți și înlocuiți

Fila Office: Aduce interfețe cu file în Word, Excel, PowerPoint...
ot cuvânt mijloc ad 100
Îmbunătățiți-vă fluxul de lucru acum.      Citeste mai mult       Descărcare gratuită

Înainte de a aplica Găsiți și înlocuiți, ar trebui sa mergi la Opțiuni de corectare automată pentru a debifa „Citate directe” cu „citate inteligente” Caseta de bifat.

În Word 2003, Opțiuni de corectare automată se află sub Instrument bar. Și în Word 2007, aplicând Opțiuni de corectare automată dând clicuri  > Opţiuni > Verificare > Opțiuni de corectare automată. Aici luăm Word 2010/2013 de exemplu:

Pasul 1. Clic  > Opțiune > Verificare > Opțiuni de corectare automată > Formatați automat pe măsură ce tastațiȘi selectați „Citate directe” cu „citate inteligente” Caseta de bifat. Vedeți captura de ecran :

Pasul 2. Clic Inițial > Înlocui în Editarea grup sau apăsați Ctrl + H a afișa Găsiți și înlocuiți dialog și introduceți "or '' in Gaseste ce caseta și introduceți " or „“in Înlocui cu cutie. Vedeți captura de ecran:

Pasul 3. Clic Înlocuiește-le pe toate.

Notă: dacă doriți să înlocuiți toate ghilimelele curate cu ghilimele drepte, vă rugăm să ștergeți „Citate directe” cu „citate inteligente” Caseta de bifat).


săgeată albastru dreapta balon Schimbați ghilimelele drepte în ghilimele cu VBA

Pentru a înlocui toate ghilimelele drepte cu ghilimele în Word 2010 folosind VBA, faceți clic pe Fișier> Opțiune > Verificare și faceți clic Corecție automată Opţiuni Și selectați „Citate directe” cu „citate inteligente” bifați caseta de mai jos după cum urmează. (notițe: dacă doriți să înlocuiți toate ghilimelele curate cu ghilimele drepte, vă rugăm să debifați caseta de selectare „Ghilimele drepte” cu „Ghilimele inteligente”).

Pasul 1: apăsați „Alt-F11”Pentru a deschide fereastra Microsoft Visual Basic pentru aplicație;

Pasul 2: Faceți clic pe Module pe Insera filă, copiați și lipiți următorul cod VBA în Module fereastră;

Pasul 3: Apoi faceți clic pe Alerga pentru a aplica VBA.

Următorul VBA este de a schimba ghilimelele drepte în ghilimele curlate:

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

 

Următorul VBA este de a schimba ghilimele curlate în ghilimele drepte:

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

Cele mai bune instrumente de productivitate de birou

Kutools pentru Cuvânt - Crește-ți experiența Word cu Over 100 Caracteristici remarcabile!

Scufundați-vă în caracteristicile evidențiate de mai jos sau faceți clic aici pentru a explora întreaga putere a Kutools for Word.

📘 Stăpânirea documentelor: Pagini împărțite  /  Fuzionați documente  /  Exportați selecția în diferite formate (PDF/TXT/DOC/XLSX)  /  Conversie lot în PDF  /  Exportați paginile ca imagini  /  Imprimați mai multe fișiere simultan ...

Editarea continutului: Găsiți și înlocuiți în lot peste mai multe fișiere   /  Redimensionați toate imaginile   /  Transpuneți rânduri și coloane de tabel  /  Convertiți tabelul în text ...

🧹 Curățare fără efortÎndepărtați Spații suplimentare  /  Secțiuni pauze  /   Toate anteturile  /  Casete text  /  hiperlinkuri  /  Pentru mai multe instrumente de eliminare, accesați grupul nostru de eliminare

Inserții creative: Insera Mii de separatori  /  Casete de bifare  /  Butoane radio  /  QR Code  /  coduri de bare  /  Tabel cu linii diagonale  /  Legenda ecuației  /  Image Caption  /  Legenda tabelului  /  Imagini multiple  /  Descoperiți mai multe în grupul nostru de inserări

???? Selectii de precizie: Identificați anumite pagini  /  tabele  /  forme  /  paragrafele de titlu  /  Navigați cu ușurință folosind grupul nostru Select

Îmbunătățiri de stele: Navigați rapid în orice locație  /  inserarea automată a textului repetitiv  /  comutați fără probleme între ferestrele documentelor  /  11 Instrumente de conversie ...

Transformați-vă sarcinile Word cu Kutools. 👉 Descărcați acum cu o perioadă de încercare de 30 de zile 🚀.

 
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