2023年12月25日

Wordで康煕部首を置換する方法を紹介！

Wordで康煕部首を置換する方法を紹介！

Microsoft Wordで「康煕部首」を置換したいと思ったことはありませんか？康煕部首とは、文字の部首の記号です。文字が潰れた場合は、康煕部首になっていないかチェックして置換しましょう。この記事では、Wordで康煕部首を置換する方法をご紹介しています。


目次[非表示]

  1. Wordで康煕部首を置換したい
  2. Wordで康煕部首を置換する方法

Wordで康煕部首を置換したい

Microsoft Wordで「康煕部首」を置換したいと思ったことはありませんか？「康煕部首（こうきぶしゅ）」とは、文字の部首の記号です。部首ということは通常は文字扱いしないはずですが、何故かUnicodeのブロックの一つとして設定されているためこの康煕部首が使用されることがあります。

もし文書内の文字が潰れてしまっている場合は、康煕部首が使用されている可能性があるため置換して一般的な文字にしてみましょう。この記事では、Wordで康煕部首を置換する方法をご紹介していきます。

Wordで康煕部首を置換する方法

「Visual Basic」をクリック
それでは、Wordで康煕部首を置換する方法を説明します。まずは、康煕部首を置換するためのマクロを作成します。ウィンドウ上部の「開発」タブをクリックしてリボンメニューを開き、「コード」項目の「Visual Basic」をクリックしましょう。

※「開発」タブが表示されていない場合、下記リンク先の記事と同様の方法で開発タブを表示させることができます。こちらをお試しください。

Excelの開発タブを表示する方法を紹介！

Microsoft Officeの表計算ソフト・Excelで、VBAやマクロの作成・操作・実行を行いたいのに「開発タブ」が表示されていなくて困ってしまったことはありませんか？この記事では、Excelの開発タブを表示する方法をご紹介しています。

Thumb
「挿入」→「標準モジュール」をクリック

「Visual Basic Editor」が開くので、ウィンドウ上部の「挿入」メニューから「標準モジュール」をクリックしましょう。標準モジュールのコードウィンドウが表示されるので、記事の後半に記載しているコードをコピー&ペーストして貼り付けてから「Ctrlキー+Sキー」の同時押しで「名前を付けて保存」ダイアログボックスを呼び出し「.docm」形式で保存しましょう。

保存したマクロファイルを「C:\Users\<ユーザー名>\AppData\Roaming\Microsoft\Word\STARTUP」フォルダに貼り付ける
続いて保存したマクロファイルを「C:\Users\<ユーザー名>\AppData\Roaming\Microsoft\Word\STARTUP」フォルダに貼り付けます。
マクロのボタンをクリック→康煕部首の文字が一般的な文字に変換される
あとは康煕部首が混じっているWordのファイルを開いたら、クイックアクセスツールバーに表示されているマクロのボタンをクリックすると置換処理が始まります。処理が完了すると、康煕部首の文字が一般的な文字に変換されますよ。

以上が、Wordで康煕部首を置換する方法の説明となります。使用しているコードは下記のものなので、こちらをご利用ください。

Sub FontChange()
'
' Macro3 Macro
'
'
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
      With Selection.Find
        .Text = ChrW(12032)
        .Replacement.Text = "一"
        .Forward = True
        .Wrap = wdFindContinue
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
  With Selection.Find
        .Text = ChrW(12033)
        .Replacement.Text = "｜"
        .Forward = True
        .Wrap = wdFindContinue
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
  With Selection.Find
        .Text = ChrW(12034)
        .Replacement.Text = "、"
        .Forward = True
        .Wrap = wdFindContinue
            End With
    Selection.Find.Execute Replace:=wdReplaceAll
  With Selection.Find
        .Text = ChrW(12035)
        .Replacement.Text = "ノ"
        .Forward = True
        .Wrap = wdFindContinue
            End With
    Selection.Find.Execute Replace:=wdReplaceAll
  With Selection.Find
        .Text = ChrW(12036)
        .Replacement.Text = "乙"
        .Forward = True
        .Wrap = wdFindContinue
            End With
    Selection.Find.Execute Replace:=wdReplaceAll
  With Selection.Find
        .Text = ChrW(12037)
        .Replacement.Text = "」"
        .Forward = True
        .Wrap = wdFindContinue
            End With
    Selection.Find.Execute Replace:=wdReplaceAll
  With Selection.Find
        .Text = ChrW(12038)
        .Replacement.Text = "二"
        .Forward = True
        .Wrap = wdFindContinue
            End With
    Selection.Find.Execute Replace:=wdReplaceAll
  With Selection.Find
        .Text = ChrW(12039)
        .Replacement.Text = "亠"
        .Forward = True
        .Wrap = wdFindContinue
            End With
    Selection.Find.Execute Replace:=wdReplaceAll
  With Selection.Find
        .Text = ChrW(12040)
        .Replacement.Text = "人"
        .Forward = True
        .Wrap = wdFindContinue
            End With
    Selection.Find.Execute Replace:=wdReplaceAll
  With Selection.Find
        .Text = ChrW(12041)
        .Replacement.Text = "儿"
        .Forward = True
        .Wrap = wdFindContinue
            End With
    Selection.Find.Execute Replace:=wdReplaceAll
  With Selection.Find
        .Text = ChrW(12042)
        .Replacement.Text = "入"
        .Forward = True
        .Wrap = wdFindContinue
            End With
    Selection.Find.Execute Replace:=wdReplaceAll
  With Selection.Find
        .Text = ChrW(12043)
        .Replacement.Text = "八"
        .Forward = True
        .Wrap = wdFindContinue
            End With
    Selection.Find.Execute Replace:=wdReplaceAll
  With Selection.Find
        .Text = ChrW(12044)
        .Replacement.Text = "冂"
        .Forward = True
        .Wrap = wdFindContinue
            End With
    Selection.Find.Execute Replace:=wdReplaceAll
  With Selection.Find
        .Text = ChrW(12045)
        .Replacement.Text = "冖"
        .Forward = True
        .Wrap = wdFindContinue
            End With
    Selection.Find.Execute Replace:=wdReplaceAll
  With Selection.Find
        .Text = ChrW(12046)
        .Replacement.Text = "冫"
        .Forward = True
        .Wrap = wdFindContinue
            End With
    Selection.Find.Execute Replace:=wdReplaceAll
  With Selection.Find
        .Text = ChrW(12047)
        .Replacement.Text = "几"
        .Forward = True
        .Wrap = wdFindContinue
            End With
    Selection.Find.Execute Replace:=wdReplaceAll
  With Selection.Find
        .Text = ChrW(12048)
        .Replacement.Text = "凵"
        .Forward = True
        .Wrap = wdFindContinue
            End With
    Selection.Find.Execute Replace:=wdReplaceAll
  With Selection.Find
        .Text = ChrW(12049)
        .Replacement.Text = "刀"
        .Forward = True
        .Wrap = wdFindContinue
            End With
    Selection.Find.Execute Replace:=wdReplaceAll
  With Selection.Find
        .Text = ChrW(12050)
        .Replacement.Text = "力"
        .Forward = True
        .Wrap = wdFindContinue
            End With
    Selection.Find.Execute Replace:=wdReplaceAll
  With Selection.Find
        .Text = ChrW(12051)
        .Replacement.Text = "勹"
        .Forward = True
        .Wrap = wdFindContinue
            End With
    Selection.Find.Execute Replace:=wdReplaceAll
  With Selection.Find
        .Text = ChrW(12052)
        .Replacement.Text = "ヒ"
        .Forward = True
        .Wrap = wdFindContinue
            End With
    Selection.Find.Execute Replace:=wdReplaceAll
  With Selection.Find
        .Text = ChrW(12053)
        .Replacement.Text = "匚"
        .Forward = True
        .Wrap = wdFindContinue
            End With
    Selection.Find.Execute Replace:=wdReplaceAll
  With Selection.Find
        .Text = ChrW(12054)
        .Replacement.Text = "匸"
        .Forward = True
        .Wrap = wdFindContinue
            End With
    Selection.Find.Execute Replace:=wdReplaceAll
  With Selection.Find
        .Text = ChrW(12055)
        .Replacement.Text = "十"
        .Forward = True
        .Wrap = wdFindContinue
            End With
    Selection.Find.Execute Replace:=wdReplaceAll
  With Selection.Find
        .Text = ChrW(12056)
        .Replacement.Text = "ト"
        .Forward = True
        .Wrap = wdFindContinue
            End With
    Selection.Find.Execute Replace:=wdReplaceAll
  With Selection.Find
        .Text = ChrW(12057)
        .Replacement.Text = "卩"
        .Forward = True
        .Wrap = wdFindContinue
            End With
    Selection.Find.Execute Replace:=wdReplaceAll
  With Selection.Find
        .Text = ChrW(12058)
        .Replacement.Text = "厂"
        .Forward = True
        .Wrap = wdFindContinue
            End With
    Selection.Find.Execute Replace:=wdReplaceAll
  With Selection.Find
        .Text = ChrW(12059)
        .Replacement.Text = "ム"
        .Forward = True
        .Wrap = wdFindContinue
            End With
    Selection.Find.Execute Replace:=wdReplaceAll
  With Selection.Find
        .Text = ChrW(12060)
        .Replacement.Text = "又"
        .Forward = True
        .Wrap = wdFindContinue
            End With
    Selection.Find.Execute Replace:=wdReplaceAll
  With Selection.Find
        .Text = ChrW(12061)
        .Replacement.Text = "口"
        .Forward = True
        .Wrap = wdFindContinue
            End With
    Selection.Find.Execute Replace:=wdReplaceAll
  With Selection.Find
        .Text = ChrW(12062)
        .Replacement.Text = "口"
        .Forward = True
        .Wrap = wdFindContinue
            End With
    Selection.Find.Execute Replace:=wdReplaceAll
  With Selection.Find
        .Text = ChrW(12063)
        .Replacement.Text = "土"
        .Forward = True
        .Wrap = wdFindContinue
            End With
    Selection.Find.Execute Replace:=wdReplaceAll
  With Selection.Find
        .Text = ChrW(12064)
        .Replacement.Text = "士"
        .Forward = True
        .Wrap = wdFindContinue
            End With
    Selection.Find.Execute Replace:=wdReplaceAll
  With Selection.Find
        .Text = ChrW(12065)
        .Replacement.Text = "夂"
        .Forward = True
        .Wrap = wdFindContinue
            End With
    Selection.Find.Execute Replace:=wdReplaceAll
  With Selection.Find
        .Text = ChrW(12066)
        .Replacement.Text = "夊"
        .Forward = True
        .Wrap = wdFindContinue
            End With
    Selection.Find.Execute Replace:=wdReplaceAll
  With Selection.Find
        .Text = ChrW(12067)
        .Replacement.Text = "夕"
        .Forward = True
        .Wrap = wdFindContinue
            End With
    Selection.Find.Execute Replace:=wdReplaceAll
  With Selection.Find
        .Text = ChrW(12068)
        .Replacement.Text = "大"
        .Forward = True
        .Wrap = wdFindContinue
            End With
    Selection.Find.Execute Replace:=wdReplaceAll
  With Selection.Find
        .Text = ChrW(12069)
        .Replacement.Text = "女"
        .Forward = True
        .Wrap = wdFindContinue
            End With
    Selection.Find.Execute Replace:=wdReplaceAll
  With Selection.Find
        .Text = ChrW(12070)
        .Replacement.Text = "子"
        .Forward = True
        .Wrap = wdFindContinue
            End With
    Selection.Find.Execute Replace:=wdReplaceAll
  With Selection.Find
        .Text = ChrW(12071)
        .Replacement.Text = "宀"
        .Forward = True
        .Wrap = wdFindContinue
            End With
    Selection.Find.Execute Replace:=wdReplaceAll
  With Selection.Find
        .Text = ChrW(12072)
        .Replacement.Text = "寸"
        .Forward = True
        .Wrap = wdFindContinue
            End With
    Selection.Find.Execute Replace:=wdReplaceAll
  With Selection.Find
        .Text = ChrW(12073)
        .Replacement.Text = "小"
        .Forward = True
        .Wrap = wdFindContinue
            End With
    Selection.Find.Execute Replace:=wdReplaceAll
  With Selection.Find
        .Text = ChrW(12074)
        .Replacement.Text = "尤"
        .Forward = True
        .Wrap = wdFindContinue
            End With
    Selection.Find.Execute Replace:=wdReplaceAll
  With Selection.Find
        .Text = ChrW(12075)
        .Replacement.Text = "尸"
        .Forward = True
        .Wrap = wdFindContinue
            End With
    Selection.Find.Execute Replace:=wdReplaceAll
  With Selection.Find
        .Text = ChrW(12076)
        .Replacement.Text = "屮"
        .Forward = True
        .Wrap = wdFindContinue
            End With
    Selection.Find.Execute Replace:=wdReplaceAll
  With Selection.Find
        .Text = ChrW(12077)
        .Replacement.Text = "山"
        .Forward = True
        .Wrap = wdFindContinue
            End With
    Selection.Find.Execute Replace:=wdReplaceAll
  With Selection.Find
        .Text = ChrW(12078)
        .Replacement.Text = "巛"
        .Forward = True
        .Wrap = wdFindContinue
            End With
    Selection.Find.Execute Replace:=wdReplaceAll
  With Selection.Find
        .Text = ChrW(12079)
        .Replacement.Text = "工"
        .Forward = True
        .Wrap = wdFindContinue
            End With
    Selection.Find.Execute Replace:=wdReplaceAll
  With Selection.Find
        .Text = ChrW(12080)
        .Replacement.Text = "己"
        .Forward = True
        .Wrap = wdFindContinue
            End With
    Selection.Find.Execute Replace:=wdReplaceAll
  With Selection.Find
        .Text = ChrW(12081)
        .Replacement.Text = "巾"
        .Forward = True
        .Wrap = wdFindContinue
            End With
    Selection.Find.Execute Replace:=wdReplaceAll
  With Selection.Find
        .Text = ChrW(12082)
        .Replacement.Text = "干"
        .Forward = True
        .Wrap = wdFindContinue
            End With
    Selection.Find.Execute Replace:=wdReplaceAll
  With Selection.Find
        .Text = ChrW(12083)
        .Replacement.Text = "幺"
        .Forward = True
        .Wrap = wdFindContinue
            End With
    Selection.Find.Execute Replace:=wdReplaceAll
  With Selection.Find
        .Text = ChrW(12084)
        .Replacement.Text = "广"
        .Forward = True
        .Wrap = wdFindContinue
            End With
    Selection.Find.Execute Replace:=wdReplaceAll
  With Selection.Find
        .Text = ChrW(12085)
        .Replacement.Text = "廴"
        .Forward = True
        .Wrap = wdFindContinue
            End With
    Selection.Find.Execute Replace:=wdReplaceAll
  With Selection.Find
        .Text = ChrW(12086)
        .Replacement.Text = "廾"
        .Forward = True
        .Wrap = wdFindContinue
            End With
    Selection.Find.Execute Replace:=wdReplaceAll
  With Selection.Find
        .Text = ChrW(12087)
        .Replacement.Text = "弋"
        .Forward = True
        .Wrap = wdFindContinue
            End With
    Selection.Find.Execute Replace:=wdReplaceAll
  With Selection.Find
        .Text = ChrW(12088)
        .Replacement.Text = "弓"
        .Forward = True
        .Wrap = wdFindContinue
            End With
    Selection.Find.Execute Replace:=wdReplaceAll
  With Selection.Find
        .Text = ChrW(12089)
        .Replacement.Text = "ヨ"
        .Forward = True
        .Wrap = wdFindContinue
            End With
    Selection.Find.Execute Replace:=wdReplaceAll
  With Selection.Find
        .Text = ChrW(12090)
        .Replacement.Text = "彡"
        .Forward = True
        .Wrap = wdFindContinue
            End With
    Selection.Find.Execute Replace:=wdReplaceAll
  With Selection.Find
        .Text = ChrW(12091)
        .Replacement.Text = "彳"
        .Forward = True
        .Wrap = wdFindContinue
            End With
    Selection.Find.Execute Replace:=wdReplaceAll
  With Selection.Find
        .Text = ChrW(12092)
        .Replacement.Text = "心"
        .Forward = True
        .Wrap = wdFindContinue
            End With
    Selection.Find.Execute Replace:=wdReplaceAll
  With Selection.Find
        .Text = ChrW(12093)
        .Replacement.Text = "戈"
        .Forward = True
        .Wrap = wdFindContinue
            End With
    Selection.Find.Execute Replace:=wdReplaceAll
  With Selection.Find
        .Text = ChrW(12094)
        .Replacement.Text = "戸"
        .Forward = True
        .Wrap = wdFindContinue
            End With
    Selection.Find.Execute Replace:=wdReplaceAll
  With Selection.Find
        .Text = ChrW(12095)
        .Replacement.Text = "手"
        .Forward = True
        .Wrap = wdFindContinue
            End With
    Selection.Find.Execute Replace:=wdReplaceAll
  With Selection.Find
        .Text = ChrW(12096)
        .Replacement.Text = "支"
        .Forward = True
        .Wrap = wdFindContinue
            End With
    Selection.Find.Execute Replace:=wdReplaceAll
  With Selection.Find
        .Text = ChrW(12097)
        .Replacement.Text = "攴"
        .Forward = True
        .Wrap = wdFindContinue
            End With
    Selection.Find.Execute Replace:=wdReplaceAll
  With Selection.Find
        .Text = ChrW(12098)
        .Replacement.Text = "文"
        .Forward = True
        .Wrap = wdFindContinue
            End With
    Selection.Find.Execute Replace:=wdReplaceAll
  With Selection.Find
        .Text = ChrW(12099)
        .Replacement.Text = "斗"
        .Forward = True
        .Wrap = wdFindContinue
            End With
    Selection.Find.Execute Replace:=wdReplaceAll
  With Selection.Find
        .Text = ChrW(12100)
        .Replacement.Text = "斤"
        .Forward = True
        .Wrap = wdFindContinue
            End With
    Selection.Find.Execute Replace:=wdReplaceAll
  With Selection.Find
        .Text = ChrW(12101)
        .Replacement.Text = "方"
        .Forward = True
        .Wrap = wdFindContinue
            End With
    Selection.Find.Execute Replace:=wdReplaceAll
  With Selection.Find
        .Text = ChrW(12102)
        .Replacement.Text = "无"
        .Forward = True
        .Wrap = wdFindContinue
            End With
    Selection.Find.Execute Replace:=wdReplaceAll
  With Selection.Find
        .Text = ChrW(12103)
        .Replacement.Text = "日"
        .Forward = True
        .Wrap = wdFindContinue
            End With
    Selection.Find.Execute Replace:=wdReplaceAll
  With Selection.Find
        .Text = ChrW(12104)
        .Replacement.Text = "曰"
        .Forward = True
        .Wrap = wdFindContinue
            End With
    Selection.Find.Execute Replace:=wdReplaceAll
  With Selection.Find
        .Text = ChrW(12105)
        .Replacement.Text = "月"
        .Forward = True
        .Wrap = wdFindContinue
            End With
    Selection.Find.Execute Replace:=wdReplaceAll
  With Selection.Find
        .Text = ChrW(12106)
        .Replacement.Text = "木"
        .Forward = True
        .Wrap = wdFindContinue
            End With
    Selection.Find.Execute Replace:=wdReplaceAll
  With Selection.Find
        .Text = ChrW(12107)
        .Replacement.Text = "欠"
        .Forward = True
        .Wrap = wdFindContinue
            End With
    Selection.Find.Execute Replace:=wdReplaceAll
  With Selection.Find
        .Text = ChrW(12108)
        .Replacement.Text = "止"
        .Forward = True
        .Wrap = wdFindContinue
            End With
    Selection.Find.Execute Replace:=wdReplaceAll
  With Selection.Find
        .Text = ChrW(12109)
        .Replacement.Text = "歹"
        .Forward = True
        .Wrap = wdFindContinue
            End With
    Selection.Find.Execute Replace:=wdReplaceAll
  With Selection.Find
        .Text = ChrW(12110)
        .Replacement.Text = "殳"
        .Forward = True
        .Wrap = wdFindContinue
            End With
    Selection.Find.Execute Replace:=wdReplaceAll
  With Selection.Find
        .Text = ChrW(12111)
        .Replacement.Text = "毋"
        .Forward = True
        .Wrap = wdFindContinue
            End With
    Selection.Find.Execute Replace:=wdReplaceAll
  With Selection.Find
        .Text = ChrW(12112)
        .Replacement.Text = "比"
        .Forward = True
        .Wrap = wdFindContinue
            End With
    Selection.Find.Execute Replace:=wdReplaceAll
  With Selection.Find
        .Text = ChrW(12113)
        .Replacement.Text = "毛"
        .Forward = True
        .Wrap = wdFindContinue
            End With
    Selection.Find.Execute Replace:=wdReplaceAll
  With Selection.Find
        .Text = ChrW(12114)
        .Replacement.Text = "氏"
        .Forward = True
        .Wrap = wdFindContinue
            End With
    Selection.Find.Execute Replace:=wdReplaceAll
  With Selection.Find
        .Text = ChrW(12115)
        .Replacement.Text = "气"
        .Forward = True
        .Wrap = wdFindContinue
            End With
    Selection.Find.Execute Replace:=wdReplaceAll
  With Selection.Find
        .Text = ChrW(12116)
        .Replacement.Text = "水"
        .Forward = True
        .Wrap = wdFindContinue
            End With
    Selection.Find.Execute Replace:=wdReplaceAll
  With Selection.Find
        .Text = ChrW(12117)
        .Replacement.Text = "火"
        .Forward = True
        .Wrap = wdFindContinue
            End With
    Selection.Find.Execute Replace:=wdReplaceAll
  With Selection.Find
        .Text = ChrW(12118)
        .Replacement.Text = "爪"
        .Forward = True
        .Wrap = wdFindContinue
            End With
    Selection.Find.Execute Replace:=wdReplaceAll
  With Selection.Find
        .Text = ChrW(12119)
        .Replacement.Text = "父"
        .Forward = True
        .Wrap = wdFindContinue
            End With
    Selection.Find.Execute Replace:=wdReplaceAll
  With Selection.Find
        .Text = ChrW(12120)
        .Replacement.Text = "爻"
        .Forward = True
        .Wrap = wdFindContinue
            End With
    Selection.Find.Execute Replace:=wdReplaceAll
  With Selection.Find
        .Text = ChrW(12121)
        .Replacement.Text = "爿"
        .Forward = True
        .Wrap = wdFindContinue
            End With
    Selection.Find.Execute Replace:=wdReplaceAll
  With Selection.Find
        .Text = ChrW(12122)
        .Replacement.Text = "片"
        .Forward = True
        .Wrap = wdFindContinue
            End With
    Selection.Find.Execute Replace:=wdReplaceAll
  With Selection.Find
        .Text = ChrW(12123)
        .Replacement.Text = "牙"
        .Forward = True
        .Wrap = wdFindContinue
            End With
    Selection.Find.Execute Replace:=wdReplaceAll
  With Selection.Find
        .Text = ChrW(12124)
        .Replacement.Text = "牛"
        .Forward = True
        .Wrap = wdFindContinue
            End With
    Selection.Find.Execute Replace:=wdReplaceAll
  With Selection.Find
        .Text = ChrW(12125)
        .Replacement.Text = "犬"
        .Forward = True
        .Wrap = wdFindContinue
            End With
    Selection.Find.Execute Replace:=wdReplaceAll
  With Selection.Find
        .Text = ChrW(12126)
        .Replacement.Text = "玄"
        .Forward = True
        .Wrap = wdFindContinue
            End With
    Selection.Find.Execute Replace:=wdReplaceAll
  With Selection.Find
        .Text = ChrW(12127)
        .Replacement.Text = "玉"
        .Forward = True
        .Wrap = wdFindContinue
            End With
    Selection.Find.Execute Replace:=wdReplaceAll
  With Selection.Find
        .Text = ChrW(12128)
        .Replacement.Text = "瓜"
        .Forward = True
        .Wrap = wdFindContinue
            End With
    Selection.Find.Execute Replace:=wdReplaceAll
  With Selection.Find
        .Text = ChrW(12129)
        .Replacement.Text = "瓦"
        .Forward = True
        .Wrap = wdFindContinue
            End With
    Selection.Find.Execute Replace:=wdReplaceAll
  With Selection.Find
        .Text = ChrW(12130)
        .Replacement.Text = "甘"
        .Forward = True
        .Wrap = wdFindContinue
            End With
    Selection.Find.Execute Replace:=wdReplaceAll
  With Selection.Find
        .Text = ChrW(12131)
        .Replacement.Text = "生"
        .Forward = True
        .Wrap = wdFindContinue
            End With
    Selection.Find.Execute Replace:=wdReplaceAll
  With Selection.Find
        .Text = ChrW(12132)
        .Replacement.Text = "用"
        .Forward = True
        .Wrap = wdFindContinue
            End With
    Selection.Find.Execute Replace:=wdReplaceAll
  With Selection.Find
        .Text = ChrW(12133)
        .Replacement.Text = "田"
        .Forward = True
        .Wrap = wdFindContinue
            End With
    Selection.Find.Execute Replace:=wdReplaceAll
  With Selection.Find
        .Text = ChrW(12134)
        .Replacement.Text = "疋"
        .Forward = True
        .Wrap = wdFindContinue
            End With
    Selection.Find.Execute Replace:=wdReplaceAll
  With Selection.Find
        .Text = ChrW(12135)
        .Replacement.Text = "?"
        .Forward = True
        .Wrap = wdFindContinue
            End With
    Selection.Find.Execute Replace:=wdReplaceAll
  With Selection.Find
        .Text = ChrW(12136)
        .Replacement.Text = "癶"
        .Forward = True
        .Wrap = wdFindContinue
            End With
    Selection.Find.Execute Replace:=wdReplaceAll
  With Selection.Find
        .Text = ChrW(12137)
        .Replacement.Text = "白"
        .Forward = True
        .Wrap = wdFindContinue
            End With
    Selection.Find.Execute Replace:=wdReplaceAll
  With Selection.Find
        .Text = ChrW(12138)
        .Replacement.Text = "皮"
        .Forward = True
        .Wrap = wdFindContinue
            End With
    Selection.Find.Execute Replace:=wdReplaceAll
  With Selection.Find
        .Text = ChrW(12139)
        .Replacement.Text = "皿"
        .Forward = True
        .Wrap = wdFindContinue
            End With
    Selection.Find.Execute Replace:=wdReplaceAll
  With Selection.Find
        .Text = ChrW(12140)
        .Replacement.Text = "目"
        .Forward = True
        .Wrap = wdFindContinue
            End With
    Selection.Find.Execute Replace:=wdReplaceAll
  With Selection.Find
        .Text = ChrW(12141)
        .Replacement.Text = "矛"
        .Forward = True
        .Wrap = wdFindContinue
            End With
    Selection.Find.Execute Replace:=wdReplaceAll
  With Selection.Find
        .Text = ChrW(12142)
        .Replacement.Text = "矢"
        .Forward = True
        .Wrap = wdFindContinue
            End With
    Selection.Find.Execute Replace:=wdReplaceAll
  With Selection.Find
        .Text = ChrW(12143)
        .Replacement.Text = "石"
        .Forward = True
        .Wrap = wdFindContinue
            End With
    Selection.Find.Execute Replace:=wdReplaceAll
  With Selection.Find
        .Text = ChrW(12144)
        .Replacement.Text = "示"
        .Forward = True
        .Wrap = wdFindContinue
            End With
    Selection.Find.Execute Replace:=wdReplaceAll
  With Selection.Find
        .Text = ChrW(12145)
        .Replacement.Text = "?"
        .Forward = True
        .Wrap = wdFindContinue
            End With
    Selection.Find.Execute Replace:=wdReplaceAll
  With Selection.Find
        .Text = ChrW(12146)
        .Replacement.Text = "禾"
        .Forward = True
        .Wrap = wdFindContinue
            End With
    Selection.Find.Execute Replace:=wdReplaceAll
  With Selection.Find
        .Text = ChrW(12147)
        .Replacement.Text = "穴"
        .Forward = True
        .Wrap = wdFindContinue
            End With
    Selection.Find.Execute Replace:=wdReplaceAll
  With Selection.Find
        .Text = ChrW(12148)
        .Replacement.Text = "立"
        .Forward = True
        .Wrap = wdFindContinue
            End With
    Selection.Find.Execute Replace:=wdReplaceAll
  With Selection.Find
        .Text = ChrW(12149)
        .Replacement.Text = "竹"
        .Forward = True
        .Wrap = wdFindContinue
            End With
    Selection.Find.Execute Replace:=wdReplaceAll
  With Selection.Find
        .Text = ChrW(12150)
        .Replacement.Text = "米"
        .Forward = True
        .Wrap = wdFindContinue
            End With
    Selection.Find.Execute Replace:=wdReplaceAll
  With Selection.Find
        .Text = ChrW(12151)
        .Replacement.Text = "糸"
        .Forward = True
        .Wrap = wdFindContinue
            End With
    Selection.Find.Execute Replace:=wdReplaceAll
  With Selection.Find
        .Text = ChrW(12152)
        .Replacement.Text = "缶"
        .Forward = True
        .Wrap = wdFindContinue
            End With
    Selection.Find.Execute Replace:=wdReplaceAll
  With Selection.Find
        .Text = ChrW(12153)
        .Replacement.Text = "网"
        .Forward = True
        .Wrap = wdFindContinue
            End With
    Selection.Find.Execute Replace:=wdReplaceAll
  With Selection.Find
        .Text = ChrW(12154)
        .Replacement.Text = "羊"
        .Forward = True
        .Wrap = wdFindContinue
            End With
    Selection.Find.Execute Replace:=wdReplaceAll
  With Selection.Find
        .Text = ChrW(12155)
        .Replacement.Text = "羽"
        .Forward = True
        .Wrap = wdFindContinue
            End With
    Selection.Find.Execute Replace:=wdReplaceAll
  With Selection.Find
        .Text = ChrW(12156)
        .Replacement.Text = "老"
        .Forward = True
        .Wrap = wdFindContinue
            End With
    Selection.Find.Execute Replace:=wdReplaceAll
  With Selection.Find
        .Text = ChrW(12157)
        .Replacement.Text = "而"
        .Forward = True
        .Wrap = wdFindContinue
            End With
    Selection.Find.Execute Replace:=wdReplaceAll
  With Selection.Find
        .Text = ChrW(12158)
        .Replacement.Text = "耒"
        .Forward = True
        .Wrap = wdFindContinue
            End With
    Selection.Find.Execute Replace:=wdReplaceAll
  With Selection.Find
        .Text = ChrW(12159)
        .Replacement.Text = "耳"
        .Forward = True
        .Wrap = wdFindContinue
            End With
    Selection.Find.Execute Replace:=wdReplaceAll
  With Selection.Find
        .Text = ChrW(12160)
        .Replacement.Text = "聿"
        .Forward = True
        .Wrap = wdFindContinue
            End With
    Selection.Find.Execute Replace:=wdReplaceAll
  With Selection.Find
        .Text = ChrW(12161)
        .Replacement.Text = "肉"
        .Forward = True
        .Wrap = wdFindContinue
            End With
    Selection.Find.Execute Replace:=wdReplaceAll
  With Selection.Find
        .Text = ChrW(12162)
        .Replacement.Text = "臣"
        .Forward = True
        .Wrap = wdFindContinue
            End With
    Selection.Find.Execute Replace:=wdReplaceAll
  With Selection.Find
        .Text = ChrW(12163)
        .Replacement.Text = "自"
        .Forward = True
        .Wrap = wdFindContinue
            End With
    Selection.Find.Execute Replace:=wdReplaceAll
  With Selection.Find
        .Text = ChrW(12164)
        .Replacement.Text = "至"
        .Forward = True
        .Wrap = wdFindContinue
            End With
    Selection.Find.Execute Replace:=wdReplaceAll
  With Selection.Find
        .Text = ChrW(12165)
        .Replacement.Text = "臼"
        .Forward = True
        .Wrap = wdFindContinue
            End With
    Selection.Find.Execute Replace:=wdReplaceAll
  With Selection.Find
        .Text = ChrW(12166)
        .Replacement.Text = "舌"
        .Forward = True
        .Wrap = wdFindContinue
            End With
    Selection.Find.Execute Replace:=wdReplaceAll
  With Selection.Find
        .Text = ChrW(12167)
        .Replacement.Text = "舛"
        .Forward = True
        .Wrap = wdFindContinue
            End With
    Selection.Find.Execute Replace:=wdReplaceAll
  With Selection.Find
        .Text = ChrW(12168)
        .Replacement.Text = "舟"
        .Forward = True
        .Wrap = wdFindContinue
            End With
    Selection.Find.Execute Replace:=wdReplaceAll
  With Selection.Find
        .Text = ChrW(12169)
        .Replacement.Text = "艮"
        .Forward = True
        .Wrap = wdFindContinue
            End With
    Selection.Find.Execute Replace:=wdReplaceAll
  With Selection.Find
        .Text = ChrW(12170)
        .Replacement.Text = "色"
        .Forward = True
        .Wrap = wdFindContinue
            End With
    Selection.Find.Execute Replace:=wdReplaceAll
  With Selection.Find
        .Text = ChrW(12171)
        .Replacement.Text = "艸"
        .Forward = True
        .Wrap = wdFindContinue
            End With
    Selection.Find.Execute Replace:=wdReplaceAll
  With Selection.Find
        .Text = ChrW(12172)
        .Replacement.Text = "虍"
        .Forward = True
        .Wrap = wdFindContinue
            End With
    Selection.Find.Execute Replace:=wdReplaceAll
  With Selection.Find
        .Text = ChrW(12173)
        .Replacement.Text = "虫"
        .Forward = True
        .Wrap = wdFindContinue
            End With
    Selection.Find.Execute Replace:=wdReplaceAll
  With Selection.Find
        .Text = ChrW(12174)
        .Replacement.Text = "血"
        .Forward = True
        .Wrap = wdFindContinue
            End With
    Selection.Find.Execute Replace:=wdReplaceAll
  With Selection.Find
        .Text = ChrW(12175)
        .Replacement.Text = "行"
        .Forward = True
        .Wrap = wdFindContinue
            End With
    Selection.Find.Execute Replace:=wdReplaceAll
  With Selection.Find
        .Text = ChrW(12176)
        .Replacement.Text = "衣"
        .Forward = True
        .Wrap = wdFindContinue
            End With
    Selection.Find.Execute Replace:=wdReplaceAll
  With Selection.Find
        .Text = ChrW(12177)
        .Replacement.Text = "襾"
        .Forward = True
        .Wrap = wdFindContinue
            End With
    Selection.Find.Execute Replace:=wdReplaceAll
  With Selection.Find
        .Text = ChrW(12178)
        .Replacement.Text = "見"
        .Forward = True
        .Wrap = wdFindContinue
            End With
    Selection.Find.Execute Replace:=wdReplaceAll
  With Selection.Find
        .Text = ChrW(12179)
        .Replacement.Text = "角"
        .Forward = True
        .Wrap = wdFindContinue
            End With
    Selection.Find.Execute Replace:=wdReplaceAll
  With Selection.Find
        .Text = ChrW(12180)
        .Replacement.Text = "言"
        .Forward = True
        .Wrap = wdFindContinue
            End With
    Selection.Find.Execute Replace:=wdReplaceAll
  With Selection.Find
        .Text = ChrW(12181)
        .Replacement.Text = "谷"
        .Forward = True
        .Wrap = wdFindContinue
            End With
    Selection.Find.Execute Replace:=wdReplaceAll
  With Selection.Find
        .Text = ChrW(12182)
        .Replacement.Text = "豆"
        .Forward = True
        .Wrap = wdFindContinue
            End With
    Selection.Find.Execute Replace:=wdReplaceAll
  With Selection.Find
        .Text = ChrW(12183)
        .Replacement.Text = "豕"
        .Forward = True
        .Wrap = wdFindContinue
            End With
    Selection.Find.Execute Replace:=wdReplaceAll
  With Selection.Find
        .Text = ChrW(12184)
        .Replacement.Text = "豸"
        .Forward = True
        .Wrap = wdFindContinue
            End With
    Selection.Find.Execute Replace:=wdReplaceAll
  With Selection.Find
        .Text = ChrW(12185)
        .Replacement.Text = "貝"
        .Forward = True
        .Wrap = wdFindContinue
            End With
    Selection.Find.Execute Replace:=wdReplaceAll
  With Selection.Find
        .Text = ChrW(12186)
        .Replacement.Text = "赤"
        .Forward = True
        .Wrap = wdFindContinue
            End With
    Selection.Find.Execute Replace:=wdReplaceAll
  With Selection.Find
        .Text = ChrW(12187)
        .Replacement.Text = "走"
        .Forward = True
        .Wrap = wdFindContinue
            End With
    Selection.Find.Execute Replace:=wdReplaceAll
  With Selection.Find
        .Text = ChrW(12188)
        .Replacement.Text = "足"
        .Forward = True
        .Wrap = wdFindContinue
            End With
    Selection.Find.Execute Replace:=wdReplaceAll
  With Selection.Find
        .Text = ChrW(12189)
        .Replacement.Text = "身"
        .Forward = True
        .Wrap = wdFindContinue
            End With
    Selection.Find.Execute Replace:=wdReplaceAll
  With Selection.Find
        .Text = ChrW(12190)
        .Replacement.Text = "車"
        .Forward = True
        .Wrap = wdFindContinue
            End With
    Selection.Find.Execute Replace:=wdReplaceAll
  With Selection.Find
        .Text = ChrW(12191)
        .Replacement.Text = "辛"
        .Forward = True
        .Wrap = wdFindContinue
            End With
    Selection.Find.Execute Replace:=wdReplaceAll
  With Selection.Find
        .Text = ChrW(12192)
        .Replacement.Text = "辰"
        .Forward = True
        .Wrap = wdFindContinue
            End With
    Selection.Find.Execute Replace:=wdReplaceAll
  With Selection.Find
        .Text = ChrW(12193)
        .Replacement.Text = "?"
        .Forward = True
        .Wrap = wdFindContinue
            End With
    Selection.Find.Execute Replace:=wdReplaceAll
  With Selection.Find
        .Text = ChrW(12194)
        .Replacement.Text = "邑"
        .Forward = True
        .Wrap = wdFindContinue
            End With
    Selection.Find.Execute Replace:=wdReplaceAll
  With Selection.Find
        .Text = ChrW(12195)
        .Replacement.Text = "酉"
        .Forward = True
        .Wrap = wdFindContinue
            End With
    Selection.Find.Execute Replace:=wdReplaceAll
  With Selection.Find
        .Text = ChrW(12196)
        .Replacement.Text = "釆"
        .Forward = True
        .Wrap = wdFindContinue
            End With
    Selection.Find.Execute Replace:=wdReplaceAll
  With Selection.Find
        .Text = ChrW(12197)
        .Replacement.Text = "里"
        .Forward = True
        .Wrap = wdFindContinue
            End With
    Selection.Find.Execute Replace:=wdReplaceAll
  With Selection.Find
        .Text = ChrW(12198)
        .Replacement.Text = "金"
        .Forward = True
        .Wrap = wdFindContinue
            End With
    Selection.Find.Execute Replace:=wdReplaceAll
  With Selection.Find
        .Text = ChrW(12199)
        .Replacement.Text = "長"
        .Forward = True
        .Wrap = wdFindContinue
            End With
    Selection.Find.Execute Replace:=wdReplaceAll
  With Selection.Find
        .Text = ChrW(12200)
        .Replacement.Text = "門"
        .Forward = True
        .Wrap = wdFindContinue
            End With
    Selection.Find.Execute Replace:=wdReplaceAll
  With Selection.Find
        .Text = ChrW(12201)
        .Replacement.Text = "阜"
        .Forward = True
        .Wrap = wdFindContinue
            End With
    Selection.Find.Execute Replace:=wdReplaceAll
  With Selection.Find
        .Text = ChrW(12202)
        .Replacement.Text = "隶"
        .Forward = True
        .Wrap = wdFindContinue
            End With
    Selection.Find.Execute Replace:=wdReplaceAll
  With Selection.Find
        .Text = ChrW(12203)
        .Replacement.Text = "隹"
        .Forward = True
        .Wrap = wdFindContinue
            End With
    Selection.Find.Execute Replace:=wdReplaceAll
  With Selection.Find
        .Text = ChrW(12204)
        .Replacement.Text = "雨"
        .Forward = True
        .Wrap = wdFindContinue
            End With
    Selection.Find.Execute Replace:=wdReplaceAll
  With Selection.Find
        .Text = ChrW(12205)
        .Replacement.Text = "靑"
        .Forward = True
        .Wrap = wdFindContinue
            End With
    Selection.Find.Execute Replace:=wdReplaceAll
  With Selection.Find
        .Text = ChrW(12206)
        .Replacement.Text = "非"
        .Forward = True
        .Wrap = wdFindContinue
            End With
    Selection.Find.Execute Replace:=wdReplaceAll
  With Selection.Find
        .Text = ChrW(12207)
        .Replacement.Text = "面"
        .Forward = True
        .Wrap = wdFindContinue
            End With
    Selection.Find.Execute Replace:=wdReplaceAll
  With Selection.Find
        .Text = ChrW(12208)
        .Replacement.Text = "革"
        .Forward = True
        .Wrap = wdFindContinue
            End With
    Selection.Find.Execute Replace:=wdReplaceAll
  With Selection.Find
        .Text = ChrW(12209)
        .Replacement.Text = "韋"
        .Forward = True
        .Wrap = wdFindContinue
            End With
    Selection.Find.Execute Replace:=wdReplaceAll
  With Selection.Find
        .Text = ChrW(12210)
        .Replacement.Text = "韭"
        .Forward = True
        .Wrap = wdFindContinue
            End With
    Selection.Find.Execute Replace:=wdReplaceAll
  With Selection.Find
        .Text = ChrW(12211)
        .Replacement.Text = "音"
        .Forward = True
        .Wrap = wdFindContinue
            End With
    Selection.Find.Execute Replace:=wdReplaceAll
  With Selection.Find
        .Text = ChrW(12212)
        .Replacement.Text = "頁"
        .Forward = True
        .Wrap = wdFindContinue
            End With
    Selection.Find.Execute Replace:=wdReplaceAll
  With Selection.Find
        .Text = ChrW(12213)
        .Replacement.Text = "風"
        .Forward = True
        .Wrap = wdFindContinue
            End With
    Selection.Find.Execute Replace:=wdReplaceAll
  With Selection.Find
        .Text = ChrW(12214)
        .Replacement.Text = "飛"
        .Forward = True
        .Wrap = wdFindContinue
            End With
    Selection.Find.Execute Replace:=wdReplaceAll
  With Selection.Find
        .Text = ChrW(12215)
        .Replacement.Text = "食"
        .Forward = True
        .Wrap = wdFindContinue
            End With
    Selection.Find.Execute Replace:=wdReplaceAll
  With Selection.Find
        .Text = ChrW(12216)
        .Replacement.Text = "首"
        .Forward = True
        .Wrap = wdFindContinue
            End With
    Selection.Find.Execute Replace:=wdReplaceAll
  With Selection.Find
        .Text = ChrW(12217)
        .Replacement.Text = "香"
        .Forward = True
        .Wrap = wdFindContinue
            End With
    Selection.Find.Execute Replace:=wdReplaceAll
  With Selection.Find
        .Text = ChrW(12218)
        .Replacement.Text = "馬"
        .Forward = True
        .Wrap = wdFindContinue
            End With
    Selection.Find.Execute Replace:=wdReplaceAll
  With Selection.Find
        .Text = ChrW(12219)
        .Replacement.Text = "骨"
        .Forward = True
        .Wrap = wdFindContinue
            End With
    Selection.Find.Execute Replace:=wdReplaceAll
  With Selection.Find
        .Text = ChrW(12220)
        .Replacement.Text = "高"
        .Forward = True
        .Wrap = wdFindContinue
            End With
    Selection.Find.Execute Replace:=wdReplaceAll
  With Selection.Find
        .Text = ChrW(12221)
        .Replacement.Text = "髟"
        .Forward = True
        .Wrap = wdFindContinue
            End With
    Selection.Find.Execute Replace:=wdReplaceAll
  With Selection.Find
        .Text = ChrW(12222)
        .Replacement.Text = "鬥"
        .Forward = True
        .Wrap = wdFindContinue
            End With
    Selection.Find.Execute Replace:=wdReplaceAll
  With Selection.Find
        .Text = ChrW(12223)
        .Replacement.Text = "鬯"
        .Forward = True
        .Wrap = wdFindContinue
            End With
    Selection.Find.Execute Replace:=wdReplaceAll
  With Selection.Find
        .Text = ChrW(12224)
        .Replacement.Text = "鬲"
        .Forward = True
        .Wrap = wdFindContinue
            End With
    Selection.Find.Execute Replace:=wdReplaceAll
  With Selection.Find
        .Text = ChrW(12225)
        .Replacement.Text = "鬼"
        .Forward = True
        .Wrap = wdFindContinue
            End With
    Selection.Find.Execute Replace:=wdReplaceAll
  With Selection.Find
        .Text = ChrW(12226)
        .Replacement.Text = "魚"
        .Forward = True
        .Wrap = wdFindContinue
            End With
    Selection.Find.Execute Replace:=wdReplaceAll
  With Selection.Find
        .Text = ChrW(12227)
        .Replacement.Text = "鳥"
        .Forward = True
        .Wrap = wdFindContinue
            End With
    Selection.Find.Execute Replace:=wdReplaceAll
  With Selection.Find
        .Text = ChrW(12228)
        .Replacement.Text = "鹵"
        .Forward = True
        .Wrap = wdFindContinue
            End With
    Selection.Find.Execute Replace:=wdReplaceAll
  With Selection.Find
        .Text = ChrW(12229)
        .Replacement.Text = "鹿"
        .Forward = True
        .Wrap = wdFindContinue
            End With
    Selection.Find.Execute Replace:=wdReplaceAll
  With Selection.Find
        .Text = ChrW(12230)
        .Replacement.Text = "麥"
        .Forward = True
        .Wrap = wdFindContinue
            End With
    Selection.Find.Execute Replace:=wdReplaceAll
  With Selection.Find
        .Text = ChrW(12231)
        .Replacement.Text = "麻"
        .Forward = True
        .Wrap = wdFindContinue
            End With
    Selection.Find.Execute Replace:=wdReplaceAll
  With Selection.Find
        .Text = ChrW(12232)
        .Replacement.Text = "黄"
        .Forward = True
        .Wrap = wdFindContinue
            End With
    Selection.Find.Execute Replace:=wdReplaceAll
  With Selection.Find
        .Text = ChrW(12233)
        .Replacement.Text = "黍"
        .Forward = True
        .Wrap = wdFindContinue
            End With
    Selection.Find.Execute Replace:=wdReplaceAll
  With Selection.Find
        .Text = ChrW(12234)
        .Replacement.Text = "黒"
        .Forward = True
        .Wrap = wdFindContinue
            End With
    Selection.Find.Execute Replace:=wdReplaceAll
  With Selection.Find
        .Text = ChrW(12235)
        .Replacement.Text = "黹"
        .Forward = True
        .Wrap = wdFindContinue
            End With
    Selection.Find.Execute Replace:=wdReplaceAll
  With Selection.Find
        .Text = ChrW(12236)
        .Replacement.Text = "黽"
        .Forward = True
        .Wrap = wdFindContinue
            End With
    Selection.Find.Execute Replace:=wdReplaceAll
  With Selection.Find
        .Text = ChrW(12237)
        .Replacement.Text = "鼎"
        .Forward = True
        .Wrap = wdFindContinue
            End With
    Selection.Find.Execute Replace:=wdReplaceAll
  With Selection.Find
        .Text = ChrW(12238)
        .Replacement.Text = "鼓"
        .Forward = True
        .Wrap = wdFindContinue
            End With
    Selection.Find.Execute Replace:=wdReplaceAll
  With Selection.Find
        .Text = ChrW(12239)
        .Replacement.Text = "鼠"
        .Forward = True
        .Wrap = wdFindContinue
            End With
    Selection.Find.Execute Replace:=wdReplaceAll
  With Selection.Find
        .Text = ChrW(12240)
        .Replacement.Text = "鼻"
        .Forward = True
        .Wrap = wdFindContinue
            End With
    Selection.Find.Execute Replace:=wdReplaceAll
  With Selection.Find
        .Text = ChrW(12241)
        .Replacement.Text = "齊"
        .Forward = True
        .Wrap = wdFindContinue
            End With
    Selection.Find.Execute Replace:=wdReplaceAll
  With Selection.Find
        .Text = ChrW(12242)
        .Replacement.Text = "齒"
        .Forward = True
        .Wrap = wdFindContinue
            End With
    Selection.Find.Execute Replace:=wdReplaceAll
  With Selection.Find
        .Text = ChrW(12243)
        .Replacement.Text = "龍"
        .Forward = True
        .Wrap = wdFindContinue
            End With
    Selection.Find.Execute Replace:=wdReplaceAll
  With Selection.Find
        .Text = ChrW(12244)
        .Replacement.Text = "龜"
        .Forward = True
        .Wrap = wdFindContinue
            End With
    Selection.Find.Execute Replace:=wdReplaceAll
  With Selection.Find
        .Text = ChrW(12245)
        .Replacement.Text = "龠"
        .Forward = True
        .Wrap = wdFindContinue
            End With
    Selection.Find.Execute Replace:=wdReplaceAll
    
    With Selection.Find
        .Text = ChrW(11904)
        .Replacement.Text = "゛"
        .Forward = True
        .Wrap = wdFindContinue
    End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
        .Text = ChrW(11905)
        .Replacement.Text = "厂"
        .Forward = True
        .Wrap = wdFindContinue
    End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
        .Text = ChrW(11906)
        .Replacement.Text = "冖"
        .Forward = True
        .Wrap = wdFindContinue
    End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
        .Text = ChrW(11907)
        .Replacement.Text = "?"
        .Forward = True
        .Wrap = wdFindContinue
    End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
        .Text = ChrW(11908)
        .Replacement.Text = "?"
        .Forward = True
        .Wrap = wdFindContinue
    End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
        .Text = ChrW(11909)
        .Replacement.Text = "イ"
        .Forward = True
        .Wrap = wdFindContinue
    End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
        .Text = ChrW(11910)
        .Replacement.Text = "冂"
        .Forward = True
        .Wrap = wdFindContinue
    End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
        .Text = ChrW(11911)
        .Replacement.Text = "几"
        .Forward = True
        .Wrap = wdFindContinue
    End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
        .Text = ChrW(11913)
        .Replacement.Text = "?"
        .Forward = True
        .Wrap = wdFindContinue
    End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
        .Text = ChrW(11914)
        .Replacement.Text = "ト"
        .Forward = True
        .Wrap = wdFindContinue
    End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
        .Text = ChrW(11915)
        .Replacement.Text = "巳"
        .Forward = True
        .Wrap = wdFindContinue
    End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
        .Text = ChrW(11916)
        .Replacement.Text = "ッ"
        .Forward = True
        .Wrap = wdFindContinue
    End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
        .Text = ChrW(11917)
        .Replacement.Text = "ッ"
        .Forward = True
        .Wrap = wdFindContinue
    End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
        .Text = ChrW(11918)
        .Replacement.Text = "兀"
        .Forward = True
        .Wrap = wdFindContinue
    End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
        .Text = ChrW(11919)
        .Replacement.Text = "?"
        .Forward = True
        .Wrap = wdFindContinue
    End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
        .Text = ChrW(11920)
        .Replacement.Text = "尢"
        .Forward = True
        .Wrap = wdFindContinue
    End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
        .Text = ChrW(11922)
        .Replacement.Text = "巳"
        .Forward = True
        .Wrap = wdFindContinue
    End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
        .Text = ChrW(11923)
        .Replacement.Text = "幺"
        .Forward = True
        .Wrap = wdFindContinue
    End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
        .Text = ChrW(11924)
        .Replacement.Text = "彑"
        .Forward = True
        .Wrap = wdFindContinue
    End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
        .Text = ChrW(11925)
        .Replacement.Text = "∃"
        .Forward = True
        .Wrap = wdFindContinue
    End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
        .Text = ChrW(11926)
        .Replacement.Text = "?"
        .Forward = True
        .Wrap = wdFindContinue
    End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
        .Text = ChrW(11928)
        .Replacement.Text = "?"
        .Forward = True
        .Wrap = wdFindContinue
    End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
        .Text = ChrW(11929)
        .Replacement.Text = "攵"
        .Forward = True
        .Wrap = wdFindContinue
    End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
        .Text = ChrW(11931)
        .Replacement.Text = "旡"
        .Forward = True
        .Wrap = wdFindContinue
    End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
        .Text = ChrW(11933)
        .Replacement.Text = "月"
        .Forward = True
        .Wrap = wdFindContinue
    End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
        .Text = ChrW(11935)
        .Replacement.Text = "母"
        .Forward = True
        .Wrap = wdFindContinue
    End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
        .Text = ChrW(11936)
        .Replacement.Text = "民"
        .Forward = True
        .Wrap = wdFindContinue
    End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
        .Text = ChrW(11937)
        .Replacement.Text = "?"
        .Forward = True
        .Wrap = wdFindContinue
    End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
        .Text = ChrW(11938)
        .Replacement.Text = "水"
        .Forward = True
        .Wrap = wdFindContinue
    End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
        .Text = ChrW(11939)
        .Replacement.Text = "?"
        .Forward = True
        .Wrap = wdFindContinue
    End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
        .Text = ChrW(11941)
        .Replacement.Text = "?"
        .Forward = True
        .Wrap = wdFindContinue
    End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
        .Text = ChrW(11944)
        .Replacement.Text = "?"
        .Forward = True
        .Wrap = wdFindContinue
    End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
        .Text = ChrW(11945)
        .Replacement.Text = "王"
        .Forward = True
        .Wrap = wdFindContinue
    End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
        .Text = ChrW(11946)
        .Replacement.Text = "疋"
        .Forward = True
        .Wrap = wdFindContinue
    End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
        .Text = ChrW(11947)
        .Replacement.Text = "?"
        .Forward = True
        .Wrap = wdFindContinue
    End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
        .Text = ChrW(11948)
        .Replacement.Text = "示"
        .Forward = True
        .Wrap = wdFindContinue
    End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
        .Text = ChrW(11949)
        .Replacement.Text = "ネ"
        .Forward = True
        .Wrap = wdFindContinue
    End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
        .Text = ChrW(11954)
        .Replacement.Text = "?"
        .Forward = True
        .Wrap = wdFindContinue
    End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
        .Text = ChrW(11956)
        .Replacement.Text = "?"
        .Forward = True
        .Wrap = wdFindContinue
    End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
        .Text = ChrW(11964)
        .Replacement.Text = "月"
        .Forward = True
        .Wrap = wdFindContinue
    End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
        .Text = ChrW(11965)
        .Replacement.Text = "臼"
        .Forward = True
        .Wrap = wdFindContinue
    End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
        .Text = ChrW(11969)
        .Replacement.Text = "虎"
        .Forward = True
        .Wrap = wdFindContinue
    End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
        .Text = ChrW(11970)
        .Replacement.Text = "?"
        .Forward = True
        .Wrap = wdFindContinue
    End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
        .Text = ChrW(11972)
        .Replacement.Text = "西"
        .Forward = True
        .Wrap = wdFindContinue
    End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
        .Text = ChrW(11973)
        .Replacement.Text = "?"
        .Forward = True
        .Wrap = wdFindContinue
    End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
        .Text = ChrW(11974)
        .Replacement.Text = "角"
        .Forward = True
        .Wrap = wdFindContinue
    End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
        .Text = ChrW(11977)
        .Replacement.Text = "?"
        .Forward = True
        .Wrap = wdFindContinue
    End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
        .Text = ChrW(11983)
        .Replacement.Text = "?"
        .Forward = True
        .Wrap = wdFindContinue
    End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
        .Text = ChrW(11985)
        .Replacement.Text = "長"
        .Forward = True
        .Wrap = wdFindContinue
    End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
        .Text = ChrW(11986)
        .Replacement.Text = "長"
        .Forward = True
        .Wrap = wdFindContinue
    End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
        .Text = ChrW(11990)
        .Replacement.Text = "?"
        .Forward = True
        .Wrap = wdFindContinue
    End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
        .Text = ChrW(11992)
        .Replacement.Text = "青"
        .Forward = True
        .Wrap = wdFindContinue
    End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
        .Text = ChrW(11997)
        .Replacement.Text = "食"
        .Forward = True
        .Wrap = wdFindContinue
    End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
        .Text = ChrW(11999)
        .Replacement.Text = "食"
        .Forward = True
        .Wrap = wdFindContinue
    End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
        .Text = ChrW(12003)
        .Replacement.Text = "骨"
        .Forward = True
        .Wrap = wdFindContinue
    End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
        .Text = ChrW(12004)
        .Replacement.Text = "鬼"
        .Forward = True
        .Wrap = wdFindContinue
    End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
        .Text = ChrW(12008)
        .Replacement.Text = "麦"
        .Forward = True
        .Wrap = wdFindContinue
    End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
        .Text = ChrW(12009)
        .Replacement.Text = "黄"
        .Forward = True
        .Wrap = wdFindContinue
    End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
        .Text = ChrW(12011)
        .Replacement.Text = "斉"
        .Forward = True
        .Wrap = wdFindContinue
    End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
        .Text = ChrW(12013)
        .Replacement.Text = "歯"
        .Forward = True
        .Wrap = wdFindContinue
    End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
        .Text = ChrW(12015)
        .Replacement.Text = "竜"
        .Forward = True
        .Wrap = wdFindContinue
    End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
        .Text = ChrW(12016)
        .Replacement.Text = "?"
        .Forward = True
        .Wrap = wdFindContinue
    End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
        .Text = ChrW(12018)
        .Replacement.Text = "亀"
        .Forward = True
        .Wrap = wdFindContinue
    End With
Selection.Find.Execute Replace:=wdReplaceAll

    
End Sub

関連記事

キーワード一覧

「Microsoft Word」トップページへ

Microsoft Word記事ランキング

Microsoft Word新着記事


© 2024 Aprico