ブルースは、Wordがドキュメント内の長い文を自動的にマークする方法を探しています。たとえば、20語を超える単語を色でマークして、簡単に見つけられるようにしたい場合があります。

幸い、Wordには、ドキュメント内の各文で構成されるVBAからアクセスできるSentencesコレクションがあります。このコレクションの各アイテム（個々の文）を調べて、目的の長さよりも長いかどうかを判断できます。次のマクロは、これがどのように行われるかの例を示しています。

Sub Mark_Long()

Dim iMyCount As Integer     Dim iWords As Integer

If Not ActiveDocument.Saved Then         ActiveDocument.Save     End If

'Reset counter     iMyCount = 0

'Set number of words     iWords = 20

For Each MySent In ActiveDocument.Sentences         If MySent.Words.Count > iWords Then              MySent.Font.Color = wdColorRed             iMyCount = iMyCount + 1         End If     Next     MsgBox iMyCount & " sentences longer than " & _       iWords & " words."

End Sub

各文が調べられ、希望の長さ（変数iWordsで定義）より長い場合、文は赤いフォントの色に変更されることに注意してください。これにより、ドキュメントを簡単に調べて、指定した長さを超える文を見つけることができます。

注：

このページ（または_WordTips_サイトの他のページ）で説明されているマクロの使用方法を知りたい場合は、役立つ情報を含む特別なページを用意しました。

linkここをクリックして、新しいブラウザタブでその特別なページを開きます。

_WordTips_は、費用効果の高いMicrosoftWordトレーニングのソースです。

（Microsoft Wordは、世界で最も人気のあるワードプロセッシングソフトウェアです。）このヒント（11909）は、Microsoft Word 2007、2010、2013、2016、2019、およびOffice 365のWordに適用されます。このヒントのバージョンは、ここにWordの古いメニューインターフェイス：

linkFinding LongSentences。