1、查找/替換所有標點符號；
在Word中無法實現(xiàn)一次性查找所有標點符號,所以需要只能一個一個的將半角標點替換為全角標點,英文常用標點符號一共17個,因此最多替17次就可以完成.
中文標點符號范圍(非全部):
"." "," "；" "：" " "!" "……" "—" " "〔" "〕" "《" "》" "‘" "’" "“" "”"共17個
英文標點符號范圍(非全部),對應中文標點符號:
"." "," ";" ":" " "!" "…" "-" " "(" ")" "" "'" "'" """" """"
最后四個相當于' ' " "
2、將半角變?yōu)槿牵?br/>將所有文檔全部轉(zhuǎn)換為全角,Ctrl+A全選文檔,選擇菜單中的,,選中,即將所選中的半角字符轉(zhuǎn)換為全角.
再次a-z,A-Z轉(zhuǎn)為半角,需要26*2=52次
上述兩法比較復雜,如果需要一次性轉(zhuǎn)換,可以使用Word中的宏工具來實現(xiàn),如果需要,給我發(fā)信息,我有收集該工具.
該轉(zhuǎn)換工具代碼如下,可以自動添加至Word中：
* ＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋
'* Created By I Love You_Word!@ExcelHome 2005-5-20 5:30:30
'僅測試于System:Windows NT Word:10.0 Language:2052
'^The Code CopyIn [ThisDocument-ThisDocument]^'
'* －－－－－－－－－－－－－－－－－－－－－－－－－－－－－
Sub ReplaceEnglishInterpunctionInChinese()
'中英互譯文檔中將中文段落中的英文標點符號替換為中文標點符號
Dim i As Paragraph,ChineseInterpunction() As Variant,EnglishInterpunction() As Variant
Dim MyRange As Range,N As Byte
'定義一個中文標點的數(shù)組對象
ChineseInterpunction = Array(".",",","；","：",","!","……","—",","〔","〕","《","》","‘","’","“","”")
'定義一個英文標點的數(shù)組對象
EnglishInterpunction = Array(".",",",";",":",","!","…","-",","(",")","","'","'","""","""")
On Error Resume Next
Application.ScreenUpdating = False '關(guān)閉屏幕更新
For Each i In ThisDocument.Paragraphs '遍歷文檔每個段落
If Asc(i.Range) < 0 Then '如果段落首個字符為漢字(漢字字符的ASC