Ինչպես խմբաքանակով ավելացնել կամ ջնջել մի քանի ավտոմատ ուղղման գրառումներ ձեր Word-ում

Ստորև բերված այս հոդվածում մենք ցանկանում ենք ձեզ ներկայացնել ձեր Word-ում մի քանի ավտոմատ ուղղման գրառումներ խմբաքանակով ավելացնելու կամ ջնջելու եղանակը:

Word-ում կա ներկառուցված գործառույթ, որը կոչվում է autocorrect: Շատ օգտատերեր արդեն ծանոթ են դրան։ Փաստորեն, մեզանից շատերն այն օգտագործում են հեշտությամբ սխալ գրված բառերը ուղղելու համար։ Չնայած դուք կարող եք ներմուծել այնքան իրեր, որքան անհրաժեշտ է, դուք պետք է դա անեք մեկ առ մեկ: Ընդհանրապես, մենք ստիպված կլինենք համակերպվել դրա հետ։ Բայց, ինչ վերաբերում է մակրոներին, դուք կկարողանաք շատ ժամանակ խնայել՝ ստեղծելով ավտոմատ ուղղման գրառումների ցուցակ և դրանք մեկ անգամ ընդմիշտ ներմուծելով մեկ սեղմումով:

Հետևյալ մանրամասները ցույց են տալիս, թե ինչպես դա իրականացնել.

Խմբաքանակի ավելացում մի քանի ավտոմատ ուղղման գրառումներ

1. Նախ և առաջost, բացեք դատարկ փաստաթուղթ Word-ում և տեղադրեք 2 սյունակներից և մի քանի տողերից բաղկացած աղյուսակ:
2. Աղյուսակում մուտքագրեք բոլոր սխալ գրված բառերը առաջին սյունակում:
3. Եվ երկրորդ սյունակում մուտքագրեք բոլոր ճիշտ բառերը:
4. Դրանից հետո սեղմեք «Alt+ F11»՝ Word-ում VBA խմբագրիչը կանչելու համար:
5. Դրանից հետո կտտացրեք «Նորմալ» և «Տեղադրել» ներդիրներին:
6. Բացվող ընտրացանկում ընտրեք «Մոդուլ»:
7. Հաջորդը կրկնակի սեղմեք՝ աջ կողմում գտնվող նոր մոդուլը բացելու համար:
8. Այժմ այնտեղ տեղադրեք հետևյալ ծածկագրերը.

Sub BatchAddAutoCorrectEntries()
  Dim objTable As Table
  Dim objOriginalWord As Cell
  Dim objOriginalWordRange As Range
  Dim objReplaceWordRange As Range
  Dim nRowNumber As Integer
 
  Set objTable = ActiveDocument.Tables(1)
  nRowNumber = 1
  For Each objOriginalWord In objTable.Columns(1).Cells 
    Set objOriginalWordRange = objOriginalWord.Range
    objOriginalWordRange.MoveEnd Unit:=wdCharacter, Count:=-1
    Set objReplaceWordRange = objTable.Cell(nRowNumber, 2).Range
    objReplaceWordRange.MoveEnd Unit:=wdCharacter, Count:=-1
 
    AutoCorrect.Entries.Add Name:=objOriginalWordRange.Text, Value:=objReplaceWordRange.Text
 
    nRowNumber = nRowNumber + 1
  Next objOriginalWord
 
  Msgbox("All autocorrect items in the table1 are added.")
End Sub

9. Վերջին, բայց ոչ պակաս կարևորը, սեղմեք «Run» կամ սեղմեք «F5»՝ մակրո գործարկելու համար:

Նշումներ:

1. Մակրոն գործարկելու դեպքում կառաջարկվի արդյունքի վանդակ՝ նշելով, որ աղյուսակի բոլոր տարրերը ներմուծված են:
2. Համոզվեք, որ աղյուսակի բջիջում տարրից հետո հետին տարածք չկա: Հակառակ դեպքում մակրոները կխափանվեն:

Խմբաքանակի ջնջել բազմաթիվ ավտոմատ ուղղման գրառումներ

Ահա հակառակ անհրաժեշտությունը վայրկյանների ընթացքում խմբաքանակով ջնջելու բազմաթիվ ինքնաուղղման գրառումներ: Բարեբախտաբար, մակրոյով սա պետք է հեշտ լինի:

1. Նախ, ստեղծեք նոր դատարկ փաստաթուղթ Word-ում նմանապես:
2. Այնուհետև աղյուսակը տեղադրեք մի քանի տողերի 1 սյունակում:
3. Աղյուսակում մուտքագրեք բոլոր սխալ գրված բառերը, որոնք դուք պետք է հեռացնեք:
4. Հաջորդը տեղադրեք և գործարկեք մակրո՝ հետևելով վերը նշված քայլերին:
5. Բայց մակրոն փոխարինեք հետևյալով.

Sub BatchDeleteAutoCorrectEntries()
  Dim objTable As Table
  Dim objOriginalWord As Cell
  Dim objOriginalWordRange As Range
  Dim nRowNumber As Integer
 
  Set objTable = ActiveDocument.Tables(1)
  nRowNumber = 1
  For Each objOriginalWord In objTable.Columns(1).Cells 
    Set objOriginalWordRange = objOriginalWord.Range
    objOriginalWordRange.MoveEnd Unit:=wdCharacter, Count:=-1
 
    On Error Resume Next 
    AutoCorrect.Entries.Item(objOriginalWordRange.Text).Delete
 
    nRowNumber = nRowNumber + 1
  Next objOriginalWord
 
  Msgbox("All autocorrect items in the table1 are deleted.")
End Sub

6. Նմանապես, կա արդյունքի տուփ, ինչպես ստորև.

Փաստաթղթերի կոռուպցիայի դեմ պայքարի զենք

Պարզապես պատկերացրեք, որ ամբողջ օրը աշխատել եք հաշվետվության վրա։ Եվ հանկարծ Word-ը դադարում է արձագանքել: Այնուհետև վայրկյաններ անց դուք չեք կարող գտնել ձեր զեկույցը համակարգչում ոչ մի տեղ: Կարծես նրանք պարզապես անհետացան: Որքա՜ն հուսահատ պետք է զգաս։ Այնուհանդերձ, սիրտը խաչ քաշելու և բախտի համար աղոթելու փոխարեն ձեզ իսկական զենք է պետք վերականգնել docx.

Հեղինակի ներածություն.

Վերա Չենը տվյալների վերականգնման փորձագետ է DataNumen, Inc., որը տվյալների վերականգման տեխնոլոգիաների համաշխարհային առաջատարն է, այդ թվում կոռումպացված xls և pdf նորոգել ծրագրային արտադրանքները: Լրացուցիչ տեղեկությունների համար այցելեք www.datanumen.com