Derekは、次に書体（フォント名）が変更されたときに、ドキュメント内でそれを見つける方法を必要としています。たとえば、挿入ポイントがドキュメントの中央にある場合、次の変更が発生するポイントから開始して、Wordに通知する必要があります。デレクは、そのようなタスクを達成する方法があるかどうか疑問に思います。

このタスクを実行するための組み込みの方法はありませんが、書体がいつ変更されたかを視覚的に確認できる場合があります。多くの場合、ドキュメントのズーム率を（たとえば、200％または250％に）増やしてから、ドキュメントを視覚的にスキャンして外観の変化を探すだけでわかります。もちろん、これは2つの隣接するフォント間の視覚的な差異に依存します。

マクロベースのソリューションが必要な場合は、現在の挿入ポイントの場所に書体名を保存してから、ドキュメントの残りの各文字をステップ実行するソリューションを作成できます。書体が元の書体と異なる場合は、ユーザーに通知できます。このようなマクロの例を次に示します。

Sub ChangeOfFont()

Dim fntName As String     Dim aRange As Range

Set aRange = Selection.Range     aRange.Collapse Direction:=wdCollapseStart     aRange.MoveEnd Unit:=wdCharacter     fntName = aRange.Font.Name     Do         aRange.MoveEnd Unit:=wdCharacter         aRange.MoveStart Unit:=wdCharacter     Loop Until aRange.Font.Name <> fntName Or _       aRange.Bookmarks.Exists("\EndOfDoc")

aRange.Select     If aRange.Bookmarks.Exists("\EndOfDoc") Then         MsgBox "End of document"

Else         MsgBox "Font change from " & fntName & " to " & aRange.Font.Name     End If End Sub

作業の大部分はDoループで行われ、各文字のフォントが変更されているかどうかがチェックされます。ループは、ドキュメントの終わりに到達したかどうかもチェックすることに注意してください。その時点で、マクロを停止する必要があります。

注：

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

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

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

（Microsoft Wordは、世界で最も人気のあるワードプロセッシングソフトウェアです。）このヒント（5131）は、Microsoft Word 2007、2010、2013、および2016に適用されます。