通过字体解析Word文档？

Question

我目前正在尝试编写一个脚本，该脚本将运行一个Word文档并将以某种字体编写的所有行输出到文本文件。

因此，如果我有该文档：

“这是文档的第一行。 这是文档的第二行。 这是文档的第三行。”

并假设正常行是 Times New Roman，粗体是 Arial，斜体是 Sans Serif。

然后，理想情况下，我可以解析文档中的所有行 Arial文本文件输出将包含以下行：

这是文档的第二行。

关于如何从脚本执行此操作，我正在考虑首先将文档转换为 xml，但我认为这在内部是不可能的。一个脚本。

Answer 1

您将需要使用 FIND 对象以及 FIND 对象的 FONT 属性。

所以，像这样：

Public Sub FindTest()
    Dim r As Range
    Set r = ActiveDocument.Content
    With r.Find
        .ClearFormatting
        .Style = "SomeStyleName"
        Do While .Execute(Forward:=True, Format:=True) = True
            '---- we found a range
            Dim duperange As Range
            Set duperange = r.Duplicate
            Debug.Print r.Text
        Loop
    End With
End Sub

请注意，在我指定样式的地方，您可以通过 FIND.FONT 对象或各种其他格式选项指定字体格式。只需浏览 FIND 对象即可查看可用的内容。