ロビンは、ドキュメントが開かれたときに、ドキュメントに追跡された変更があるかどうかについてユーザーに通知する方法を探しています。これはWordの標準機能ではありませんが、AutoOpenマクロを使用して簡単に追加できます。変更の追跡がオンになっているかどうかをマクロで単純に示す場合は、次を使用できます。

Sub AutoOpen()

If ActiveDocument.TrackRevisions = True Then         MsgBox "Track Changes is On."

End If End Sub

このマクロは、ドキュメントに実際に変更があるかどうかを通知しないため、変更の追跡がオフになっているが、前の編集セッションからの未解決の変更がまだ存在する状況では役に立ちません。その場合、マクロを少し展開する必要があります。

Sub AutoOpen()

On Error Resume Next

If ActiveDocument.TrackRevisions = True Then         MsgBox "Track Changes is On"

With ActiveWindow.View             .ShowRevisionsAndComments = True             .RevisionsView = wdRevisionsViewFinal         End With         Exit Sub     End If

If ActiveDocument.Revisions.Count > 0 Then         MsgBox "Document contains revisions"

With ActiveWindow.View             .ShowRevisionsAndComments = True             .RevisionsView = wdRevisionsViewFinal         End With         Exit Sub     End If End Sub

このバージョンのマクロは、[変更の追跡]がオンになっている場合はメッセージボックスを表示し、ドキュメントに変更が存在する場合はメッセージボックスを表示するという2つの条件をチェックします。どちらの場合も、マクロはドキュメントの表示も変更して、変更が画面に表示されるようにします。

注：

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

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

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

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

Word（Word 2007以降）のリボンインターフェイスに関するこのヒントのバージョンは、次の場所にあります：

linkTracked Changes Notification whenOpening。