求能分别统计word所选区域的中文字符数和西文字符数的代码

wdpfox

如题，小白先行谢过！

413191246se

1. Sub test选定区域中英文字数统计()
   
2. '西文字符ASC值介于 1-127 之间，反之则为中文
   
3.     Dim i&, j&, m&, n&
   
4.     With Selection
   
5.         If .Type = wdSelectionIP Then MsgBox "未选定！", 0 + 16: End
   
6.         j = .Characters.Count
   
7.         For i = 1 To j
   
8.             If Asc(.Characters(i)) >= 1 And Asc(.Characters(i)) <= 127 Then
   
9.                 m = m + 1
   
10.                 .Characters(i).Font.Color = wdColorRed '红色（本行代码可删除）
    
11.             Else
    
12.                 n = n + 1
    
13.                 .Characters(i).Font.Color = wdColorPink '粉红（本行代码可删除）
    
14.             End If
    
15.         Next i
    
16.     End With
    
17.     MsgBox "西文字符总数 = " & m & Space(9) & vbCr & "中文字符总数 = " & n, 0 + 48, "选定区域字符统计"
    
18. End Sub

复制代码

loquat

selection.range.ComputeStatistics(wdStatisticCharacters)                  '字符数（不含空格）
selection.range.ComputeStatistics(wdStatisticCharactersWithSpaces)  '字符数（含空格）
wdStatisticCharactersWithSpaces(wdStatisticFarEastCharacters)         '亚洲语言字符数

这些都是包含标点的，如果有其他的要求，只能用find通配符或者正则来提取
例如获取英文[a-zA-Z]就可以了，获取中文[一-龥] 或者 [一-﨩]

wdpfox

loquat 发表于 2019-1-4 13:04
selection.range.ComputeStatistics(wdStatisticCharacters)                  '字符数（不含空格）
selec ...

谢谢，手机回复，周一再评分！

413191246se

loquat 老师 好！——对付着给楼主完成了，半角的都算西文，全角的算中文，空格除全角外也算西文。
不知 老师 对我的代码（通用模板宏2019元旦版）有什么优化建议？现在我想来精简版，像 CardWare 一样。

loquat

413191246se 发表于 2019-1-4 23:54
loquat 老师 好！——对付着给楼主完成了，半角的都算西文，全角的算中文，空格除全角外也算西文。
不知  ...

上面已经说过了，要用通配符或者正则来统计

413191246se

因水平有限，认识不清，楼主的问题我认为无问题了，loquat 老师 也不必深究了。