[已解决]word VBA搜寻

10210578

请问各位大大
档案word中，如何用VBA寻找<>内的字?

最佳答案

月排行榜 / 总排行榜

dsmch

2015-6-16 15:14

1. Sub Macro1()
   
2. With CreateObject("vbscript.regexp")
   
3.     .Pattern = "\<\d+\>"
   
4.     .Global = True
   
5.     For Each m In .Execute(ActiveDocument.Range.Text)
   
6.         MsgBox Val(Mid(m, 2))
   
7.     Next
   
8. End With
   
9. End Sub

复制代码

跳转到最佳答案楼层

dsmch

1. Sub Macro1()
   
2. With CreateObject("vbscript.regexp")
   
3.     .Pattern = "\<\d+\>"
   
4.     .Global = True
   
5.     For Each m In .Execute(ActiveDocument.Range.Text)
   
6.         MsgBox Val(Mid(m, 2))
   
7.     Next
   
8. End With
   
9. End Sub

复制代码

上清宫主

直接录个查找的宏来改也可以