MVPの新田さんのブログで気になる記事がありました。“テキストボックス内の文字を置換するマクロ”テキストボックス等Shapeオブジェクトのテキストのみを置換するWordマクロです。これまで本文のみ、もしくはオートシェイプを含めた文書全体の文字列置換というのは行ったことがあるのですが、Shapeオブジェクトのみを対象とした文字列置換は行ったことがなかったので、私の方でも試してみました。Sub新田さんのマクロではSelectionオブジェクトを利用していますが、上記コードでは、ShapeオブジェクトのTextFrameプロパティ(TextFrameオブジェクト)にあるTextRangeプロパティからRangeオブジェクトを取得できるので、これを利用してみました。描画キャンバスとグループ化されたアイテムだけは考慮していますが、それ以外は特別な処理をしていませんので、上記コードでは対応できない場合があるかもしれません。APIで遊んでみました。fileの「アップロードするファイルの選択」ダイアログを制御するVBAマクロ久しぶりのVBAネタです。)この記事へのコメントはありません。この記事へのトラックバックはありません。URL返信をキャンセルする。スクリプト、リボンのカスタマイズに関する話題を中心に情報発信しています。MVPの新田さんが書かれた以下の記事を見て思いついたマクロです。