Word VBA質問箱 IV

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

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


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

133 / 886

←次へ　｜　前へ→


	【778】Re:マクロ作動で「検索／置換」コマンドでフォントが引き継がれるを避ける方法

マナ - 13/6/1(土) 13:39 -


	引用なし

	パスワード

私も勉強中で、間違ってるかもしれませんが、回答してみます。
あとは、ヘルプなりネットで調べてみてください。

Selection.Find.ClearFormatting
とか
Selection.Find.Replacement.ClearFormatting
で書式を解除できます。
マクロの記録でもわかりますし、検索・置換のマクロはサンプルが多いのでネットで簡単に調べることができます

Sub test()
　　With Selection.Find
　　　　.ClearFormatting
　　　　.Text = "^13"
　　　　.Replacement.ClearFormatting
　　　　.Replacement.Text = ""
　　　　.Wrap = wdFindStop
　　End With
　　Selection.Find.Execute Replace:=wdReplaceAll
End Sub

また、SelectionオブジェクトではなくRangeオブジェクトを使う方法があります。

>その際、「取消線の削除」のフォント情報が、「検索／置換」の画面を見ると、引き継がれてしまっています。

Rangeオブジェクトの場合、「検索／置換」の設定とは関係なく実行できるらしいです。

Sub test2()
　　Dim myRng As Range
　　
　　Set myRng = Selection.Range
　　
　　With myRng.Find
　　　　.Text = "^13"
　　　　.Replacement.Text = ""
　　End With
　　myRng.Find.Execute Replace:=wdReplaceAll
End Sub

1,013 hits

▼

【777】マクロ作動で「検索／置換」コマンドでフォントが引き継がれるを避ける方法 ひさっぷ 13/6/1(土) 11:05