需清除文件中所有數字（0-9），或將數字統一取代為特定字元？Word「尋找與取代」的萬用字元 ^# 專門代表任意單一數字，配合「全部取代」即可秒殺全文數字。
操作步驟
- 按 Ctrl+H 開啟「取代」對話框。
- 點選「更多」→ 勾選 「使用萬用字元」（關鍵步驟）。
- 輸入內容：
| 欄位 | 輸入值 | 說明 |
|---|
| 尋找內容 | ^# | 代表任意單一數字 (0-9) |
| 取代為 | 留空 (刪除) / X (取代為 X) / # (取代為 # 號) | 視需求填寫 |
- 點選 「全部取代」。
- 系統回報取代次數，完成。
進階：只刪除連續數字/特定長度數字
| 需求 | 尋找模式 (萬用字元) | 說明 |
|---|
| 刪除所有連續數字串 (如 12345 → 刪除) | ^#{1,} | {1,} 表示 1 次以上重複 |
| 刪除 4 位數以上的數字 (保留 1-3 位) | ^#{4,} | {4,} 表示 4 次以上重複 |
| 刪除獨立數字 (前後非數字) | [!0-9]^#[!0-9] | 需搭配取代保留前後字元，較複雜建議用 VBA |
擴充：其他常用特殊字元代碼（在「更多」→「特殊字元」選單可見）
| 代碼 | 代表 | 典型用途 |
|---|
^# | 任意數字 | 批次刪除/取代數字 |
^? | 任意字元 | 通用萬用字元 |
^$ | 任意字母 | 僅針對英文字母 |
^13 | 段落標記 (Enter) | 段落合併/分割 |
^l (小寫 L) | 手動換行 (Shift+Enter) | 清理手動換行 |
^t | 定位字元 (Tab) | 對齊/取代 Tab |
^= | 連字號 (非中斷連字號) | 處理連字號 |
^~ | 非中斷空白 | 防止斷行 |
^w | 空白字元 (空格/Tab/換行) | 清理多餘空白 |
VBA 批次處理多檔案數字清理
Sub BatchRemoveNumbersInFolder()
Dim fDialog As FileDialog, folder As String, fName As String
Dim doc As Document
Set fDialog = Application.FileDialog(msoFileDialogFolderPicker)
fDialog.Title = "選擇含數字待清理的 Word 文件資料夾"
If fDialog.Show = -1 Then folder = fDialog.SelectedItems(1) Else Exit Sub
If Right(folder, 1) <> "\" Then folder = folder & "\"
fName = Dir(folder & "*.doc*")
Application.ScreenUpdating = False
Do While fName <> ""
Set doc = Documents.Open(folder & fName)
With doc.Content.Find
.ClearFormatting
.Replacement.ClearFormatting
.Text = "^#"
.Replacement.Text = ""
.MatchWildcards = True
.Execute Replace:=wdReplaceAll
End With
doc.Close SaveChanges:=wdSaveChanges
fName = Dir()
Loop
Application.ScreenUpdating = True
MsgBox "資料夾內所有文件數字清理完成！"
End Sub
⚠ 重要提醒
- 備份優先：取代操作不可復原，務必先備份資料夾。
- 表格/公式/欄位：表格內數字、公式結果、頁碼欄位、參考文獻編號皆會被清除。若需保留，請改用 VBA 針對
StoryRanges 判斷區域處理。
- 萬用字元模式下：
^# 僅對單一數字生效，連續數字需 ^#{1,} 或重複執行「全部取代」。
善用 ^# 萬用字元，配合「使用萬用字元」勾選，即可輕鬆解決文件數字清理需求。