« ワードマクロの勉強会を開催します。6月27日(日)午後 @名古屋市内 | トップページ | 日本語と英語の順序入れ替えマクロ »

2010年6月 4日 (金)

シンボルフォントを着色するマクロ

シンボル(Symbol)フォントって、検索できなくないですか?

水野麻子さんの記事「Symbolフォントは危険!」にもあるのですが、ワード上のシンボルフォントって、エディターソフトで文字化けするし、やっかいですね。

そこで、シンボルフォントの一部ではありますが、検索するマクロです。

ギリシャ文字部分(大文字・小文字)をピンクに着色します。

Sub Symbolフォント探し()

Dim SS, SE As Long 'カーソル位置の保存用

'画面更新非表示
    Application.ScreenUpdating = False

'カーソルの現在位置を保存
    SS = Selection.Start
    SE = Selection.End
            
'シンボルフォントのギリシャ文字をピンクの蛍光ペンで着色
For i = 61505 To 61562
If i >= 61531 And i <= 61536 Then GoTo Proc_Skip

    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = ChrW(i)
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchByte = False
        .MatchAllWordForms = False
        .MatchSoundsLike = False
        .MatchWildcards = False
        .MatchFuzzy = True
        .Execute
    End With
   
    Do While Selection.Find.Found = True
        Selection.Range.HighlightColorIndex = wdPink
        Selection.Find.Execute
    Loop
   
Proc_Skip:
Next i

'▼検索・置換条件の初期化
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = ""
        .Replacement.Text = ""
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchByte = False
        .MatchAllWordForms = False
        .MatchSoundsLike = False
        .MatchWildcards = False
        .MatchFuzzy = True
        .Execute
    End With

'カーソルの位置を戻す
    Selection.Start = SS
    Selection.End = SE

'画面更新表示
    Application.ScreenUpdating = True
   
End Sub

|

« ワードマクロの勉強会を開催します。6月27日(日)午後 @名古屋市内 | トップページ | 日本語と英語の順序入れ替えマクロ »

マクロプログラム」カテゴリの記事

コメント

コメントを書く



(ウェブ上には掲載しません)




トラックバック

この記事のトラックバックURL:
http://app.cocolog-nifty.com/t/trackback/519619/48537186

この記事へのトラックバック一覧です: シンボルフォントを着色するマクロ:

« ワードマクロの勉強会を開催します。6月27日(日)午後 @名古屋市内 | トップページ | 日本語と英語の順序入れ替えマクロ »