ワードのマクロで、特定の文字の後に改行を入れる

質問

ワードのマクロで、特定の文字の後に改行を入れるにはどうしたらいいでしょうか。

例えば、文章の中で、「りんご」という言葉があった場合に、りんごの直後に改行を入れます。

場合によっては、改行を2行入れる可能性もあります。
よろしくお願いいたします。

回答No.2

imogasi · ベストアンサー

なぜマクロを思いついたのか？
WordVBAの本は極く少なく、WEB記事も（或る課題に限ると）少なくて、見つけるのに苦労するのに、不思議。
ーー
まず（ワードの）マクロの記録を取り、出たVBAコードのどの箇所に、修正や追加をすべきか、考えたうえで質問すべきだろう。
ーー
次はWEB記事だ。Googleで「ワード　VBA　検索」で検索すれば、使用例の記事が出る。
本当の理解は難しいのだが、横に置いておいて、コード例を挙げる。
Sub test02()
Set myRange = ActiveDocument.Content
myRange.Find.Execute findText:="点", ReplaceWith:="点" & vbCrLf, _
Replace:=wdReplaceAll
End Sub
ーー
実行結果
ワード文書　
例文
「Do While～Loop文を使うという点、またその条件式にExecuteメソッドを使うという点がポイントですね。」
ーーーー
置換後
「Do While～Loop文を使うという点
、またその条件式にExecuteメソッドを使うという点
がポイントですね。」
ーーーー
編集記号を出す設定にしておくと、確認が分かりやすい。
ーー
FindnextはエクセルVBAのもののようです。
https://excel-ubara.com/excelvba4/EXCEL225.html
VBAのFindメソッドの使い方には注意が必要です
のようにエクセルに慣れると注意？

回答No.1

hiro_1116

＞場合によっては、改行を2行入れる可能性もあります。

というのは、何か条件があって、マクロの中でそれを判定するということでしょうか？

単純に改行を入れるだけなら 置換 でもできそうな気がしますが。
https://word2013-help.blogspot.com/2014/05/word2013_11.html
この方法を応用して、「りんご」→「りんご(改行)」にしたらできませんかね？