vba引用adobe替换注释
    要使用 VBA 引用 Adobe Acrobat XI Pro 进行替换注释,需要执行以下步骤:
    1. 打开 VBA 编辑器,然后在 Excel 中按下“Alt+F11”键打开 Visual Basic Editor。
    2. 在 Visual Basic Editor 中,选择“插入”菜单,然后选择“模块”选项。
    3. 在模块中,编写以下代码:
    ```
    Sub ReplaceAcrobatComments()
    Dim AcrobatVersion As String
    AcrobatVersion = Application.Version
   
    " 确定 Acrobat XI Pro 版本
    If AcrobatVersion = "11.0" Then
    " 打开 Acrobat 选项卡
    Range("A1").Select
    Selection.GoTo What:=xlPageOptions, Procedure:=xlGoTo, StartRow:=1, StartColumn:=1, CriteriaRange:=range("A1:A1000")
   
    " 查所有注释
    Range("A1:A1000").Select
    Selection.Find What:="*[!*"]*", LookIn:=xlValues, LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False, SearchFormat:=False
   
    " 替换所有注释
    Range("A1:A1000").Select
    Selection.Replace What:="*[!*"]*", Replacement:="", LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False, SearchFormat:=False
   
    " 关闭 Acrobat 选项卡
    Range("A1").Select
    Selection.Delete
    End If
editor at large    End Sub
    ```
    上述代码将打开 Acrobat 选项卡,查并替换所有注释。如果当前运行的 Excel 版本不是 Acrobat XI Pro,则代码将忽略 Acrobat 选项卡的打开和注释的替换。
    4. 保存并运行宏。宏将自动查 Excel 中的所有注释,并将它们替换为空文本。
    请注意,上述代码假定您正在使用 Acrobat XI Pro 中的 Excel 插件。如果您正在使用其他版本的 Acrobat 或 Excel,则可能需要进行一些调整才能正确执行替换注释的操作。