Hatena::ブログ(Diary)

ぐりにたんく

このブログサイトで公開されているソース及びスクリプト等は、特別な記述がない限り、基本的にパブリックドメインです。
自己責任にてご利用ください。

2009-01-17

蛍光ペンを、色別に処理する

| 12:50

Wordでは、「蛍光ペン」を色別に検索する事ができず、結果としてWordVBAでも、蛍光ペンの色別検索を利用する事ができません。

文書内の文字を1つずつ舐めて該当範囲を選択する事も方法の1つですが、検索機能を利用して蛍光ペンの色別処理を行う方法を考えます。

以下のソースは、文書の先頭から黄色蛍光ペンを探し、「黄色選択したよ」とメッセージを表示するVBAサンプルです。

Sub taginsHighlightColor()
    Selection.HomeKey Unit:=wdStory
    Selection.Find.ClearFormatting
    Selection.Find.Highlight = True
    Selection.Find.Wrap = wdFindStop
    Do While Selection.Find.Execute
        Do While Selection.Range.HighlightColorIndex = 9999999
            Selection.MoveLeft Unit:=wdCharacter, Count:=1, Extend:=wdExtend
        Loop
        Select Case Selection.Range.HighlightColorIndex
            Case wdYellow
                MsgBox "黄色選択したよ"
        End Select
        Selection.MoveRight Unit:=wdCharacter, Count:=1
    Loop
End Sub