Word VBA質問箱 IV

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

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


44 / 797 ←次へ | 前へ→

【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

678 hits

【777】マクロ作動で「検索/置換」コマンドでフォントが引き継がれるを避ける方法 ひさっぷ 13/6/1(土) 11:05 質問[未読]
【778】Re:マクロ作動で「検索/置換」コマンドでフ... マナ 13/6/1(土) 13:39 発言[未読]
【779】Re:マクロ作動で「検索/置換」コマンドでフ... マナ 13/6/1(土) 15:59 発言[未読]
【780】Re:マクロ作動で「検索/置換」コマンドでフ... ひさっぷ 13/6/2(日) 11:26 お礼[未読]
【781】Re:マクロ作動で「検索/置換」コマンドでフ... マナ 13/6/2(日) 12:05 発言[未読]
【784】Re:マクロ作動で「検索/置換」コマンドでフ... マナ 13/6/8(土) 11:49 発言[未読]

44 / 797 ←次へ | 前へ→
ページ:  ┃  記事番号:
192914
(SS)C-BOARD v3.8 is Free