Cắt file PDF bằng Excel

[thaibao13d3bk]

Các cao nhân cho em hỏi có code nào để cắt và lưu file pdf thành các file nhỏ theo ý mình muốn vào một thư mục tự mình chọn được không ạ. Em cảm ơn./.

 

[Excel my love_1]

Cắt ảnh Cái ô tô đẹp dữ ta

 

[thnghiachau]

View attachment 243408
Các cao nhân cho em hỏi có code nào để cắt và lưu file pdf thành các file nhỏ theo ý mình muốn vào một thư mục tự mình chọn được không ạ. Em cảm ơn./.

Có lẽ đơn giản hơn bạn có thể in thành file pdf mới với nội dung từ trang nào tời trang nào trong file pdf gốc

 

[vu_tuan_manh_linh]

View attachment 243408
Các cao nhân cho em hỏi có code nào để cắt và lưu file pdf thành các file nhỏ theo ý mình muốn vào một thư mục tự mình chọn được không ạ. Em cảm ơn./.

Đã từng làm bằng VBNet, chưa thử với VBA bao giờ.

 

[befaint]

Món PDF này mình biết có phần mềm PDFill từ lâu.
Cài PDFill rồi cùng lệnh CMD (DOS hoặc VBA đều được).



Cách khác: Dùng API này

Split PDF API. Split PDF files into pages and save them in individual PDF - ConvertAPI

Split PDF files into pages and save them in individual PDF. Simple integration to any Web or Desktop Application, perfect conversion quality, fast and secure.

www.convertapi.com

 

[thnghiachau]

View attachment 243408
Các cao nhân cho em hỏi có code nào để cắt và lưu file pdf thành các file nhỏ theo ý mình muốn vào một thư mục tự mình chọn được không ạ. Em cảm ơn./.

Hôm qua tìm tòi lục lọi trong anh gồ, mình tìm được cái này: "InterApplication Communication API Reference" của Acrobat - xem file đính kèm.
Và dựa vào đó mình tìm "Extract page" nhưng không thấy... hic... không biết là mình tìm không ra hay là không có nữa?
Nên mình nghĩ ra cách extract page: mình có thể xóa hết mấy trang không cần chỉ giữ lại trang cần => trở thành extract page!!
Mình dựa vào cái mình tìm và viết ra function xóa trang file pdf:

Function DeletePagePDF(ByVal sFullFileName_Source As String, ByVal sFullFileName_Target As String, _
                  ByVal iStartPage As Integer, ByVal iEndPage As Integer) As Boolean
Dim oAcroApp As Object, oAcroAVDoc As Object, oAcroPDDoc As Object

'Note: Page is counted from 0
   
On Error GoTo ExitSub
    Set oAcroApp = CreateObject("AcroExch.App")
    Set oAcroAVDoc = CreateObject("AcroExch.AVDoc")
    If oAcroAVDoc.Open(sFullFileName_Source, vbNull) <> True Then
        MsgBox "Have Error When open File: " & sFullFileName_Source & " !!!", vbCritical, "----:: ALARM ::----"
        GoTo ClearVar
    End If
   
    Set oAcroPDDoc = oAcroAVDoc.GetPDDoc
    oAcroPDDoc.DeletePages iStartPage, iEndPage
    oAcroPDDoc.Save &H1, sFullFileName_Target
   
ExitSub:
    If Err.Number <> 0 Then
        MsgBox "Have Error !!!", vbCritical, "----:: ALARM ::----"
        DeletePagePDF = False
    Else
        DeletePagePDF = True
    End If
   
ClearVar:
    oAcroAVDoc.Close True
    oAcroApp.Exit
   
    Set oAcroPDDoc = Nothing
    Set oAcroAVDoc = Nothing
    Set oAcroApp = Nothing
End Function

Với:
-> sFullFileName_Source là file bạn muốn xóa trang
-> sFullFileName_Target là file bạn muốn save vào sau khi xóa trang
-> và xóa từ trang iStartPage tới trang iEndPage
Chú ý: trang nó tính từ 0 chứ không phải tính từ 1 nha bạn.

Bạn có thể dùng cái này nhào nặng ra cái mình muốn nha.