VBA 批量将 Word 文档半角字符转换为全角

以下是 VBA 代码，可以把 Word 文档中所有的半角字符替换为全角字符：/n/nvba/nSub ReplaceHalfWidth()/n/n Dim rngDoc As Range/n Set rngDoc = ActiveDocument.Content/n /n '定义需要替换的半角字符和对应的全角字符/n Dim strHalfWidth As String/n Dim strFullWidth As String/n strHalfWidth = 'abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789!@#$%^&*()-=_+[]{}/|;':/',.<>/?`~ '/n strFullWidth = 'ａｂｃｄｅｆｇｈｉｊｋｌｍｎｏｐｑｒｓｔｕｖｗｘｙｚＡＢＣＤＥＦＧＨＩＪＫＬＭＮＯＰＱＲＳＴＵＶＷＸＹＺ０１２３４５６７８９！＠＃＄％＾＆＊（）－＝＿＋［］｛｝＼｜；’：＂，．＜＞／？｀～　'/n /n Dim i As Integer/n/n For i = 1 To Len(strHalfWidth)/n rngDoc.Find.Text = Mid(strHalfWidth, i, 1)/n rngDoc.Find.Replacement.Text = Mid(strFullWidth, i, 1)/n rngDoc.Find.Execute Replace:=wdReplaceAll/n Next i/n /nEnd Sub/n/n/n请注意，这段代码只会替换'abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789!@#$%^&*()-=_+[]{}/|;':/',.<>/?`~'这些半角字符，如果您需要替换其他字符，请自行添加到代码中。