Word VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃ホーム

588 / 886

←次へ　｜　前へ→


	【304】Re:特定のスタイルのテキスト枠のみ削除する

こば - 05/5/12(木) 17:15 -


	引用なし

	パスワード

こばです。こんにちは。

Selection.Find.Execute Replace:=wdReplaceAll
は、地の文章にカーソルがあるときは地の文章にしか使えないのかもしれません。

たとえば、
インライン以外のテキストフレームは、
シェイプオブジェクトとしてRangeプロパティが取得可能です。

Dim myRange As Range
Dim Shp As Shape

For Each Shp In ActiveDocument.Shapes
　Set myRange = Shp.TextFrame.TextRange
　Debug.Print myRange.Text
　myRange.Find.Execute FindText:="", Format:="api.graphiclabel", _
　　　ReplaceWith:="", Replace:=wdReplaceAll
　　　　　　　　
Next

こんなんでどうでしょう？
（WinXP ＆ Word2003）

1,263 hits

▼

【301】特定のスタイルのテキスト枠のみ削除する timtamlover 05/5/10(火) 11:38