Word文档中所有标题的字体

Question

我正在尝试从Word文档中检索所有标题的字体名称和大小。 知道如何获得它吗？

Answer 1

基本结构如下所示：

Public Sub ShowFontAndSize()
    Dim singleLine As Paragraph
    Dim lineText As String

    For Each singleLine In ActiveDocument.Paragraphs
     Debug.Print singleLine.Range.Font.Name
     Debug.Print singleLine.Range.Font.Size
    Next singleLine
End Sub

问题是，如果同一行上有不同的字体和大小，则不会感觉到。 如果可能的话，您将需要在段落循环内添加另一个带有 For Each singleCharacter In singleLine.Range.Characters 的循环。

编辑：一个更棘手的问题是收集数据后如何处理这些数据。 构建数组似乎是很自然的事情，但 VBA 数组几乎毫无用处，因为像 .append() 这样的基本方法需要您重新调整整个数组。 有关详细信息，请参阅 http://www.cpearson.com/excel/VBAArrays.htm如果您想走那条路，请参阅信息。

Answer 2

最直接的解决方案是在 Word 中打开文档并访问对象模型。 传统上，这是使用 VBA 完成的，但您也可以通过使用 VSTO（Visual Studio Tools for Office）来使用 .NET（例如 C# 和 VB.NET）。 我个人认为 C#/VB.NET 比 VBA 更好。

一旦您有权访问对象模型，您将必须枚举文档中的段落。 当您找到标题（可能由样式定义）时，您必须弄清楚标题的格式。

Answer 3

这是我从 MSDN 的简要浏览中得到的结果“HeadingStyles”页面：

MsgBox ActiveDocument.HeadingStyles(1).Style