vba如何使用AdobeAcrobat将图片添加到pdf文件

xiao99hui

vba如何使用AdobeAcrobat将图片添加到pdf文件，如果PDF多页的时候，指定PDF哪一页增加图片

xiao99hui

没有大神在吗？？

changhong8

以下全部由AI生成，未测试，不保证正确。
Sub AddImageToPDF()
    ' 定义变量
    Dim avDoc As New AcroAVDoc
    Dim pdDoc As AcroPDDoc
    Dim pageNum As Integer
    Dim acroPage As AcroPDPage
    Dim img As AcroPDXObject
    Dim rect As AcroRect
    Dim annot As AcroPDAnnot
   
    ' 打开PDF文件
    If avDoc.Open("C:\example.pdf", "") Then
        Set pdDoc = avDoc.GetPDDoc()
    End If
   
    ' 获取PDF指定页码
    pageNum = 1 ' 指定要添加图片的页码
    Set acroPage = pdDoc.AcquirePage(pageNum)
   
    ' 加载图片
    Set img = CreateObject("AcroExch.PDXObject")
    img.CreateFromFile("C:\example.jpg")
   
    ' 在PDF中添加图片
    Set rect = CreateObject("AcroExch.Rect")
    rect.Top = 100
    rect.Left = 100
    rect.Bottom = 200
    rect.Right = 200
    Set annot = acroPage.Annots.Add("Stamp", rect)
    annot.Icon = img
    annot.Author = "John Doe"
   
    ' 保存和关闭PDF文件
    pdDoc.Save 1, "C:\example_modified.pdf"
    pdDoc.Close
   
    ' 释放对象
    Set annot = Nothing
    Set rect = Nothing
    Set img = Nothing
    Set acroPage = Nothing
    Set pdDoc = Nothing
    Set avDoc = Nothing
End Sub
注意：在使用该代码之前，需要先将Adobe Acrobat的类型库添加到VBA引用中。如果该代码报错，请检查您的VBA引用设置是否正确。

xiao99hui

changhong8 发表于 2023-2-23 17:21
以下全部由AI生成，未测试，不保证正确。
Sub AddImageToPDF()
    ' 定义变量

要引用哪个？

morpheus126

我是来学习的。。。谢谢分享

xiao99hui

morpheus126 发表于 2023-2-24 10:26
我是来学习的。。。谢谢分享

为什么我运行不了？是不是缺少哪个引用？求解答

xiao99hui

changhong8 发表于 2023-2-23 17:21
以下全部由AI生成，未测试，不保证正确。
Sub AddImageToPDF()
    ' 定义变量

Dim img As AcroPDXObject，大神在吗？这句提示未定义。是不是缺少哪个引用？求解答

smiletwo

xiao99hui 发表于 2023-2-25 11:03
Dim img As AcroPDXObject，大神在吗？这句提示未定义。是不是缺少哪个引用？求解答

涉及第三方插件是，AI的答案有不少问题

高度保密

xiao99hui 发表于 2023-2-25 11:03
Dim img As AcroPDXObject，大神在吗？这句提示未定义。是不是缺少哪个引用？求解答

ChatGPT写的代码，很多张冠李戴、东拼西凑的，它会把JS的代码搞到VBA中来用，我试了几个，很多都不能成功运行

morpheus126

xiao99hui 发表于 2023-2-24 11:43
为什么我运行不了？是不是缺少哪个引用？求解答

我不是学习您的题目，我是来学习大家对ChatGPT的分析的。。。
很大几率是你没安装或正确注册AdobeAcrobat