列出Word文档使用的字体(更快的方法)

Question

我正在制定验证文件的流程,以确保它们符合公司标准.其中一个步骤是确保Word文档不使用未经批准的字体.

我有以下代码存根,它有效:

    Dim wordApplication As Word.ApplicationClass = New Word.ApplicationClass()
    Dim wordDocument As Word.Document = Nothing

    Dim fontList As New List(Of String)()

    Try
        wordDocument = wordApplication.Documents.Open(FileName:="document Path")
        'I've also tried using a for loop with an integer counter, no change in speed'
        For Each c As Word.Range In wordDocument.Characters
            If Not fontList.Contains(c.Font.Name) Then
                fontList.Add(c.Font.Name)
            End If
        Next

但这非常慢!令人难以置信的慢= 2500字符/分钟(我用StopWatch计时).我的大多数文件大约是6000字/ 30,000个字符(约25页).但有一些文件在100页的页面中......

有更快的方法吗？我必须支持Office 2003格式文件,因此Open XML SDK不是一个选项.

--UPDATE--

我尝试将其作为Word宏运行(使用@ http://word.tips.net/Pages/T001522_Creating_a_Document_Font_List.html中找到的代码),它运行得更快(一分钟内).不幸的是,出于我的目的,我不相信宏会起作用.

--UPDATE#2--

我接受了Chris的建议并将文档转换为Open XML格式.然后我使用以下代码查找所有RunFonts对象并读取字体名称:

    Using docP As WordprocessingDocument = WordprocessingDocument.Open(tmpPath, False)
        Dim runFonts = docP.MainDocumentPart.Document.Descendants(Of RunFonts)().Select(
                            Function(c) If(c.Ascii.HasValue, c.Ascii.InnerText, String.Empty)).Distinct().ToList()

        fontList.AddRange(runFonts)
    End Using

Answer 1

您可能必须支持Office 2003,但这并不意味着您必须以该格式解析它.获取Office 2003文档,暂时将其转换为DOCX文件,将其打开为ZIP文件,解析/word/fontTable.xml文件,然后删除DOCX.

Answer 2

我发现没有编码的另一种方法是：

• 将文档导出为 PDF
• 在adobe reader中打开
• 在 adobe reader 中，转到：文件菜单\属性，然后是字体选项卡，其中列出了文档中使用的系列字体和子字体。

甚至也许开发人员和程序员可以使用此程序对其进行编码并将 PDF 字体列表取出对更多人有用的内容。