如果我們需要把Word文檔中的全角數字全部改為半角數字，手頭又沒有合適的轉換軟件，應該怎么做呢？

　　打開Word的“查找與替換”，怎么也找不到全角改半角的有關設置。執行十次替換雖然可以達到目的，可以步驟也過于繁瑣。思前想后，決定用“宏”這個殺手锏。

　　1.執行“工具”→“宏”→“錄制新宏...”，在“宏名”框中輸入“數字全角轉半角”，確定，將出現一個“錄制宏”工具欄，關閉它。

　　2.執行“工具”→“宏”→“宏...”，選擇“數字全角轉半角”，單擊“編輯”按鈕，打開vba編輯窗口，錄入代碼結果如下:

　　Sub 數字全角轉半角()

　　'使用前需先選中要替換的區域

　　Dim qjsz, bjsz As String, i As Integer '定義qjsz(全角數字)、bjsz(半角數字)為字符串型，i為整數型

　　qjsz = "0123456789"

　　bjsz = "0123456789"

　　For i = 1 To 10 '循環10次

　　With Selection.Find

　　.Text = Mid(qjsz, i, 1) 'mid函數：返回文本字符串中從指定位置開始的特定數目的字符，每次取一個數字

　　.Replacement.Text = Mid(bjsz, i, 1) '將用于替換的相應位置的半角數字

　　.Format = False '保留替換前的字符格式

　　.Execute Replace:=wdReplaceAll '用半角數字替換全角數字

　　End With

　　Next i

　　End Sub

　　3.關閉vba編輯窗口，選中要改變數字格式的文字區域，執行“工具”→“宏”→“宏...”→“數字全角轉半角”。一切OK！