Word 2013 でオートメーションから特定の種類のオブジェクトの RectangleTypeプロパティにアクセスすると例外が発生する

現象

Word 2013 の [挿入] タブより [コメント] で挿入したコメントに対して、VBA でコメント (Word.Rectangle オブジェクト) の RectangleType プロパティを取得しようとすると、以下のエラーが表示されます。

状況

マイクロソフトでは、この問題について現在調査中です。詳細については、わかりしだいこの資料に掲載する予定です。

詳細

再現手順

1. Word 2013 を起動して、新規の文書を作成します。

2. [挿入] タブから [コメント] で文書にコメントを挿入します。

3. VBA エディタを開き、以下の例のようなマクロを作成します。
   
   

   Sub test()
   Dim rectangles As Word.rectangles
   Dim rectangle As Word.rectangle
   Set rectangles = ActiveWindow.Panes.Item(1).pages.Item(1).rectangles
   For Each rectangle In rectangles
   

   Debug.Print rectangle.RectangleType
   Next
   End Sub

4. [ユーザー フォームの実行] ボタンをクリックするか、F5 キーで手順 3 で作成したマクロを実行します。

結果

 以下のエラーが表示され、処理が終了します。

Note :
Word 2007、Word 2010 ではエラーは発生せず、正常に動作します。