若何利用word巨集功能將文字代替批次化－marshawitd45o@outlook.com

阿弗裏希利文翻譯雖然知道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 那兩行 )那段程序
用小作家之類翻譯複製需要的數目 (一個庖代動作需要一個複製)
然後對應的將字碼跟繁體文字對應打上/貼上

。-> 翻譯社|,-> 翻譯公司|的-> 翻譯

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

因為小米有時刻想將unicode 翻譯中文字資料
抓來直接利用然則常會泛起沒法與新細明體相通
然後小米就得乖乖一個字一個字的漸漸取代~~
一排字顯示出來會熊熊凸出來或凹下去幾個字
一篇文章下來有時候就三四十個字
一邊漸漸找出問題字一邊將該文字貼上庖代視窗再key一次繁體文字庖代
做了好幾次了..........小米生成就有點懶又有點小小伶俐