Բաց թողնել հիմնական բովանդակությունը

Ինչպե՞ս փոխել ուղիղ գնանշումները բառի մեջ գանգուր գնանշումների:

Սովորաբար Microsoft Word- ը ավտոմատ կերպով փոխելու է ուղիղ գնանշումները գանգուր (խելացի օրթիպոգրաֆի) մեջբերումներին ինչպես եք մուտքագրում: Բայց եթե գործառույթն անջատված է, և՛ մեկ, և՛ կրկնակի չակերտները կարող են ուղիղ հայտնվել ձեր փաստաթղթում: Ահա խորհուրդներ ՝ Word- ում ուղիղ գները գանգուր գնի փոխարեն և հակառակը փոխելու համար:

Չանգը ուղիղ մեջբերում է գանգուր գնանշումներին Գտիր և փոխարինիր

Փոխեք ուղիղ գները VBA- ի հետ գանգուր գնի

Բառի համար առաջարկվող արտադրողականության գործիքներ

Kutools բառի համարԻնտեգրում AI 🤖, ավելի քան 100 առաջադեմ գործառույթներ խնայում են ձեր փաստաթղթերի մշակման ժամանակի 50%-ը:Անվճար ներբեռնում

Գրասենյակային ներդիրՆերկայացնում է Word-ի (և Office-ի այլ գործիքների) զննարկիչի նմանվող ներդիրները՝ հեշտացնելով բազմափաստաթղթային նավիգացիան:Անվճար ներբեռնում


նետ կապույտ աջ պղպջակ Փոխեք ուղիղ գնանշումները գանգուր գնի մեջ «Գտիր և փոխարինիր» -ով

Office ներդիր. ներդիրներով ինտերֆեյսները բերում է Word, Excel, PowerPoint...
ot word միջին գովազդ 100
Բարելավեք ձեր աշխատանքային հոսքը հիմա:      Կարդալ ավելին       Անվճար ներբեռնում

Նախքան դիմելը Գտնել եւ փոխարինել, դուք պետք է գնաք Ավտոմատ շտկելու ընտրանքներ ապանշել «Ուղիղ գնանշումներ» ՝ «խելացի մեջբերումներով» վանդակում:

Word- ում 2003 թ. Ավտոմատ շտկելու ընտրանքներ տակ է Գործիք բար Իսկ Word 2007-ում `դիմելով Ավտոմատ շտկելու ընտրանքներ սեղմելով  > Ընտրանքներ > Ջրամեկուսացման > Ավտոմատ շտկելու ընտրանքներ, Օրինակ ՝ մենք վերցնում ենք Word 2010/2013 – ը.

Քայլ 1. Սեղմել  > Տարբերակ > Ջրամեկուսացման > Ավտոմատ շտկելու ընտրանքներ > Ավտոմատ ձևաչափելիս մուտքագրելիսեւ ընտրեք «Ուղիղ գնանշումները» ՝ «խելացի գնանշումներով» վանդակը: Տեսեք սքրինշոթը

Քայլ 2. Սեղմել Գլխավոր > Փոխարինել է Editing խմբավորել կամ սեղմել Ctrl + H Ցուցադրել Գտնել եւ փոխարինել երկխոսություն և մուտքագրեք 'or '' in Գտեք ինչ տուփը և մուտքագրեք ' or ''in Փոխարինել տուփ Տեսեք,

Քայլ 3. Սեղմել Փոխարինեք բոլորը.

Նշում: եթե ցանկանում եք բոլոր գանգուր գները փոխարինել ուղիղ գնանշումներով, խնդրում ենք պարզաբանել «Ուղիղ գնանշումներ» ՝ «խելացի մեջբերումներով» վանդակում):


նետ կապույտ աջ պղպջակ Փոխեք ուղիղ գները VBA- ի հետ գանգուր գնի

Word 2010-ի բոլոր ուղիղ գնանշումները գանգուր գնանշումներով VBA- ի օգտագործմամբ փոխարինելու համար սեղմեք Ֆայլ> Տարբերակ > Ջրամեկուսացման եւ սեղմեք Ինքնուղղում Ընտրանքներ եւ ընտրեք «Ուղիղ գնանշումներ» ՝ «խելացի մեջբերումներով» նախ նշեք տուփը. (Նշումեթե ցանկանում եք բոլոր գանգուր գները փոխարինել ուղիղ չակերտներով, խնդրում ենք ջնջել «Ուղիղ գնանշումները» վանդակը «խելացի գնանշումներ» -ով):

Քայլ 1. Սեղմեք «Alt-F11”Բացել Microsoft Visual Basic կիրառական ծրագրի պատուհանը;

Քայլ 2: Սեղմեք Մոդուլներ մասին Տեղադրել ներդիրը, պատճենեք և տեղադրեք հետևյալ VBA կոդը ՝ Մոդուլներ պատուհան;

Քայլ 3. Ապա կտտացրեք Վազում VBA կիրառելու կոճակը:

Հետևյալ VBA- ն ուղիղ գնանշումները գանգուր գնի փոխելու համար է.

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

 

Հետևյալ VBA- ն պետք է գանգուր գները փոխի ուղիղ գնի:

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

Գրասենյակի արտադրողականության լավագույն գործիքները

Kutools բառի համար - Բարձրացրեք ձեր բառի փորձը Over-ի հետ 100 Ուշագրավ առանձնահատկություններ!

🤖 Kutools AI օգնականՓոխակերպեք ձեր գրածը AI-ի միջոցով - Ստեղծեք բովանդակություն  /  Վերաշարադրել տեքստը  /  Ամփոփել փաստաթղթերը  /  Հարցրեք տեղեկատվության համար Փաստաթղթի հիման վրա, բոլորը Word-ի շրջանակներում

📘 Փաստաթղթերի տիրապետում: Էջերի բաժանում  /  Միաձուլեք փաստաթղթերը  /  Արտահանել ընտրություն տարբեր ձևաչափերով (PDF/TXT/DOC/HTML...)  /  Խմբաքանակի փոխակերպում PDF-ի  /  Արտահանել էջերը որպես պատկերներ  /  Միանգամից մի քանի ֆայլ տպեք...

Բովանդակության խմբագրում: Խմբաքանակի որոնում և փոխարինում Բազմաթիվ Ֆայլերի միջով  /  Չափափոխել բոլոր նկարները  /  Փոխադրել աղյուսակի տողերը և սյունակները  /  Աղյուսակը տեքստի վերափոխել...

🧹 Անհեշտ մաքրություն:Հեռացրու Լրացուցիչ տարածքներ  /  Բաժնի ընդմիջումներ  /  Բոլոր վերնագրերը  /  Տեքստային տուփեր  /  Hyperlinks  / Լրացուցիչ հեռացման գործիքների համար այցելեք մեր Հեռացնել խումբը...

Ստեղծագործական ներդիրներՆերդիր Հազար բաժանիչներ  /  Նշեք վանդակները  /  Ռադիո կոճակներ  /  QR Code  /  Շտրիխ կոդ  /  Անկյունագծային աղյուսակ  /  Հավասարության վերնագիր  /  Նկարի վերնագիր  /  Աղյուսակի վերնագիր  /  Բազմաթիվ նկարներ  / Բացահայտեք ավելին Տեղադրեք խումբը...

🔍 Ճշգրիտ ընտրանքներ: Մատնանշել կոնկրետ էջեր  /  սեղաններ  /  ձեւավորում  /  վերնագրի պարբերություններ  / Ընդլայնել նավարկությունը ավելին Ընտրեք հատկանիշներ...

Աստղերի բարելավումներ: Արագ նավարկեք ցանկացած վայր  /  կրկնվող տեքստի ավտոմատ տեղադրում  /  անխափան անցում փաստաթղթի պատուհանների միջև  /  11 Փոխակերպման գործիքներ...

???? Ցանկանու՞մ եք փորձել այս հնարավորությունները: Kutools-ը Word-ի համար առաջարկում է ա 60 օր անվճար դատավարություն, առանց սահմանափակումների! 🚀
 
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