括弧または括弧内のテキストを単語数から除外する3つの方法

この記事では、括弧または括弧内のテキストを単語数から除外するための3つの効果的な方法を提供します。

Word文書を書くときは、読者と私たちの両方が記事をよりよく理解できるように、いくつかの説明文を括弧または括弧で囲んだいと思うことがあります。 ただし、Wordがデフォルトでそれらすべてをカウントするという厄介な事実があります。 また、括弧や括弧で囲まれた単語の数を含む数を取得する代わりに、「有効な」単語の数を確認したい場合もあります。

幸いなことに、それは不可能ではありません。ここでは、3つの方法をご紹介します。まず、3つの方法のうち2つは、「検索」機能を使って括弧や角括弧内の単語を探す方法です。それでは、その手順から始めましょう。

括弧または括弧内の単語を検索する

1. まず、「ホーム」タブをクリックします。
2. 次に、「検索」の逆三角形のボタンをクリックします。
3. そして、リストから「高度な検索」を選択します。
4. [検索と置換]ダイアログボックスで、[検索する文字列]テキストボックスに「\（* \）」と入力します。
5. 次に、[その他]をクリックして、その他のオプションを拡張します。
6. 次に、[ワイルドカードを使用する]チェックボックスをオンにします。
7. そして、「検索」ボタンをクリックして、「メインドキュメント」を選択します。
8. 次に表示されるのは、括弧内のすべての単語が選択されていることです。 また、角かっこで囲まれた単語を検索する場合は、代わりに[検索する文字列]テキストボックスに「\ [* \]」と入力してください。

方法1：コピーを操作する

1. まず、ドキュメントのコピーを作成します。
2. 次に、上記の手順に従って、括弧または角括弧内の単語を検索します。対象の単語が選択されたら、「検索と置換」ダイアログボックスを閉じて「Delete」キーを押すと、すべての単語が削除されます。または、ダイアログボックスを開いたままにして、「置換」タブをクリックすることもできます。
3. 次に、[置換]テキストボックスに何も表示されていないことを確認します。
4. 次に、「すべて置換」をクリックします。 そして、単語数を確認してください。

方法2：テキストを非表示にする

Wordは非表示のテキストをカウントしないため、コピーを作成せずに、対象となるすべての単語をしばらくの間非表示にしておくのが良いでしょう。

1. 括弧または括弧内のすべての単語を見つけたら、「ホーム」タブをクリックします。
2. 次に、「フォント」グループの下矢印ボタンをクリックして、「フォント」ダイアログボックスを開きます。
3. 「効果」の部分に移動し、「非表示」ボックスをチェックします。
4. 次に、「OK」をクリックします。

ここにあなたが注意しなければならない一つのことがあります。 テキストを非表示にする前に、「非表示のテキストを印刷する」オプションを誤ってオンにしていないことを確認してください。 それ以外の場合、Wordはこれらの目に見えない単語をカウントし続けます。 機能を確認するには、[ファイル]、[オプション]の順に移動して、[Wordのオプション]ダイアログボックスを開きます。 そこで、[表示]タブをクリックし、[印刷オプション]の部分に移動して、[非表示のテキストを印刷する]ボックスが選択されているかどうかを確認します。 そうである場合は、それをクリアして「OK」をクリックするだけです。

方法3：VBAコードを使用する

Word文書の括弧と括弧内に単語が含まれている可能性があります。 このような場合、両方を見つけるには、「検索」操作を少なくともXNUMX回実行する必要があります。 それでも、VBAコードの助けを借りて、ワンクリックでそれらすべてを簡単かつ迅速に見つけてクリアすることができます。

1. まず、元のファイルのコピーを作成します。
2. 次に、「Alt + F11」を押してVBAエディターを開きます。
3. 次に、編集領域にコードを貼り付けます。

'  Remove words both in brackets and parentheses.
Sub DeleteWordsInBracketsAndParentheses()
  Dim objMyRange As Range

  '  Initialization
  Set objMyRange = ActiveDocument.Content  

  '  Find and replace words in brackets and parentheses with "".
  With objMyRange.Find
    .Text = "\[*\]"
    .MatchWildcards = True
    .Replacement.Text = ""
    .Execute Replace:=wdReplaceAll
    .Text = "\(*\)"
    .MatchWildcards = True
    .Replacement.Text = ""
    .Execute Replace:=wdReplaceAll
  End With
End Sub

4. 「実行」を押すのを忘れないでください。

バックアップの重要性

上記のように、情報の整合性を保証するために、ファイルを操作する前にファイルをバックアップする必要がある場合があります。 誤って間違った動きなどをしてしまう可能性がありますので、必ずバックアップが必要です。 ただし、バックアップの習慣がない場合は、 単語のデータ復旧ツール ファイルが破損したとき。

著者紹介：

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