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，则可能需要进行一些调整才能正确执行替换注释的操作。

版权声明：本站内容均来自互联网，仅供演示用，请勿用于商业和其他非法用途。如果侵犯了您的权益请与我们联系QQ:729038198，我们将在24小时内删除。