luda 前面介绍了提取word文件内容的VBA实例(请参见正文末尾)，但也可以从word中提取文字格式的内容，例如粗体文字。今天我将分享这些实例，以简化下图。
这个word文档中有三段文本是粗体的(实际word中可能有数十个粗体文本)。必须提取这些粗体字符并将其存储在Excel表中。
看到在Vba提取word内容的文章朋友们应该有印象。这次需求最重要的问题是如何判断段落是否粗。
只要可以加粗判断，就可以通过相应的赋值语句或复制语句提取内容。
在VBA中，可以通过以下语句识别判断，Bold表示粗体含义：
SetWordD=。打开“Documen(文件名)”文档
IfWordD。Paragra=-1 '判断粗体
效果：
除了加粗外，文字倾斜、下划线也能判断认识。
IfWordD。‘paragra-1’判断斜体
Ifwordd。‘paragrawdunderlinesingle’判断下划线大家自己做吧。请使用感兴趣的联系人接收VBA代码文件
以上是此示例的演示。如果实用的话，请分给更多的朋友~ ~ ~
相关阅读：
Excel VBA例证(26)按一下即可批次萃取word文字内容
Excel VBA实例(23)-单击一次即可批量提取word表内容
欢迎交流！