Word VBA質問箱 IV

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

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


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

585 / 886

←次へ　｜　前へ→


	【307】試行錯誤してみましたが。。。

timtamlover - 05/5/16(月) 18:02 -


	引用なし

	パスワード

頼りきりでは、申し訳ないので、自分でも試行錯誤してみました。
以下のマクロで、レイアウト枠内にあるapi.graphiclabelという
スタイルのテキストボックスを探すところまでは、できました。

が、そのテキストボックスを削除するコマンドがわからず困っています。

本当の希望は、api.graphiclabelを別のスタイル（例えば、標準）に
変更したいのですが、、、

どちらの方法でも構いませんので、お分かりになる方、ぜひご教示
お願いいたします。

Sub Macro()
For Each s In ActiveDocument.Shapes
　With s.TextFrame
　　If .HasText = True Then
　　　If Selection.Find.style = "api.graphiclabel" Then
　　　---ここになにか追加したいのですが---　　　　
　　　End If
　　End If
　End With
Next
End Sub

1,241 hits

▼

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