こんにちは いつもお世話になっています
ワード2010で、選択範囲だけの部分の改行を削除するマクロを記録マクロで作ったのですが、選択部以外もすべて改行してしまいます。どこがいけないのでしょうか。あるいは、操作の仕方でしょうか。以前は使えていたと思うのですが、仕様が変わったのでしょうか。
任意の範囲を選択しておいて、記録を開始しました。
よろしくお願いします。
Sub Macro1()
'
' Macro1 Macro
'
'
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = "^p"
.Replacement.Text = ""
.Forward = True
.Wrap = wdFindAsk
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchByte = False
.MatchAllWordForms = False
.MatchSoundsLike = False
.MatchWildcards = False
.MatchFuzzy = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
End Sub
ネット上で見つけた以下のマクロでもすべての改行が削除されます。
http://oshiete.goo.ne.jp/qa/960285.html
Sub Macro14()
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = "^p"
.Replacement.Text = " "
End With
Selection.Find.Execute Replace:=wdReplaceAll
End Sub
No.1ベストアンサー
- 回答日時:
Word2010のことはわかりませんが。
記録マクロを実行したときに、選択範囲以外の部分に対して
検索を続けるかどうかの確認のメッセージがありませんか?
http://ameblo.jp/gidgeerock/archive1-201104.html
.Wrap = wdFindAsk
こちら↑の部分がメッセージを出す部分なので、検索範囲以外
にはメッセージで確認を問うと思います。
.Wrap = wdFindStop
こちら↑に書き換えたときの動作はどうなりますか?
これで選択範囲の置換が終わると、それ以降の置換がされず
終了すると思いますので。
http://www.ujasiri.com/prglib/vba_word/vba_word_ …
ちなみに、ネットで見つけたという過去ログのマクロでは、
省略してあるだけで記録マクロと基本的に同じです。
With Selection.Find
これを使う場合は、記録マクロで記録された部分を省略で
記載するのは好ましくありません。
エラーになる可能性があるので、[置換]ダイアログの項目
に対応するものを、基本的に書いておきましょう。
enunokokoro 様 ありがとうございました。お蔭様で解決しました。
AskをStopにしたら成功しました。
参照サイトのご紹介まで頂き助かりました。
大切に使わせていただきます。
簡単で恐縮ですが、お礼申し上げます。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) マクロで最終行を取得してコピーしたい 3 2022/04/06 19:07
- Excel(エクセル) エクセルマクロで教えてください 2 2022/05/04 09:07
- Visual Basic(VBA) 【VBA】写真の貼り付けコードがうまく機能しません。 5 2022/09/01 18:43
- Visual Basic(VBA) ExcelのVBAコードについて教えてください。 1 2023/08/10 14:24
- Visual Basic(VBA) Excelのマクロコードについて教えてください。 1 2022/03/27 13:25
- Visual Basic(VBA) Wordマクロで指定したフォルダ名に保存する方法について 8 2022/12/13 11:35
- Visual Basic(VBA) エクセルのマクロについて教えてください。 7 2023/07/04 09:18
- Visual Basic(VBA) データのある範囲を選択するVBAについて 2 2022/09/03 00:20
- Excel(エクセル) 日付で矢印マクロ 4 2023/07/25 16:47
- Visual Basic(VBA) Excel_マクロ_現在開いているシートにマクロを実行したいです 1 2023/02/14 23:54
このQ&Aを見た人はこんなQ&Aも見ています
関連するカテゴリからQ&Aを探す
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
エクセルでツールバーに「縮小...
-
ファイル名を今日の日付、時刻...
-
複数のデータ系列の線の太さを...
-
VBA[Private Sub]のコードをシ...
-
cellsで特定の離れた範囲を選択...
-
エクセル2007 テキストボ...
-
VBAに詳しい方教えてください。
-
ワードで選択範囲だけの改行を...
-
どのドキュメントは暗号化され...
-
エクセルで、マクロをボタンに...
-
VBAで実行時エラー '1004'の解...
-
ユーザーフォームを「Esc」キー...
-
VBAを使ってエクセルシート...
-
ユーザフォームをどの画面から...
-
エクセルワークシート上に印刷...
-
VBAでこのような図形の移動はで...
-
エクセルマクロのグラフ操作
-
エクセルで自動でグラフを生成...
-
VBAで棒グラフの色を変えたい
-
excel 2007でのVBAのソースの見方
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
複数のデータ系列の線の太さを...
-
エクセルでツールバーに「縮小...
-
ファイル名を今日の日付、時刻...
-
cellsで特定の離れた範囲を選択...
-
Powerpointでランダムな数字の...
-
VBAに詳しい方教えてください。
-
VBA[Private Sub]のコードをシ...
-
VBAを使ってエクセルシート...
-
【ExcelVBA】クエリの更新とピ...
-
別ブックからユーザーフォーム...
-
ピボットグラフの書式の固定に...
-
Pictures.Insertメソッド⇒Shape...
-
エクセルシートをまとめて印刷...
-
どのドキュメントは暗号化され...
-
最初の1回のみにボタンクリッ...
-
エクセルワークシート上に印刷...
-
エクセル2007 テキストボ...
-
エクセルのマクロでSelection.S...
-
エクセルVBAで、画像の倍率を知...
-
VBAで棒グラフの色を変えたい
おすすめ情報