Kā partijā pievienot vai izdzēst vairākus automātiskās labošanas ierakstus jūsu Word

Šajā rakstā mēs vēlamies jūs iepazīstināt ar veidu, kā programmā Word pievienot vai dzēst vairākus automātiskās labošanas ierakstus.

Programmā Word ir iebūvēta funkcija, ko sauc par automātisko labošanu. Daudzi lietotāji ar to jau ir pazīstami. Patiesībā daudzi no mums to izmanto, lai labotu viegli uzrakstītus vārdus. Lai gan jūs varat importēt tik daudz vienumu, cik nepieciešams, jums tas ir jādara pa vienam. Parasti mums ar to būs jāsamierinās. Bet, kas attiecas uz makro, jūs varēsiet ietaupīt daudz laika, izveidojot automātiskās labošanas ierakstu sarakstu un importējot tos vienreiz ar vienu klikšķi.

Tālāk ir sniegta informācija, kas parāda, kā to paveikt:

Paketē pievienot vairākus automātiskās labošanas ierakstus

1. Pirmkārt un galvenokārt, atveriet tukšu dokumentu programmā Word un ievietojiet tabulu ar divām kolonnām un vairākām rindām.
2. Tabulas pirmajā kolonnā ievadiet visus nepareizi uzrakstītos vārdus.
3. Un otrajā kolonnā ievadiet visus pareizos vārdus.
4. Pēc tam nospiediet taustiņu kombināciju Alt + F11, lai programmā Word izsauktu VBA redaktoru.
5. Pēc tam noklikšķiniet uz cilnes “Normal” un “Insert”.
6. Un nolaižamajā izvēlnē izvēlieties “Modulis”.
7. Nākamais veiciet dubultklikšķi uz kā, lai atvērtu jauno moduli labajā pusē.
8. Tagad tur ielīmējiet šādus kodus:

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. Visbeidzot, noklikšķiniet uz “Palaist” vai nospiediet “F5”, lai palaistu makro.

Piezīmes:

1. Palaižot makro, tiks parādīts rezultātu lodziņš, kas norāda, ka visi tabulas vienumi ir importēti.
2. Pārliecinieties, vai tabulas šūnā aiz vienuma nav atstarpes. Pretējā gadījumā makro neizdosies.

Paketē dzēst vairākus automātiskās labošanas ierakstus

Šeit ir pretēja vajadzība pēc vairākiem automātiskās labošanas ierakstiem sērijveidā dzēst dažu sekunžu laikā. Par laimi, izmantojot makro, tam vajadzētu būt vienkārši.

1. Pirmkārt, līdzīgi izveidojiet jaunu tukšu dokumentu programmā Word.
2. Pēc tam ievietojiet tabulu 1 vairāku rindu kolonnā.
3. Ievadiet tabulā visus nepareizi uzrakstītos vārdus, kas jums ir jānoņem.
4. Pēc tam instalējiet un palaidiet makro, veicot precīzas iepriekš norādītās darbības.
5. Bet aizstājiet makro ar šo:

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. Tāpat ir rezultātu lodziņš, kā norādīts tālāk:

Ierocis cīņai ar dokumentu korupciju

Iedomājieties, ka visu dienu esat strādājis pie ziņojuma. Un pēkšņi Word pārstāj reaģēt. Pēc dažām sekundēm jūs nekur nevarēsiet atrast savu pārskatu datorā. Šķiet, ka viņi vienkārši pazuda! Cik izmisušam tev jājūtas! Tomēr tā vietā, lai sakrustotu sirdi un lūgtu veiksmi, jums ir nepieciešams īsts ierocis atgūt docx.

Autora ievads:

Vera Čena ir datu atkopšanas eksperte DataNumen, Inc., kas ir pasaules līderis datu atkopšanas tehnoloģiju, tostarp sabojāts xls un pdf programmatūras produktu labošana. Lai iegūtu vairāk informācijas, apmeklējiet vietni www.datanumen. Ar