下載的word文稿中數(shù)字是一個文字大小,字體太大,批量的變小的辦法，如下:至２００５年，全縣地區(qū)總產(chǎn)值５４．９５億元，比２０００年增加２６．６４億元，年均增長９．７％；人均ＧＤＰ超過１３００美元；工業(yè)總產(chǎn)值４３．８６億元，比２０００年增加２５．５８億元，年均增長１７．６％；社會消費品零售總額１５．９９億元，比２０００年增加７．１８億元，年均增長１２．７％；財政總收入４．５３億元，比２０００年增加２．５５億元，年均增長１８．０％；地方財政收入２．１１億元，比２０００年增加０．９３億元，年均增長１２．３％；城鎮(zhèn)居民人均可支配收入１０２１７元，比２０００年增加３２５６元，年均增長８．０％；農(nóng)民人均現(xiàn)金收入４４７６元，比２０００年增加１３４９元，年均增長７．４％。
那么怎么才可以批量的變小呢，看我的，如果我們需要把Word文檔中的全角數(shù)字全部改為半角數(shù)字，手頭又沒有合適的轉(zhuǎn)換軟件，應(yīng)該怎么做呢？
打開Word的“查找與替換”，怎么也找不到全角改半角的有關(guān)設(shè)置。執(zhí)行十次替換雖然可以達到目的，可以步驟也過于繁瑣。思前想后，決定用“宏”這個殺手锏。
1.執(zhí)行“工具”→“宏”→“錄制新宏...”，在“宏名”框中輸入“數(shù)字全角轉(zhuǎn)半角”，確定，將出現(xiàn)一個“錄制宏”工具欄，關(guān)閉它。
2.執(zhí)行“工具”→“宏”→“宏...”，選擇“數(shù)字全角轉(zhuǎn)半角”，單擊“編輯”按鈕，打開VBa編輯窗口，錄入代碼結(jié)果如下:
Sub 數(shù)字全角轉(zhuǎn)半角()
'使用前需先選中要替換的區(qū)域
Dim qjsz, bjsz As String, i As Integer '定義qjsz（全角數(shù)字）、bjsz（半角數(shù)字）為字符串型，i為整數(shù)型
qjsz = "０１２３４５６７８９"
bjsz = "0123456789"
For i = 1 To 10 '循環(huán)10次
With Selection.Find
.Text = Mid(qjsz, i, 1) 'mid函數(shù)：返回文本字符串中從指定位置開始的特定數(shù)目的字符，每次取一個數(shù)字
.Replacement.Text = Mid(bjsz, i, 1) '將用于替換的相應(yīng)位置的半角數(shù)字
.Format = False '保留替換前的字符格式
.Execute Replace:=wdReplaceAll '用半角數(shù)字替換全角數(shù)字
End With
Next i
End Sub
3．關(guān)閉vba編輯窗口，選中要改變數(shù)字格式的文字區(qū)域，執(zhí)行“工具”→“宏”→“宏...”→“數(shù)字全角轉(zhuǎn)半角”。一切OK！
相關(guān)閱讀