Word VBA質問箱 IV

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

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


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

239 / 886

←次へ　｜　前へ→


	【667】Re:タグを削除して、改行させるには

りる - 10/1/6(水) 20:29 -


	引用なし

	パスワード

ぶんたさん、こんばんは。

>この件について自分で作ってみました。
>これで、ひとつのタグを消して改行させることができました。
>ただ、これを最後まで自動で続ける方法がわかりません。
>ご教授よろしくお願いします。

置き換えなので、ヘルプの「Replacement プロパティ」の使用例から引用してみました。
なお、" "は改行コードに置き換えたほうがよさそうなのでここは変更してあります。

Sub タグを消して改行()
　　'A A A A　を置き換えてテスト。
　　With ActiveDocument.Range.Find
　　　　.Text = " " '前
　　　　.Replacement.Text = vbCr '改行に置き換える（改行コードを示す定数です）
　　　　.Execute Replace:=wdReplaceAll, _
　　　　　　Format:=True, MatchCase:=True, _
　　　　　　MatchWholeWord:=True
　　End With
End Sub

これでいかがでしょうか。

1,169 hits

▼

【665】タグを削除して、改行させるには ぶんた 10/1/3(日) 21:17