word文書で赤文字テキストを抽出したいのです

現在、wordを使って日記を書いています。

日付を書いて改行し、本文を書いています。
本文中の重要な文言は　赤文字　に変更してます。

この赤文字に変更した文言だけを抽出して、
別ファイルに日付毎に転機したいのです。

コピー→貼り付けでできるのですが、
日記自体が何十ページになっており、
マクロを使って実現できないものか
ご教授いただければとおもいます。

よろしくお願いします。

No.1 ベストアンサー 回答者： enunokokoro 回答日時： 2016/04/06 12:00

> 別ファイルに日付毎に転機したい

日付ごとに転記するとは、日付部分も含めて新規ファイルなどに転記を
したいのでしょうか？

日付部分も赤文字にしてあれば、以下のサイトのマクロを少し編集する
だけで可能だと思います。
http://ameblo.jp/gidgeerock/entry-11076984085.html
こちら↑の場合は、蛍光ペンですが、蛍光ペンの部分だけを赤文字に
変更するだけで希望していることができます。

With myRange.Find
.Text = ""
.Forward = True
.Wrap = wdFindStop
.Font.ColorIndex = wdRed
.Highlight = True ' ここを .Font.ColorIndex = wdRed に変える

End With

日付部分は、事前に置換などで赤文字にすれば済みますよね。
置換方法は日付形式がわからないので提示しませんが、難しくないと
思います。

この回答へのお礼

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

実現できました。日付も赤文字にして実行します。

お礼日時：2016/04/07 08:03