请教pdf转图片问题

sac100

之前2003，操作pdf转图片没有问题
excel2010 win7 32位 转图片转不了，网上的老信息是2003和2007可以
不知道2010以上的版本哪个版本支持
以下全都不能用
'com.adobe.acrobat.eps"                      eps
'com.adobe.acrobat.html-3-20"                html, htm
'com.adobe.acrobat.html-4-01-css-1-00"       html, htm
'com.adobe.acrobat.jpeg"                     jpeg, jpg, jpe
'com.adobe.acrobat.jp2k"                     jpf, jpx, jp2, j2k, j2c,jpc
'com.adobe.acrobat.doc"                      doc
'com.adobe.acrobat.png"                      png
'com.adobe.acrobat.ps"                       ps
'com.adobe.acrobat.rtf"                      rtf
'com.adobe.acrobat.accesstext"               txt
'com.adobe.acrobat.plain-text"               txt
'com.adobe.acrobat.tiff"                     tiff, tif
'com.adobe.acrobat.xml-1-00"                 xml


另外一种方式也行不通
    Dim oPres As Presentation'这里出错
    Dim oSh As Shape
   
    Dim sngWidth As Single
    Dim sngHeight As Single
    sngWidth = 612
    sngHeight = 792
   
    Set oPres = Presentations.Add'这里也出错



我需要的是可以搜索pdf文件关键字，并定位到指定页码，并删除其余页面，然后剩下的单页需要保存成图片
现在就是不能保存成图片，不知道哪位大神知道有其他版本可以操作

sac100

刚发现xp 下vb生成的exe文件可用
win7下无效，难道是win7问题

sac100

看来只能用API+第三方了。。。。。。。。。。。。。。。。。。。。。

sac100

操作已打开的pdf文件要用objAcroApp.GetActiveDoc()

yyfdh

可以吧，我弄一个给你看看

yyfdh

PDF Cov JPG.rar (56.55 KB, 下载次数: 233)

2017-7-25 21:39 上传

点击文件名下载附件

请看附件，我用excel2013 ，测试了没有问题。

yyfdh

Sub test()

    Dim oaapp As New Acrobat.AcroApp
    Dim oaavd As New Acrobat.AcroAVDoc
    Dim oapdd As Acrobat.AcroPDDoc
    Dim i As Long
    Dim jso As Object

    i = oaapp.Show

    i = oaavd.Open("D:\TEST.pdf", "")

    Set oapdd = oaavd.GetPDDoc()

    Set jso = oapdd.GetJSObject
   
    jso.SaveAs "D:\test-01.jpeg", "com.adobe.acrobat.jpeg"

    i = oaavd.Close(1)

    i = oaapp.Hide
    i = oaapp.Exit

    Set jso = Nothing
    Set oaavd = Nothing
    Set oaapp = Nothing
   
End Sub

sac100

yyfdh 发表于 2017-7-25 21:41
Sub test()

    Dim oaapp As New Acrobat.AcroApp

objAcroAVDoc.FindText(关键字, 0, 0, 0) '搜索关键字
objAcroAVDoc.ShowTextSelect()，定位文本
objAcroPDDoc.GetNumPages()‘总页数
objAcroPDPage.GetNumber’当前页码
objAVPageView.Goto(要跳转的页码)

sac100

yyfdh 发表于 2017-7-25 21:41
Sub test()

    Dim oaapp As New Acrobat.AcroApp

CommandString = "C:\Program Files\gs\gs8.64\bin\gswin32c.exe -dFirstPage=" & 起始页 & " -dLastPage=" & 终止页 & " -dSAFER -dEPSCrop -dBATCH -sDEVICE=jpeg64m -dNOPAUSE -r" & 分辨率 & " -dEPSCrop -sDEVICE=jpeg  -sOutputFile=" & 文件输出路径 & "  " & PDF路径
用此工具生成图片即可

sac100

yyfdh 发表于 2017-7-25 21:41
Sub test()

    Dim oaapp As New Acrobat.AcroApp

DDEExecute lChanNo, "[DocDeletePages(" & PATH & ",1,3)]"'删除页码范围
先从最后页删除，到当前页面
然后再从第一页到第N页，剩下就是想保留页面的范围。