Tách, ghép, crop file PDF hàng loạt

[HoaNguyen]

Em đang có rất nhiều file PDF và muốn tách 1 số trang bất kỳ hàng loạt dựa vào phần mềm thứ 3 PdfTk, or foxitphantom. Hiện tại em đã làm được tách file hàng loạt rồi. Nhưng vẫn chưa biết cách làm thế nào mà chỉ cần bấm số trang cần cắt ở ngoài excel mà không phải sửa vào code. Và chưa tìm được các câu lệnh, ghép nhiều file, và crop file hàng loạt. Có bác nào biết xem giúp e với ạ. E mới mầy mò tự học, nên có nhiều chỗ vẫn không biết, mọi người xem, và chỉ giáo cho e với ạ. Em cảm ơn

Sub SplitPDFtk()

Dim SourceFile As String, DestFile As String
Dim strParam As String, RetVal As String, PDFtk As String
Dim NewFile As String, PDFfolder As String
Dim i As Long
Dim C As String
PDFtk = "C:\Program Files (x86)\PDFtk\bin\pdftk.exe "
For i = 1 To 9
SourceFile = Sheets("Sheet1").Cells(i + 1, 1)
Application.ScreenUpdating = False

NewFile = Right(SourceFile, 7)
DestFile = Range("H1") & NewFile
C = Range("E2")
strParam = SourceFile & " cat 1-3 " & " output " & DestFile

RetVal = Shell(PDFtk & strParam, 0)

Next i
Application.ScreenUpdating = True

MsgBox "Done.", vbInformation

End Sub

 

[Hoang Tuan 868]

làm thế nào mà chỉ cần bấm số trang cần cắt ở ngoài excel mà không phải sửa vào code.

Bạn nên có file đính kèm thì dễ hình dung hơn.

 

[HoaNguyen]

Bạn nên có file đính kèm thì dễ hình dung hơn.

Trang này e ko biết đẩy file đính kèm lên như nào ạ

 

[Hoang Tuan 868]

Bạn tham khảo hướng dẫn của diễn đàn tại

Bạn cần đăng nhập để thấy link

. (Không nên viết tắt nhé).