Word VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃ホーム  
78 / 308 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【665】タグを削除して、改行させるには ぶんた 10/1/3(日) 21:17 質問[未読]
【666】Re:タグを削除して、改行させるには ぶんた 10/1/6(水) 11:18 質問[未読]
【667】Re:タグを削除して、改行させるには りる 10/1/6(水) 20:29 回答[未読]
【668】Re:タグを削除して、改行させるには ぶんた 10/1/7(木) 6:11 回答[未読]
【665】タグを削除して、改行させるには
質問  ぶんた  - 10/1/3(日) 21:17 -
引用なし
パスワード
   はじめまして。ワードマクロ初心者です。
websiteのソースコードから、欲しい文章をコピペしたのですが、
HTMLのタグ（＜BR＞のようなもの）が入っているし、改行がされて
いないため、読みづらい状態です。
これらのタグを一つ一つ削除して改行していては日が暮れるので、
マクロでやってみたいのですが、ご指導お願いします。
マクロの勉強のため、できればワードの置換を使わずにマクロを
お教えいただければありがたいです。
よろしくお願いします。
【666】Re:タグを削除して、改行させるには
質問  ぶんた  - 10/1/6(水) 11:18 -
引用なし
パスワード
   この件について自分で作ってみました。
（マクロを記録させて組み合わせたものです）

Sub タグを消して改行()
　　Selection.Find.ClearFormatting
　　With Selection.Find
　　　　.Text = "<BR>"
　　　　.Replacement.Text = ""
　　End With
　　Selection.Find.Execute
　　Selection.TypeParagraph
　　
End Sub

これで、ひとつのタグを消して改行させることができました。
ただ、これを最後まで自動で続ける方法がわかりません。
ご教授よろしくお願いします。
【667】Re:タグを削除して、改行させるには
回答  りる  - 10/1/6(水) 20:29 -
引用なし
パスワード
   ぶんた さん、こんばんは。

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

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

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

これでいかがでしょうか。
【668】Re:タグを削除して、改行させるには
回答  ぶんた  - 10/1/7(木) 6:11 -
引用なし
パスワード
   りるさん、回答ありがとうございます。

早速試してみました。
うまくいきました。

ご教授いただいたコードをいろいろ調べて応用したいと思います。

ありがとうございました。

またよろしくお願いします。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃ホーム  
78 / 308 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
207136
(SS)C-BOARD v3.8 is Free