1. 首頁 > 生活百科 > >

編寫Word“宏”輕松將全角數字轉換為半角升級必備

Word電腦知識

如果我們需要把Word文檔中的全角數字全部改為半角數字， 手頭又沒有合適的轉換軟件， 應該怎么做呢？
打開Word的“查找與替換”， 怎么也找不到全角改半角的有關設置 。 執行十次替換雖然可以達到目的， 可以步驟也過于繁瑣 。 思前想后， 決定用“宏”這個殺手锏 。
1.執行“工具”→“宏”→“錄制新宏...”， 在“宏名”框中輸入“數字全角轉半角”， 確定， 將出現一個“錄制宏”工具欄， 關閉它 。
2.執行“工具”→“宏”→“宏...”， 選擇“數字全角轉半角”， 單擊“編輯”按鈕， 打開vba編輯窗口， 錄入代碼結果如下:
Sub數字全角轉半角()
'使用前需先選中要替換的區域
Dimqjsz,bjszAsString,iAsInteger'定義qjsz（全角數字）、bjsz（半角數字）為字符串型， i為整數型
qjsz="０１２３４５６７８９"
bjsz="0123456789"
Fori=1To10'循環10次
WithSelection.Find
.Text=Mid(qjsz,i,1)'mid函數：返回文本字符串中從指定位置開始的特定數目的字符， 每次取一個數字
.Replacement.Text=Mid(bjsz,i,1)'將用于替換的相應位置的半角數字
.Format=False'保留替換前的字符格式
.ExecuteReplace:=wdReplaceAll'用半角數字替換全角數字
EndWith
Nexti
EndSub
【編寫Word“宏”輕松將全角數字轉換為半角升級必備】 3．關閉vba編輯窗口， 選中要改變數字格式的文字區域， 執行“工具”→“宏”→“宏...”→“數字全角轉半角” 。 一切OK！

    推薦閱讀