gonzalcvt68m@outlook.com

班達文翻譯一篇文章下來有時刻就三四十個字 
一邊漸漸找出問題字 一邊將該文字貼上庖代視窗再key一次繁體文字庖代
雖然知道word裡面有巨集可以做此動作
然後小米就得 乖乖一個字一個字的漸漸取代~~

若何利用word巨集功能將文字取代批次化

首先 得先看看這位教員的影音教授教養
認識到 根基上該若何使用word裡面的巨集錄製程序 請看這

然後呢 教員做的是將(1)(2)(3)(4) 劃分都轉換成" @"
所以老師總共做了四次取代動作 然後錄製完成

可是 小米可是有三四十個代替動作要做呢~~
那可是有點"巨"大工程 而且小米要錄第二個字的時候 
游標就不大聽話了~~~>_<|||

所以 小米偷吃步~ 錄製了一次代替就按休止錄製 完成錄製
然後 到工具..巨集.裡面去編輯 方才小米存的巨集資料
Sub 巨集1()
'
' 巨集1 巨集
' 巨集錄製於 2010/4/28，錄製者  xxxxx
'
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = ChrW(63851)
        .Replacement.Text = "參"
        .Forward = True
        .Wrap = wdFindAsk
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchByte = True
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll.

End Sub

固然啦 前面還有些移動move...的東西 小米覺得沒用就刪掉了
因為已經看到 Replace...的工具啦~~ 

問題來啦 ~~ 小米有上面這段程式 可以認識到說 是將
Text = ChrW(63851) 轉換成 Text = "參"
那 小米如何知道 那個號碼是幾多代表誰人字的Unicode呢?~~~

哈哈~~ 小米的小聰明這時就闡揚感化啦~~~
將 想轉換的那些問題文字 先全部複製到另一個word檔案
轉存成html格局 然後再用IE去開啟 再看看其原始檔 Ta La.....
在原始檔後面 就會看到 &#XXXXX的東東囉~
那就是小米需要的資料

然後就複製上面 (除Sub()  / End Sub 那兩行 )那段程序
用小作家之類的 複製需要的數量 (一個代替動作 需要一個複製)
然後對應的將字碼 跟 繁體文字對應打上/貼上

然後掃數複製到巨集編輯視窗的 End Sub 上面一行

如斯 就搞定拉~ 記得教員說的喔 ~~~ 要存檔
利用方式也如影片所述~~ 就降子~~~