テキストボックスを全てのページに貼り付けるマクロ

質問

Tifを全てにWORDに貼り付けた後に不要部分がTifに含まれてることが
判明してしまいました。削除方法として、枠なしのテキストをその部分に貼り付けることを思いついたのですが、ページ数が約2000と多いためマクロでやりたく思いました。
テキストボックスを前頁に所定の位置に貼り付けたいのですがどうしたらよいのでしょうか？

まず枠なしマクロを所定の位置に貼り付けるマクロを作成したら、for nextなどでループすればいいんですよね？
for i = 1　To 最後のページ
処理
nextみたいな感じですかね？

回答No.2

NOBNNN

#1です

Word　でしたね　#1 は無視してください。

雛形を作成し、テンプレートを作成

あとはそのテンプレートをもとに文書を作成してみてはどうですか？

回答No.1

NOBNNN

For Each sh In ThisWorkbook.Sheets
sh.OLEObjects.Add(ClassType:="Forms.TextBox.1", Link:=False, _
DisplayAsIcon:=False, Left:=58.5, Top:=43.5, Width:=91.5, Height:= _
11.25).Select

Next

でできます。
所定位置は　Left:=58.5, Top:=43.5, Width:=91.5, Height:= 11.25

の部分で調整して下さい。