2008年12月24日水曜日

word 四角形の中の文字を置換

以前使ったテキストボックス内の文字を置換するマクロを使おうと思ったのだが、全くうまくいかない。どうもテキストボックスの中に書いた文字と四角形の中に書いた文字は別の扱いになるようだ。
んで最終的に使えるようになったものがこれ。

Sub autoope()
For Each i In ActiveDocument.Shapes
If i.Type = msoShapeRectangle Then
i.TextFrame.TextRange.Find.Execute FindText:="VTR機材(VTR,テープ", ReplaceWith:="VTR機材(ビデオカメラ、テープ",
Replace:=wdReplaceAll
End If
Next
ActiveDocument.Save
ActiveDocument.Close
End Sub

0 件のコメント:

インディアン(ネイティブアメリカン)の強キャラ

漫画でインディアン(ネイティブアメリカン)が描かれると 敵側の強キャラであることが多い気がする。 「バオー来訪者」ウォーケン 「傷追い人」インディアン・ジョー 「THE EDGE」バード バードはインディアンと明言されたわけではないが、バンダナ、長髪、厚い唇、戦闘力などからここに...