免费拆分pdf-免费PDF拆分软件

之前发过

有合并就有拆分

最近遇到朋友要把多页的PDF拆分为单页PDF

拆PDF有多种方式,比如：

1、WPS的“金山PDF转换”(需要会员)

2、Foxit Phantom 的页面管理

今天我用iTextSharp写一个拆分软件，iTextSharp本身是开源的免费拆分pdf，所以这个小东西也免费提供给大家，包括源码。它可以把文件夹下所有pdf文件拆分到PDF所在文件夹的子文件夹（和PDF同名）中免费拆分pdf，拆分后的单页PDF按照原PDF文件的页码命名。

以下是VB.net的拆分源码

Imports System.IOImports iTextSharp.textImports iTextSharp.text.pdf
\'将files中的所有pdf文件拆分到PDF所在文件夹的子文件夹（和PDF同名）中Sub SplitPDFtoFile(ByVal NewFolder As String, ByVal Files As String())        Try            Dim M As Long = 0            For Each File As String In Files                \'根据PDF文件名在NewFolder文件夹下创建同名的子文件夹                Dim FInfo As FileInfo = New IO.FileInfo(File)                Dim FFolder As String = FInfo.Name.Split(\".\")(0)                Dim NewSubfolders As String = IO.Path.Combine(NewFolder, FFolder)                IO.Directory.CreateDirectory(NewSubfolders)                \'读取PDF                Dim Pr As PdfReader = New PdfReader(File)                \'PDF页数                Dim N As Int16 = Pr.NumberOfPages                If N > 1 Then                    For i As Int16 = 1 To N                        \'为每一页PDF按照页码命名                        Dim NewPagesPDF As String = IO.Path.Combine(NewSubfolders, Format(i, \"0000\") & \".pdf\")
                        Dim Doc As Document = New Document()                        Dim Pw As PdfWriter = PdfWriter.GetInstance(Doc, New FileStream(NewPagesPDF, FileMode.Create))                        Doc.Open()                        Dim Pcb As PdfContentByte = Pw.DirectContent \'必须在Doc.Open()之后
                        Dim NewPage As PdfImportedPage = Pw.GetImportedPage(Pr, i)                        Dim Rec As iTextSharp.text.Rectangle = Pr.GetPageSize(i)                        Dim R As Integer = Pr.GetPageRotation(i)
                        Dim RecR As iTextSharp.text.Rectangle = Pr.GetPageSizeWithRotation(i) \'方向是正确的                        Select Case R                            Case 0                                Doc.SetPageSize(Rec)                                Doc.NewPage()                                Pcb.AddTemplate(NewPage, 1.0F, 0, 0, 1.0F, 0, 0)                                Exit Select                            Case 90                                Doc.SetPageSize(RecR)                                Doc.NewPage()                                Pcb.AddTemplate(NewPage, 0, -1.0F, 1.0F, 0, 0, RecR.Height)                                Exit Select                            Case 180                                Doc.SetPageSize(Rec)                                Doc.NewPage()                                Pcb.AddTemplate(NewPage, -1.0F, 0, 0, -1.0F, 0, 0)                                Exit Select                            Case 270                                Doc.SetPageSize(RecR)                                Doc.NewPage()                                Pcb.AddTemplate(NewPage, 0, 1.0F, -1.0F, 0, RecR.Width, 0)                                Exit Select                            Case Else                                Exit Select                        End Select                                              Doc.Close()                        Pw.Close()
                    Next                End If            Next            MsgBox(\"拆分完毕!\")        Catch ex As Exception            MsgBox(ex.Message)        End Try    End Sub

声明：
1、本站资源针对会员完全免费，站点中所有资源大部分为投稿作者付费教程，切勿轻易添加教程上除本站信息外的任何联系方式，谨防被割，如有疑问请随时联系客服。
2、本站所有文章，如无特殊说明或标注，均为本站原创发布。任何个人或组织，在未征得本站同意时，禁止复制、盗用、采集、发布本站内容到任何网站、书籍等各类媒体平台。如若本站内容侵犯了原著者的合法权益，可联系我们进行处理。

同名