起首 得先看看這位先生的影音講授
領會到 基本上該若何使用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 上面一行
如斯 就搞定拉~ 記得教員說的喔 ~~~ 要存檔
使用方式也如影片所述~~ 就降子~~~
做了好幾回了..........小米天生就有點懶又有點小小伶俐
所以就想用批次化 一次給他搞定
一篇文章下來有時辰就三四十個字
一邊慢慢找出問題字 一邊將該文字貼上取代視窗再key一次繁體文字代替
一排字顯示出來會 熊熊凸出來或凹下去幾個字
扒網了半天 居然看到一名老師的講授影音說明步驟~~~
固然知道word裡面有巨集可以做此動作
讓小米全部給他交融貫通拉~~~ 呵呵
然則 看說明訊息可就有看沒有到 要不就像王大娘的裹腳布 長阿~~~
小米今天為了讓這個功能可以或許實現
然後小米就得 乖乖一個字一個字的慢慢取代~~
抓來直接利用 然則常會呈現沒法與新細明體相通
若何使用word巨集功能將文字代替批次化
因為小米有時刻想將unicode的中文字資料本文來自: http://blog.sina.com.tw/59468/article.php?entryid=588392有關各國語文翻譯公證的問題歡迎諮詢華頓翻譯公司02-77260932
留言列表