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

適用対象: Word 2013

現象


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

実行時エラー '5891':
指定したオブジェクトに対して、このプロパティを使用することはできません。

状況


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

詳細


再現手順

  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 で作成したマクロを実行します。
結果

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

実行時エラー '5891':
指定したオブジェクトに対して、このプロパティを使用することはできません。



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