Word VBAで新しいインラインシェイプの場所を指定しますか?

Question

私は勤務している会社のドキュメント「ウィザード」に取り組んでいます。これは、いくつかのテキストといくつかのフォーム フィールド、および多くの VBA コードで構成されるヘッダーを持つ .dot ファイルです。ドキュメントの本文は、別の .doc ファイルから OLE オブジェクトとして取り込まれます。

現在、これは Shape, ではなく、 InlineShape. 。InlineShape は常にドキュメントの先頭に表示されるのに対し、Shape は絶対に配置できるため、これを行いました。

これの問題点は、 Shape ヘッダーのサイズが変更されても移動しません。特殊なケースによりヘッダーに行を追加または削除する必要がある場合は、本文を定義するオブジェクトも移動する必要があります。これは面倒なので、できれば避けたいですよね。

簡単に言うと、どのように配置すればよいですか InlineShape Word で VBA を使用しますか?

使用しているバージョンはWord97です。

Answer 1

InlineShape は文字として扱われます。したがって、同じテクニックです。

ThisDocument.Range(15).InlineShapes.AddPicture "1.gif"

Answer 2

私の最終的なコードは最終的に使用しました ThisDocument.Paragraphs 必要な範囲を取得するために。しかし、GSerg は私に、 Range オブジェクトを必要な場所に取得するために。