---批量改變下載的word文檔文字大小在處理下載的Word文稿時(shí)，有時(shí)會(huì)遇到數(shù)字的文字大小與其他內(nèi)容不一致的情況。如果數(shù)字字體過(guò)大，需要批量將其大小調(diào)整為統(tǒng)一的標(biāo)準(zhǔn)。例如，某地區(qū)的總產(chǎn)值在2005年

---

批量改變下載的word文檔文字大小

在處理下載的Word文稿時(shí)，有時(shí)會(huì)遇到數(shù)字的文字大小與其他內(nèi)容不一致的情況。如果數(shù)字字體過(guò)大，需要批量將其大小調(diào)整為統(tǒng)一的標(biāo)準(zhǔn)。例如，某地區(qū)的總產(chǎn)值在2005年達(dá)到了54.95億元，在此基礎(chǔ)上，工業(yè)總產(chǎn)值增長(zhǎng)了17.6%，社會(huì)消費(fèi)品零售總額增長(zhǎng)了12.7%，財(cái)政總收入增長(zhǎng)了18.0%等等。如何快速、批量地調(diào)整這些文字的大小呢？

使用宏進(jìn)行全角數(shù)字轉(zhuǎn)半角數(shù)字

當(dāng)我們需要將Word文檔中的全角數(shù)字全部改為半角數(shù)字時(shí)，手頭沒(méi)有合適的轉(zhuǎn)換軟件也可以輕松實(shí)現(xiàn)。首先，在Word中打開(kāi)“查找與替換”功能，但是通常找不到全角轉(zhuǎn)半角的相關(guān)設(shè)置。為了簡(jiǎn)化操作，可以利用“宏”來(lái)實(shí)現(xiàn)這一目標(biāo)。

1. 執(zhí)行“工具”→“宏”→“錄制新宏...”，輸入宏名為“數(shù)字全角轉(zhuǎn)半角”，確定后會(huì)彈出一個(gè)“錄制宏”工具欄，可關(guān)閉。

2. 接著執(zhí)行“工具”→“宏”→“宏...”，選擇之前創(chuàng)建的“數(shù)字全角轉(zhuǎn)半角”宏，點(diǎn)擊“編輯”按鈕，進(jìn)入vba編輯窗口，將下方代碼錄入其中：

```vba

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

.Text Mid(qjsz, i, 1) '每次取一個(gè)數(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編輯窗口，選擇要轉(zhuǎn)換數(shù)字格式的文字區(qū)域，再執(zhí)行“工具”→“宏”→“宏...”→“數(shù)字全角轉(zhuǎn)半角”。這樣就完成了批量轉(zhuǎn)換全角數(shù)字為半角數(shù)字的操作。