word中自带不过中却没有内置。可鉯在中定义一个正则抓取网页内容表达式函数然后Excel中就可以调用了。VBA代码如下(VBA高亮无效凑合着看):
'函数ExStr功能,根据正则抓取网页內容表达式替换或判断或提取字符串
'1正则抓取网页内容方法一,替换符合正则抓取网页内容表达式的字符,可选参数RepStr为替换值
'2正则抓取网頁内容方法二 判断是否有符合正则抓取网页内容表达式有返回“TRUE”,无返回“FALSE”
'3正则抓取网页内容方法三,提取符合正则抓取网页内容表達式的字符
'参数 Repstr 指定替换的字符可选项,默认为空
'附常用几个正则抓取网页内容表达式
'第二个参数Parttern为正则抓取网页内容表达式按规则使用即可。使用该函数会自动得到匹配结果
'匹配空白行的正则抓取网页内容表达式:\n\s*\r
'匹配首尾空白字符的正则抓取网页内容表达式:^\s*|\s*$ 可以鼡来删除行首行尾的空白字符(包括空格、制表符、换页符等等)非常有用的表达式