如何使用VBA将Nuance Power PDF中的批注字段中的文本导出到Excel？

Sub ExportAnnotationsToExcel()
    Dim pdfApp As Object
    Dim pdfDoc As Object
    Dim annots As Object
    Dim annot As Object
    Dim excelApp As Object
    Dim excelWorkbook As Object
    Dim excelWorksheet As Object
    Dim row As Integer
    
    ' 创建Nuance Power PDF应用程序对象
    Set pdfApp = CreateObject("NuancePDF.Application")
    
    ' 打开PDF文档
    Set pdfDoc = pdfApp.Open("C:\path\to\your\pdf\file.pdf")
    
    ' 获取批注字段集合
    Set annots = pdfDoc.GetAnnotations
    
    ' 创建Excel应用程序对象
    Set excelApp = CreateObject("Excel.Application")
    
    ' 创建新的Excel工作簿
    Set excelWorkbook = excelApp.Workbooks.Add
    
    ' 获取第一个工作表
    Set excelWorksheet = excelWorkbook.Worksheets(1)
    
    ' 设置Excel工作表的列标题
    excelWorksheet.Cells(1, 1).Value = "Page"
    excelWorksheet.Cells(1, 2).Value = "Annotation"
    
    ' 初始化行号
    row = 2
    
    ' 遍历批注字段集合
    For Each annot In annots
        ' 检查字段类型是否为文本字段
        If annot.Type = 1 Then
            ' 将页面号和字段文本导出到Excel
            excelWorksheet.Cells(row, 1).Value = annot.PageNumber
            excelWorksheet.Cells(row, 2).Value = annot.Text
            row = row + 1
        End If
    Next annot
    
    ' 保存Excel工作簿
    excelWorkbook.SaveAs "C:\path\to\your\excel\file.xlsx"
    
    ' 关闭Excel应用程序对象
    excelApp.Quit
    
    ' 释放对象
    Set annots = Nothing
    Set pdfDoc = Nothing
    Set pdfApp = Nothing
    Set excelWorksheet = Nothing
    Set excelWorkbook = Nothing
    Set excelApp = Nothing
    
    MsgBox "批注字段已成功导出到Excel。"
End Sub