思维为获得“/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
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
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货