Word文書の弾丸の数を数える2つの簡単な方法

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

今日の記事では、Word文書の弾丸の数を数えるための2つの迅速で効果的な方法を紹介します。

時々、ドキュメント内の箇条書きまたは番号付きリストを使用してアイテムを整理していました。一般に、箇条書きや数字は、単語、フレーズ、文など、個々の項目を導きます。これで、番号付きリストがある場合は、アイテムの総数を把握するのに問題はありません。ただし、Word文書に箇条書きが含まれている場合はどうなりますか？それらをXNUMXつずつ数えるだけではよく聞こえません。

したがって、弾丸の数を合計する必要がある場合に備えて、次の2つの方法で解決できます。

方法1：箇条書きを番号付きリストに変換する

まず、弾丸番号を取得したいリストを選択します。
次に、「ホーム」タブの下の「段落」グループの「番号付け」をクリックします。箇条書きは番号付きに変更されます。

または、選択範囲を右クリックして[ナンバリング]オプションの上にカーソルを移動し、拡張メニューのナンバリングスタイルのXNUMXつにカーソルを合わせることができます。これにより、実際に箇条書きを番号付きに変換しなくても、箇条書きの数を取得できます。

ちなみに、ドキュメント全体の箇条書きを数える必要がある場合は、XNUMXつの箇条書きリスト内にカーソルを置くだけで、上記の手順を実行できます。ファイル内のすべての箇条書きリストは、次のように、番号が順番に付いた番号付きリストに変換されています。

方法2：マクロを使用する

まず、特定のリストの箇条書きを取得する場合は、それを選択します。それ以外の場合は、ドキュメント全体の箇条書きの数を確認するには、「Ctrl + A」を押して選択する必要があります。
次に、「開発者」タブをクリックします。
次に、「VisualBasic」をクリックしてVBAエディターを開きます。ショートカットの組み合わせは「Alt + F11」です。
次に、「通常」、「挿入」の順にクリックします。
次に「モジュール」を選択します。
新しいモジュールをダブルクリックして、次のコードを編集領域に貼り付けます。

 Sub GetNumberOfBullets()
   Dim objRange As Range
   Dim objParagraph As Paragraph
   Dim nNumber As Integer
 
   '  Initialization
   Set objRange = Selection.Range
   nNumber = 0
 
   For Each objParagraph In objRange.Paragraphs
   If objParagraph.Range.ListFormat.ListType = WdListType.wdListBullet Then
     nNumber = nNumber + 1
   End If
   Next objParagraph
 
   '  Pop up a message box to show the total number of bullets.
   MsgBox ("Bullet number:" & nNumber)
 End Sub

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

結果を示すメッセージボックスがポップアップ表示されます。

ファイルを適切に管理する

私たちは仕事の経験の中で多数のWord文書を扱っていますが、万が一の事故は破損につながる可能性があるため、慎重に扱うことをお勧めします。また、ファイルの損傷が発生した場合は、 Word文書回復ツールあなたが問題の世話をするのを助けるために。

著者紹介：

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