寻求帮助，请问在word中怎样使用VBA确定特殊字符出现次数？

0911

请求帮助： 我想使用VBA判断某个Word文档中三个依次排列的特殊字符“^p^#、”，即段落符、任意数字、顿号这三个符号依次共同出现的次数? 　　请问怎样编制这个VBA语句呢？

守柔

请参考一下这个链接，里面有很多方法。

http://club.excelhome.net/dispbbs.asp?boardid=23&replyid=400070&id=153805&page=1&skin=0&Star=1

0911

多谢守柔版主，问题解决了！[em26]

0911

我使用下列程序查找附件文档中“^p^#、”出现的次数是错误的呀？ 应该出现14次的，但统计出来的结果却是9次。 Dim FoundCount, i As Integer, myFindText As String myFindText = "^p^#、" With ActiveDocument.Content.Find .Text = myFindText .MatchWildcards = False .Wrap = wdFindStop Do While .Execute FoundCount = FoundCount + 1 Loop End With MsgBox "Word 找到" & FoundCount & "个与此条件相匹配的项!", vbInformation PH9nLuQw.rar (5.41 KB, 下载次数: 6)

2006-6-5 14:40 上传

点击文件名下载附件
还是不行呀？查找的数目是错误的！问题在哪里？

[此贴子已经被作者于2006-6-5 14:40:49编辑过]

鑫11

错在：^#只能表示一位数字，10以上＞1位

改为这样试一试

Sub ddd()
Dim FoundCount, i, a As Integer, myFindText As String

a = 1
With ActiveDocument.Content.Find
Do
.ClearFormatting
myFindText = "^p" & a & "、"

.Text = myFindText

.Wrap = wdFindStop
.Execute
.Parent.Collapse Direction:=wdCollapseEnd
FoundCount = FoundCount + 1
a = FoundCount + 1
Loop While .Found = True
End With
MsgBox "Word 找到" & FoundCount & "个与此条件相匹配的项!", vbInformation
End Sub

konggs

可以更快的。 如： Sub 要求() Dim a, b, x, atim atim = Timer a = Split(ActiveDocument.Content, Chr(13)) For Each b In a If Mid(b, 1, 1) Like "[0-9]" Then If Mid(b, 2, 1) Like "[0-9]" And Mid(b, 3, 1) = "、" Then x = x + 1 ElseIf Mid(b, 2, 1) = "、" Then x = x + 1 End If End If Next MsgBox "Word 找到" & x & "个与此条件相匹配的项!", vbInformation, Timer - atim End Sub

[此贴子已经被作者于2006-6-5 18:58:17编辑过]