多言語のWord文書で2つの言語の総単語数を数えるXNUMXつの方法

ワードソリューション 2025 年 9 月 28 日

今日の記事では、多言語のWord文書で2つの言語の合計単語を数えるXNUMXつの方法を紹介します。

たまに、多言語のWord文書を編集したいという要望があるかもしれません。その結果、特定のXNUMXつの言語の単語数をカウントしたい場合がありますが、Wordがこのタスクを実行できないことがわかります。

次に、そのような問題に対処するための2つの有用なソリューションを提供することを目的としています。

方法1：「高度な検索」オプションを使用する

まず、[ホーム]タブの[編集]グループの[検索]の後ろにある逆三角形のボタンをクリックします。
「検索と置換」ダイアログボックスで、「詳細」ボタンをクリックします。
そして、「単語全体を検索する」ボックスをチェックします。
次に、「フォーマット」ボタンをクリックします。
次に「言語」を選択します。
「言語の検索」ダイアログボックスで、目的の言語を検索して選択し、「OK」をクリックします。
「検索と置換」ボックスに戻り、「検索」をクリックして「メインドキュメント」を選択します。
次に、すべての英語の単語を選択し、画面の左下隅にある単語数を確認します。数は93であることがわかります。

方法2：Wordマクロを実行する

まず、「開発者」タブをクリックしてください。
次に、「VisualBasic」をクリックしてVBAエディターをトリガーします。「開発者」タブをまだ有効にしていない場合は、代わりに「Alt + F11」を押してください。
次に「通常」をクリックし、次に「挿入」をクリックします。
「モジュール」を選択します。
そして、新しいモジュールをダブルクリックして、コーディングスペースを開きます。
次に、次のコードをそこに貼り付けます。

Sub CountTotalWordsOfOneLanguage()
  Dim objRange As Range
  Dim nWords As Long
 
  ' Initialization
  Set objRange = ActiveDocument.Range
  nWords = 0
 
  ' Find all English words and do word count.
  With objRange.Find
    .LanguageID = wdFrench
    Do While .Execute
      nWords = nWords + objRange.ComputeStatistics(wdStatisticWords)
    Loop
  End With
 
  MsgBox nWords
End Sub

最後に、「実行」ボタンをクリックします。

メッセージボックスがポップアップ表示されます。この数字は、このドキュメントのフランス語のテキストの合計単語数を示しています。

メモ:

コード行で「.LanguageID = wdフランス語"、"wdフランス語」はフランス語を意味します。より具体的な用途に合わせてコードをカスタマイズするには、言語IDを必要な言語に置き換えることができます。さらに言語IDについては、次のサイトにアクセスしてください。 https://docs.microsoft.com/en-us/previous-versions/office/developer/office-2003/aa172988(v=office.11)

破損したWordファイルを適切に処理する

時々、Wordはあらゆる種類のエラーや間違いのためにシャットダウンまたはフリーズします。たとえば、定期的にファイルをバックアップしないと、貴重なデータがすべて失われる可能性が高くなります。そして、残っている2つの回避策は、Wordの組み込み機能を利用するか、次のプログラムを入手することです。修理ドキュメント前者の方法はほとんどの場合うまく機能しないように見えるため、サードパーティ製のツールを選択することをお勧めします。

著者紹介：

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