Wordの複数のオートコレクトエントリをバッチで追加または削除する方法

以下のこの記事では、Wordの複数のオートコレクトエントリをバッチで追加または削除する方法を紹介します。

Wordには、オートコレクトと呼ばれる組み込み機能があります。 多くのユーザーはすでにそれをよく知っています。 実際のところ、私たちの多くは、スペルミスの多い単語を修正するためにそれを使用しています。 必要な数のアイテムをインポートできますが、XNUMXつずつインポートする必要があります。 一般的に、私たちはそれを我慢しなければなりません。 ただし、マクロに関する限り、オートコレクトエントリのリストを作成し、クリックするだけで一度にインポートすることで、時間を大幅に節約できます。

以下は、それを達成する方法を示す詳細です。

複数のオートコレクトエントリをバッチ追加

1. まず最初に、Wordで空白の文書を開き、2列複数行の表を挿入してください。
2. 表の最初の列に、つづりの間違った単語をすべて入力します。
3. そして、XNUMX番目の列にすべての正しい単語を入力します。
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. 最後になりましたが、「実行」をクリックするか、「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を回復する.

著者紹介：

Vera Chenは、のデータ復旧の専門家です。 DataNumen、Inc。は、以下を含むデータ復旧技術の世界的リーダーです。 破損したxls (NAIST) と pdf ソフトウェア製品を修理します。 詳細については、次のWebサイトをご覧ください。 WWW。datanumen.com