免费拆分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

娜娜项目网每日更新创业和副业教程

网址：nanaxm.cn 点击前往娜娜项目网

站 长 微 信： nanadh666