word中自带不过中却没有内置。可鉯在中定义一个正则抓取网页内容表达式函数然后Excel中就可以调用了。VBA代码如下（VBA高亮无效凑合着看）：

'函数ExStr功能，根据正则抓取网页內容表达式替换或判断或提取字符串

'1正则抓取网页内容方法一，替换符合正则抓取网页内容表达式的字符,可选参数RepStr为替换值

'2正则抓取网頁内容方法二 判断是否有符合正则抓取网页内容表达式有返回“TRUE”，无返回“FALSE”

'3正则抓取网页内容方法三,提取符合正则抓取网页内容表達式的字符

'参数 Repstr 指定替换的字符可选项，默认为空

'附常用几个正则抓取网页内容表达式

'第二个参数Parttern为正则抓取网页内容表达式按规则使用即可。使用该函数会自动得到匹配结果

'匹配空白行的正则抓取网页内容表达式：\n\s*\r

'匹配首尾空白字符的正则抓取网页内容表达式：^\s*|\s*$ 可以鼡来删除行首行尾的空白字符(包括空格、制表符、换页符等等)非常有用的表达式