Word VBA質問箱 IV

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

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


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

138 / 892

←次へ　｜　前へ→


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

マナ - 13/6/1(土) 15:59 -


	引用なし

	パスワード

ごめんなさい修正です。
Selectionオブジェクトの場合
.MatchFuzzy = False
は省いちゃいけませんでしたね。

またこの場合、削除なので、
.Replacement.ClearFormatting
は不要でしょうか。たぶんあっても問題ないと思いますが。

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

ということで、私はRangeオブジェクトを使うことが多いです。

1,034 hits

▼

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