这个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表格内容