Jak dávkově přidat nebo odstranit více položek automatických oprav v aplikaci Word

V tomto článku níže bychom vám rádi představili způsob, jak dávkově přidat nebo odstranit více položek automatických oprav ve vašem Wordu.

Ve Wordu je vestavěná funkce zvaná automatické opravy. Mnoho uživatelů to již zná. Ve skutečnosti jej mnoho z nás používá k opravě snadno chybně napsaných slov. I když můžete importovat tolik položek, kolik potřebujete, musíte to udělat jednu po druhé. Obecně se s tím budeme muset smířit. Ale pokud jde o makro, budete moci ušetřit mnoho času vytvořením seznamu automatických oprav a importem je jednou provždy jedním kliknutím.

Níže jsou uvedeny podrobnosti o tom, jak toho dosáhnout:

Dávkové přidání více položek automatických oprav

1. Předevšímost, otevřete prázdný dokument ve Wordu a vložte tabulku se 2 sloupci a více řádky.
2. V tabulce zadejte do prvního sloupce všechna špatně napsaná slova.
3. A do druhého sloupce zadejte všechna správná slova.
4. Poté stisknutím „Alt+ F11“ vyvolejte editor VBA ve Wordu.
5. Poté klikněte na záložku „Normální“ a „Vložit“.
6. V rozevírací nabídce vyberte možnost „Modul“.
7. Další dvojitým kliknutím jako otevřete nový modul na pravé straně.
8. Nyní tam vložte následující kódy:

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. V neposlední řadě klikněte na „Spustit“ nebo stiskněte „F5“ pro spuštění makra.

Poznámky:

1. Spuštění makra zobrazí okno s výsledkem, které značí, že všechny položky v tabulce jsou importovány.
2. Ujistěte se, že za položkou v buňce tabulky není žádná mezera. Jinak makro selže.

Dávkové odstranění více položek automatických oprav

Zde je opačná potřeba dávkového mazání více automatických oprav v sekundách. Naštěstí s makrem by to mělo být snadné.

1. Nejprve vytvořte nový prázdný dokument ve Wordu podobným způsobem.
2. Poté vložte tabulku do 1 sloupce s více řádky.
3. Zadejte všechna špatně napsaná slova, která potřebujete odstranit do tabulky.
4. Dále nainstalujte a spusťte makro přesně podle výše uvedených kroků.
5. Ale nahraďte makro tímto:

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. Podobně je zde výsledkové pole, jak je uvedeno níže:

Zbraň pro boj s korupcí dokumentů

Představte si, že jste celý den pracovali na zprávě. A najednou Word přestane reagovat. O několik sekund později svou zprávu nenajdete nikde v počítači. Zdá se, že právě zmizeli! Jak zoufale se musíš cítit! Přesto místo křížení srdce a modliteb za štěstí potřebujete skutečnou zbraň obnovit docx.

Úvod autora:

Vera Chen je expertka na obnovu dat DataNumen, Inc., která je světovým lídrem v oblasti technologií pro obnovu dat, včetně poškozené xls a pdf opravy softwarových produktů. Pro více informací navštivte www.datanumen.com