如何用代码提取文档中的英文单词数量？

ggmmlol

用正则表达式，可以对任意一段字符中的英语单词计数，以及列出所有单词。

1. Sub GetWordsCount_ActiveDocument()
   
2.     Dim txt As String, xWord As Long, words, Reg
   
3.     txt = ActiveDocument.Range.Text
   
4.     Set Reg = CreateObject("VBScript.RegExp")
   
5.     Reg.Global = True
   
6.     Reg.Pattern = "([^\w,.-]|,(?!\d{3}\b)|\.(?!\d)|-(?!\w))+"
   
7.     words = Split(Trim(Reg.Replace(txt, " ")))
   
8.     xWord = UBound(words) + 1
   
9.     MsgBox "The number of words of ActiveDocument: " & xWord, vbInformation
   
10. End Sub

复制代码