如何利用EXCEL VBA旋转PDF的页面

sxjlhk

Sub PDFRotate()

    Dim PDFApp As AcroApp
    Dim PDFDoc As AcroAVDoc
    Dim PDFPath As String
    Dim pdPage
    Dim pdDoc

    Const pdRotate0 = 0      '旋转角度
    Const pdRotate90 = 90    '旋转角度
    Const pdRotate180 = 180  '旋转角度

    PDFPath = ThisWorkbook.Path & "\" & "PDF Test.pdf"

    Set PDFApp = CreateObject("AcroExch.App")
    Set PDFDoc = CreateObject("AcroExch.AVDoc")

    If PDFDoc.Open(PDFPath, "") = True Then

        Set pdDoc = PDFDoc.GetPDDoc()
        Set pdPage = PDFDoc.GetPDDoc.AcquirePage(0) '旋转转页数 0代表第1页,1代表第2页

        Call pdPage.SetRotate(pdRotate90)           '旋转角度

    End If

    Set PDFDoc = Nothing
    Set pdDoc = Nothing
    Set pdPage = Nothing

    On Error Resume Next

    PDFApp.Show
    AppActivate "Adobe Acrobat Pro"

End Sub

sxjlhk

PDF文件转动.rar (30.79 KB, 下载次数: 99)

2016-4-17 15:16 上传

点击文件名下载附件

bosslxt

sxjlhk 发表于 2016-4-17 15:05
Sub PDFRotate()

    Dim PDFApp As AcroApp

谢谢！再进一步的问题，我想再把旋转后的PDF保存回原有文件，如何实现？

sxjlhk

bosslxt 发表于 2016-4-24 08:32
谢谢！再进一步的问题，我想再把旋转后的PDF保存回原有文件，如何实现？

加上这句即可 pdDoc.Save 1, PDFPath

Sub PDFRotate()
   
    Dim PDFApp As AcroApp
    Dim PDFDoc As AcroAVDoc
    Dim PDFPath As String
    Dim pdPage
    Dim pdDoc
  
    Const pdRotate0 = 0      '旋转角度
    Const pdRotate90 = 90    '旋转角度
    Const pdRotate180 = 180  '旋转角度

    PDFPath = ThisWorkbook.Path & "\" & "PDF Test.pdf"
   
    Set PDFApp = CreateObject("AcroExch.App")
    Set PDFDoc = CreateObject("AcroExch.AVDoc")
   
    If PDFDoc.Open(PDFPath, "") = True Then
        
        Set pdDoc = PDFDoc.GetPDDoc()
        Set pdPage = PDFDoc.GetPDDoc.AcquirePage(0) '旋转转页数 0代表第1页,1代表第2页
        
        Call pdPage.SetRotate(pdRotate90)           '旋转角度
        
    End If

    pdDoc.Save 1, PDFPath
   
    Set PDFDoc = Nothing
    Set pdDoc = Nothing
    Set pdPage = Nothing
   
    On Error Resume Next
   
    PDFApp.Show

    AppActivate "Adobe Acrobat Pro"
   
End Sub

bosslxt

sxjlhk 发表于 2016-4-24 19:55
加上这句即可 pdDoc.Save 1, PDFPath

Sub PDFRotate()

非常感谢！我去试试你提供的代码利器！！！

bosslxt

这一句如果想要旋转所有页面，怎么改？

1. Set pdPage = PDFDoc.GetPDDoc.AcquirePage(0) '旋转转页数 0代表第1页,1代表第2页

复制代码

sxjlhk

bosslxt 发表于 2016-4-25 17:12
这一句如果想要旋转所有页面，怎么改？

加一句循环就可以完成，PageX = pdDoc.GetNumPages - 1，这句是获取PDF页数

Sub PDFRotate()
   
    Dim PDFApp As AcroApp
    Dim PDFDoc As AcroAVDoc
    Dim PDFPath As String
    Dim pdPage
    Dim pdDoc
    Dim PageX, i As Integer
  
    Const pdRotate0 = 0      '旋转角度
    Const pdRotate90 = 90    '旋转角度
    Const pdRotate180 = 180  '旋转角度

    PDFPath = ThisWorkbook.Path & "\" & "PDF Test.pdf"
   
    Set PDFApp = CreateObject("AcroExch.App")
    Set PDFDoc = CreateObject("AcroExch.AVDoc")
   
    If PDFDoc.Open(PDFPath, "") = True Then
        
        Set pdDoc = PDFDoc.GetPDDoc()
        
        PageX = pdDoc.GetNumPages - 1
            
        For i = 0 To PageX
      
           Set pdPage = PDFDoc.GetPDDoc.AcquirePage(i) '旋转转页数 0代表第1页,1代表第2页
        
           Call pdPage.SetRotate(pdRotate180)           '旋转角度
        
        Next i
        
    End If

    pdDoc.Save 1, PDFPath
   
    Set PDFDoc = Nothing
    Set pdDoc = Nothing
    Set pdPage = Nothing
   
    On Error Resume Next
   
    PDFApp.Show

    AppActivate "Adobe Acrobat Pro"
   
End Sub

xinght99

呵呵呵呵中，有点新潮，，，，，

bosslxt

sxjlhk 发表于 2016-4-25 21:12
加一句循环就可以完成，PageX = pdDoc.GetNumPages - 1，这句是获取PDF页数

Sub PDFRotate()

再问一下，程序中对象“PDFDoc”及“pdDoc”在结束时需要关闭吗？如果是批量处理PDF文件，应如何设置关闭？

sxjlhk

bosslxt 发表于 2016-4-26 09:09
再问一下，程序中对象“PDFDoc”及“pdDoc”在结束时需要关闭吗？如果是批量处理PDF文件，应如何设置关闭 ...

不好意思，这几天忙没时间来EH。

批处理用dir()处理，

关闭用PDFapp中的CloseAllDocs+Hide+Exit配合应用