思维为获得“/p/p”的词频吧,看看这个:下面是在Word录制的Macro,你稍微改一下便成了。
Dim lngC As Long
Dim objRng As Range
Dim strWord() As String
Set objRng = Selection.Document.Paragraphs(2).Range
objRng.Select
strWord() = Split(Selection.Text, "t ")
lngC = UBound(strWord())
MsgBox lngC