{"id":5861,"date":"2015-07-22T15:42:42","date_gmt":"2015-07-22T06:42:42","guid":{"rendered":"http:\/\/www.ka-net.org\/blog\/?p=5861"},"modified":"2015-07-22T15:52:28","modified_gmt":"2015-07-22T06:52:28","slug":"powershellitextsharp%e3%82%92%e4%bd%bf%e3%81%a3%e3%81%a6pdf%e3%83%95%e3%82%a1%e3%82%a4%e3%83%ab%e3%82%92%e7%b5%90%e5%90%88%e3%81%99%e3%82%8b","status":"publish","type":"post","link":"https:\/\/www.ka-net.org\/blog\/?p=5861","title":{"rendered":"[PowerShell]iTextSharp\u3092\u4f7f\u3063\u3066PDF\u30d5\u30a1\u30a4\u30eb\u3092\u7d50\u5408\u3059\u308b"},"content":{"rendered":"

moug<\/a>\u306b\u3042\u3063\u305f\u8cea\u554f\u300c\uff12\u3064\u306ePDF\u30d5\u30a1\u30a4\u30eb\u3092\u7d50\u5408\u3059\u308b\u306b\u306f<\/a>\u300d\u306e\u56de\u7b54\u7528\u306b\u66f8\u3044\u305f\u3001PowerShell\u304b\u3089iTextSharp<\/a>\u3092\u4f7f\u3063\u3066PDF\u30d5\u30a1\u30a4\u30eb\u3092\u7d50\u5408\u3059\u308b\u30b3\u30fc\u30c9\u3067\u3059\u3002<\/p>\n

[System.Reflection.Assembly]::LoadFrom("C:\\System\\iTextSharp\\itextsharp.dll");\r\n$reader1 = New-Object iTextSharp.text.pdf.PdfReader("C:\\Test\\Sample01.pdf");\r\n$reader2 = New-Object iTextSharp.text.pdf.PdfReader("C:\\Test\\Sample02.pdf");\r\n$fs = New-Object System.IO.FileStream("C:\\Test\\Output.pdf", [System.IO.FileMode]::OpenOrCreate);\r\n$copy = New-Object iTextSharp.text.pdf.PdfCopyFields($fs);\r\n$copy.AddDocument($reader1);\r\n$copy.AddDocument($reader2);\r\n$copy.Close();\r\n$fs.Close();\r\n$reader1.Close();\r\n$reader2.Close();<\/pre>\n
iTextSharp\u306fPowerShell\u304b\u3089\u3082\u7c21\u5358\u306b\u4f7f\u3048\u3066\u4fbf\u5229\u3067\u3059\u306d\uff01
\n\u3061\u306a\u307f\u306b\u3001\u4e0a\u8a18\u30b3\u30fc\u30c9\u3092VBA\u304b\u3089-Command<\/span>\u30aa\u30d7\u30b7\u30e7\u30f3\u3092\u4f7f\u3063\u3066\u51e6\u7406\u3092\u5b9f\u884c\u3059\u308b\u3088\u3046\u306b\u3057\u305f\u306e\u304c\u4e0b\u8a18\u30b3\u30fc\u30c9\u306b\u306a\u308a\u307e\u3059\u3002<\/p>\n
Option Explicit\r\n\r\nPublic Sub Sample()\r\n  Dim v As Variant '\u7d50\u5408\u5143PDF\u30d5\u30a1\u30a4\u30eb\r\n  \r\n  v = Array( _\r\n        "C:\\Test\\Sample01.pdf", _\r\n        "C:\\Test\\Sample02.pdf", _\r\n        "C:\\Test\\Sample03.pdf" _\r\n      )\r\n  MergePDF v, "C:\\Test\\Output.pdf"\r\nEnd Sub\r\n\r\nPrivate Sub MergePDF(ByVal InputFilePath As Variant, _\r\n                     ByVal OutputFilePath As String)\r\n'iTextSharp\u3092\u4f7f\u3063\u3066PDF\u30d5\u30a1\u30a4\u30eb\u3092\u7d50\u5408\r\n  Dim com As String\r\n  Dim i As Long\r\n  Const DllFilePath As String = "C:\\System\\iTextSharp\\itextsharp.dll" 'itextsharp.dll\u30d5\u30a1\u30a4\u30eb\u306e\u30d1\u30b9\r\n  \r\n  com = "powershell -Command "\r\n  com = com & "[System.Reflection.Assembly]::LoadFrom('" & DllFilePath & "');"\r\n  For i = LBound(InputFilePath) To UBound(InputFilePath)\r\n    com = com & "$reader" & i & " = New-Object iTextSharp.text.pdf.PdfReader('" & InputFilePath(i) & "');"\r\n  Next\r\n  com = com & "$fs = New-Object System.IO.FileStream('" & OutputFilePath & "', [System.IO.FileMode]::OpenOrCreate);"\r\n  com = com & "$copy = New-Object iTextSharp.text.pdf.PdfCopyFields($fs);"\r\n  For i = LBound(InputFilePath) To UBound(InputFilePath)\r\n    com = com & "$copy.AddDocument($reader" & i & ");"\r\n  Next\r\n  com = com & "$copy.Close();"\r\n  com = com & "$fs.Close();"\r\n  For i = LBound(InputFilePath) To UBound(InputFilePath)\r\n    com = com & "$reader" & i & ".Close();"\r\n  Next\r\n  VBA.Shell com, vbNormalNoFocus\r\nEnd Sub<\/pre>\n
\u30d0\u30c3\u30c1\u51e6\u7406\u3092\u884c\u3046\u306e\u3067\u3042\u308c\u3070PowerShell\u3067\u30b3\u30fc\u30c9\u3092\u66f8\u3051\u3070\u826f\u3044\u306e\u3067\u3001\u6562\u3048\u3066VBA\u3092\u4f7f\u3046\u5fc5\u8981\u306f\u7121\u3055\u305d\u3046\u3067\u3059\u304c\u3001\u65e2\u5b58\u306e\u30de\u30af\u30ed\u306bPDF\u30d5\u30a1\u30a4\u30eb\u306e\u7d50\u5408\u51e6\u7406\u3092\u7d44\u307f\u8fbc\u307f\u305f\u3044\u3068\u304d\u306b\u306f\u4f7f\u3048\u308b\u304b\u3082\u3057\u308c\u307e\u305b\u3093\u3002<\/p>\n
\u53c2\u8003Web\u30da\u30fc\u30b8<\/h4>\n