微信公众号:yhjbox(永恒君的百宝箱),获取最新文章、资源。

Excel VBA 实例(33) – 一键提取word中加粗文字

Excel VBA 实例 永恒君 2500℃ 0评论
之前介绍过提取word文件内容的vba实例(见文末),其实对于word中加粗的文字这类涉及到文字格式的内容,一样也可以想办法进行提取,今天就来分享这样一个实例,简化如下图:

图片

这个word文档里面有三段文字是加粗的(实际的word中可能有几十段加粗文字),需要把这些加粗的文字提取出来,保存到Excel表当中。

看过之前关于vba提取word内容的文章的朋友们应该有印象,这次的需求最核心问题就是如何判断段落是加粗的

只要能够判断是加粗的,那么就可以通过相应的赋值或者复制语句将内容提取过来。

在VBA中,可以通过下面的语句来进行判断识别,Bold就表示加粗的意思。

Set WordD = .Documents.Open(filename)'打开文档
If WordD.Paragraphs.Range.Font.Bold = -1'判断加粗

效果:

图片

除了加粗,文字倾斜、下划线也同样可以判断识别。

If WordD.Paragraphs.Range.Font.Italic= -1'判断斜体
If WordD.Paragraphs.Range.Font.Underline= wdUnderlineSingle'判断下划线

大家可以自己试一下,感兴趣的在公号内回复「加粗」获取vba文件,尽快~

以上就是关于这个实例的演示,如果觉得实用,分享给更多的朋友吧~~~

相关阅读:

Excel VBA 实例(26) – 一键批量提取word文字内容
Excel VBA 实例(23) - 一键批量提取word表格内容

欢迎交流!
微信公众号:永恒君的百宝箱
个人博客:www.yhjbox.com

转载请注明:永恒君的百宝箱 » Excel VBA 实例(33) – 一键提取word中加粗文字

喜欢 (5)
发表我的评论
取消评论
表情