蛍光ペンの色を判定する

----------------------------------------
この記事を新しいサイトに転記しました
----------------------------------------

 前回の「特定の色の蛍光ペンを検索することはできるのか？ 」は、蛍光ペンを探すマクロを、マクロの記録機能で作ってみました。

▼昨日作ったマクロ

Sub HightLight_Search()
 
　　'蛍光ペンを探す
 
　　With Selection.Find
　　　　.ClearFormatting
　　　　.Replacement.ClearFormatting
　　　　.Highlight = True
　　　　.Text = ""
　　　　.Replacement.Text = ""
　　　　.Forward = True
　　　　.Wrap = wdFindContinue
　　　　.Format = True
　　　　.MatchCase = False
　　　　.MatchWholeWord = False
　　　　.MatchByte = False
　　　　.MatchAllWordForms = False
　　　　.MatchSoundsLike = False
　　　　.MatchWildcards = False
　　　　.MatchFuzzy = False
　　End With
　　Selection.Find.Execute
End Sub

今回は、もう少し進んで、選択した蛍光ペンの色の判定をしてみたいと思います。


続きはこちらの記事 をご覧ください。