ms-word - Winword Addin で Range オブジェクトにシェイプを作成する

Question

winword アドインで、特定の Range オブジェクトにシェイプを作成しようとしています。

現在、 Range の先頭の左と上しか取得できませんが、その範囲の幅と高さを見つけることができません。

これは私が上/左を取得するために行っていることです:

                float left= r.get_Information(Word.WdInformation.wdHorizontalPositionRelativeToPage);
            float top= r.get_Information(Word.WdInformation.wdVerticalPositionRelativeToPage);

形状を追加するには、範囲を保持する選択オブジェクトに対してそのようなことをしています:

Sel.Document.Shapes.AddShape((int)Office.MsoAutoShapeType.msoShapeRectangle, 
                left, 
                top,
                100, 
                100, r )

それに加えて、その範囲が変更される（内容が変更される）たびに通知されたいと思います。