« Esp@cenetの特定ページへのリンク自動作成 | トップページ | ぐーぐる検索用の右クリックマクロ(ワイルドカード対応版) »

2008年7月28日 (月)

日本語フォント検索・着色マクロ

●動作説明

文書中の日本語を検索して、黄色に蛍光着色します。

実際に検索対象文字は、半角英数文字および半角記号以外の文字です。
結果的に、日本語が検索されます。

設定は、ワイルドカード検索にて検索対象を ([! -~^t^13^l^m]{1,}) としています。

Wordで実践 やさしくて役に立つ「マクロ」事例集 のP155に解説があります。
ご覧ください。

昨日、([! -~]{1,})を検索対象として掲載いたしましたが、間違いでした。

この検索を実行すると、確かに日本語は検索されるのですが、日本語以外の
改行も含めて検索されてしました。

よって、日本語が記載されていない英文資料であっても、改行やタブが入って
いるがために、日本語が記載されていると判定されてしまうのです。

よって、検索対象外のリストに、タブと改行の記号を追加して、
([! -~^t^13^l^m]{1,})と記載すればうまくいきます。

●用途

日英翻訳にて、お客さんに納入するファイルに日本語のメモが残って
いないかどうか確認するときに使っています。

●プログラム

Sub 日本語検索()
'日本語フォント(実際には、半角英数文字以外)を検索して
'蛍光色に着色するマクロです。

    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    Options.DefaultHighlightColorIndex = wdYellow
    Selection.Find.Replacement.Highlight = True
    With Selection.Find
        .Text = "([! -~^t^13^l^m]{1,})"
        .Replacement.Text = "\1"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchCase = False
        .MatchWholeWord = False
        .MatchByte = False
        .MatchAllWordForms = False
        .MatchSoundsLike = False
        .MatchFuzzy = False
        .MatchWildcards = True
    End With
   
    Selection.Find.Execute
    If Selection.Find.Found = True Then
        Selection.Find.Execute Replace:=wdReplaceAll
        MsgBox "日本語フォントを着色しました。ご確認ください。"
    End If
   
    If Selection.Find.Found = False Then
        MsgBox "日本語フォントは見つかりませんでした。"
       
    End If
   
    With Selection.Find
        .ClearFormatting
        .Replacement.ClearFormatting
        .Text = ""
        .Replacement.Text = ""
        .MatchWildcards = False
        .MatchFuzzy = True
    End With
   
End Sub

|

« Esp@cenetの特定ページへのリンク自動作成 | トップページ | ぐーぐる検索用の右クリックマクロ(ワイルドカード対応版) »

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

コメント

さっそくのぞきにきました!
すっご~い、ぜんぜんわからない(笑)
でも、このマクロをわたしが使わせていただく日も遠くはないので、
このブログ、どうぞ続けてくださいね。
ブログ開設、おめでとうございます☆♪!

投稿: やんばる | 2008年8月 1日 (金) 05時42分

ブログ開設以来、初めてコメントいただきました。ありがとうございました。

内容は少しずつ増やしていきます。余裕ができてきたらプログラムの説明も入れます。

投稿: 管理人 | 2008年8月 1日 (金) 23時12分

コメントを書く



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




トラックバック

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

この記事へのトラックバック一覧です: 日本語フォント検索・着色マクロ:

« Esp@cenetの特定ページへのリンク自動作成 | トップページ | ぐーぐる検索用の右クリックマクロ(ワイルドカード対応版) »