[求助]怎样统计word中某一个汉字的数量?全部汉字？

方法很多，试一下这个：

'* ＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋
'* Created By I LOVE YOU WORD!@ExcelHome 2006-3-4 18:32:28
'仅测试于System: Windows NT Word: 11.0 Language: 2052
'№ 0030^The Code CopyIn [ThisDocument-ThisDocument]^'
'* －－－－－－－－－－－－－－－－－－－－－－－－－－－－－
Option Explicit
Sub GetFoundCount()
Dim FoundCount As Integer, myFindText As String
myFindText = "只"
With ActiveDocument.Content.Find
.Text = myFindText
.MatchWildcards = False
.Wrap = wdFindStop
Do While .Execute
FoundCount = FoundCount + 1
Loop
End With
MsgBox "Word 找到" & FoundCount & "个与此条件相匹配的项!", vbInformation
End Sub

sub findtext()

dim text as string

dim tt as integer

text="的"

with activedocument.content.find

do while .execute(findtext:=text)=true

tt=tt+1

loop

end with

endsub

老大，批批这个是否更快！

Sub getfoundcount1()
Dim a, b, c, d, e
d = Timer
a = ActiveDocument.Range.Text
b = Split(a, Chr(-19004))
c = UBound(b)
e = Timer - d
MsgBox "Word 找到" & c & "个与此条件相匹配的项!", vbInformation, e
End Sub

KONGGS兄的这个方法很好。其实有很多方法可以做到，我在二楼就说的，比如：

Sub GetFoundCount()
Dim strText As String, myText As String
Dim lngOld As Long, lngNew As Long
Dim Times As Single
Times = VBA.Timer
strText = ActiveDocument.Content.Text
myText = "的"
lngOld = Len(strText)
lngNew = Len(Replace(strText, myText, ""))
MsgBox "Word 找到" & lngOld - lngNew & "个与此条件相匹配的项!", vbInformation, VBA.Timer - Times
End Sub

由于我手头没有英文版WORD，我觉得可以直接从查找对话框中读出，但目前还有几个问题没有很好地解决，需要时间。

请参考一下：

http://club.excelhome.net/viewthread.php?tid=118832&replyID=111742&skin=0