关于用VBA提取word中指定内容到excel中的请教?

发布网友发布时间：2022-04-30 20:41

共3个回答

热心网友时间：2022-06-30 13:51

我们看关键部分（.*），这在默认情况下会贪婪匹配——不是遇到第一个句号就停止，而是贪婪的匹配到最后一个句号，解决办法是避免贪婪，在星号后面添加一个问号即可，也就是修改为（.*?）

热心网友时间：2022-06-30 13:52

Function regf(origiText, myPattern)

Set regex = CreateObject("VBScript.RegExp")

With regex

.Pattern = myPattern

.Global = True

.IgnoreCase = False

Set matchs = .Execute(origiText)

End With

For Each m In matchs

regf = regf + m.submatches(0) + Chr(10)

End Function

热心网友时间：2022-06-30 13:52

后面那个0有可能是分组，试试改成1呢

声明：本网页内容为用户发布，旨在传播知识，不代表本网认同其观点，若有侵权等问题请及时与本网联系，我们将在第一时间删除处理。E-MAIL:11247931@qq.com