{"id":10764,"date":"2018-08-31T12:15:03","date_gmt":"2018-08-31T03:15:03","guid":{"rendered":"https:\/\/www.ka-net.org\/blog\/?p=10764"},"modified":"2018-08-31T14:51:57","modified_gmt":"2018-08-31T05:51:57","slug":"acrobat%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%8bvbscript","status":"publish","type":"post","link":"https:\/\/www.ka-net.org\/blog\/?p=10764","title":{"rendered":"Acrobat\u3092\u4f7f\u3063\u3066PDF\u30d5\u30a1\u30a4\u30eb\u3092\u7d50\u5408\u3059\u308bVBScript"},"content":{"rendered":"

\u300cAcrobat PDF \u7d50\u5408 \u30b3\u30de\u30f3\u30c9\u30e9\u30a4\u30f3<\/span>\u300d\u3068\u3044\u3063\u305f\u30ad\u30fc\u30ef\u30fc\u30c9\u691c\u7d22\u3067\u306e\u30a2\u30af\u30bb\u30b9\u304c\u3042\u308a\u307e\u3057\u305f\u3002
\nAcrobat\u306b\u3088\u308bPDF\u30d5\u30a1\u30a4\u30eb\u306e\u7d50\u5408\u51e6\u7406<\/a>\u3092\u30b3\u30de\u30f3\u30c9\u30e9\u30a4\u30f3\u304b\u3089\u5b9f\u884c\u3057\u305f\u3044\u65b9\u306b\u3088\u308b\u691c\u7d22\u3060\u3068\u601d\u3044\u307e\u3059\u3002<\/p>\n

Adobe\u30d5\u30a9\u30fc\u30e9\u30e0<\/a>\u306e\u4e0b\u8a18\u30b9\u30ec\u30c3\u30c9\u3092\u898b\u308b\u9650\u308a\u3001\u6b8b\u5ff5\u306a\u304c\u3089Acrobat\u306b\u306f\u305d\u3046\u3044\u3063\u305f\u6a5f\u80fd\u306f\u7528\u610f\u3055\u308c\u3066\u3044\u306a\u3044\u3088\u3046\u3067\u3059(Distiller\u306e\u65b9\u306f\u672a\u78ba\u8a8d\u3067\u3059)\u3002<\/p>\n

> Is there a way to combine pdf files from the command line on Windows by passing arguments in to an executable? I have Acrobat XI Pro.<\/p>\n

Not out of the box, no, Acrobat doesn’t support that functionality. You could, however, write a command line program that would call on Acrobat to do the work, however. You could also write a program inside of Acrobat to do this, either as a plugin or via JavaScript.<\/p><\/blockquote>\n

Combine PDF files programmatically(https:\/\/forums.adobe.com\/thread\/1524493<\/a>) \u3088\u308a<\/p>\n

\u305d\u3053\u3067\u3001\u6570\u5e74\u524d\u306b\u66f8\u3044\u305f\u4e0b\u8a18\u30de\u30af\u30ed\u3092\u624b\u76f4\u3057\u3057\u3066\u3001\u30c9\u30e9\u30c3\u30b0\uff06\u30c9\u30ed\u30c3\u30d7\u3057\u305f\u8907\u6570\u306ePDF\u30d5\u30a1\u30a4\u30eb\u3092\u7d50\u5408\u3059\u308bVBScript\u3092\u66f8\u3044\u3066\u307f\u307e\u3057\u305f\u3002<\/p>\n

Acrobat\u3092\u4f7f\u3063\u3066PDF\u30d5\u30a1\u30a4\u30eb\u3092\u7d50\u5408\u3059\u308bVBA\u30de\u30af\u30ed<\/a><\/div>
2015.07.22<\/span>
Acrobat\u3092\u4f7f\u3063\u3066PDF\u30d5\u30a1\u30a4\u30eb\u3092\u7d50\u5408\u3059\u308bVBA\u30de\u30af\u30ed <\/a><\/div>
\u524d\u56de\u306e\u8a18\u4e8b\u3067\u306f\u3001iTextSharp\u3092\u4f7f\u3063\u3066PDF\u30d5\u30a1\u30a4\u30eb\u3092\u7d50\u5408\u3059\u308bPowerShell\u30b3\u30fc\u30c9\u3092\u7d39\u4ecb\u3057\u307e\u3057\u305f\u304c\u3001\u4eca\u56de\u306fAcrobat\u3092\u4f7f\u3063\u3066PDF\u30d5\u30a1\u30a4\u30eb\u3092\u7d50\u5408\u3059\u308bVBA\u30de\u30af\u30ed\u3092\u7d39\u4ecb\u3057\u305f\u3044\u3068\u601d\u3044\u307e\u3059\u3002\r\n\r\n\r\n[vb]Option Explicit\r\n\r\nP...<\/div><\/div>
<\/div><\/div>\n
'**********************************************\r\n' Acrobat\u3092\u4f7f\u3063\u3066PDF\u30d5\u30a1\u30a4\u30eb\u3092\u7d50\u5408\u3059\u308bVBScript\r\n' @kinuasa\r\n'**********************************************\r\nOption Explicit\r\n\r\nDim args\r\nDim fso\r\nDim pdoc\r\nDim n, ts, fp\r\nDim cnt, i\r\nConst PDSaveFull = 1\r\nConst OutputFileName = "merged_" '\u7d50\u5408\u5f8c\u306e\u30d5\u30a1\u30a4\u30eb\u540d\r\n\r\nSet args = WScript.Arguments\r\nIf args.Count < 1 Then\r\n  MsgBox "\u5f53\u30b9\u30af\u30ea\u30d7\u30c8\u306bPDF\u30d5\u30a1\u30a4\u30eb\u3092\u30c9\u30e9\u30c3\u30b0\uff06\u30c9\u30ed\u30c3\u30d7\u3057\u3066\u51e6\u7406\u3092\u5b9f\u884c\u3057\u3066\u304f\u3060\u3055\u3044\u3002", vbExclamation + vbSystemModal\r\n  WScript.Quit\r\nEnd If\r\n\r\ncnt = 0\r\nSet fso = CreateObject("Scripting.FileSystemObject")\r\nFor i = 0 To args.Count - 1\r\n  Select Case LCase(fso.GetExtensionName(args(i)))\r\n    Case "pdf": cnt = cnt + 1\r\n  End Select\r\nNext\r\nIf cnt < 2 Then\r\n  MsgBox "2\u500b\u4ee5\u4e0a\u306ePDF\u30d5\u30a1\u30a4\u30eb\u3092\u9078\u629e\u3057\u3066\u304f\u3060\u3055\u3044\u3002", vbExclamation + vbSystemModal\r\n  WScript.Quit\r\nEnd If\r\n\r\n'\u51fa\u529b\u5148\u8a2d\u5b9a\r\nn = Now()\r\nts = Year(n) & Right("0" & Month(n), 2) & _\r\n     Right("0" & Day(n), 2) & Right("0" & Hour(n), 2) & _\r\n     Right("0" & Minute(n), 2) & Right("0" & Second(n), 2)\r\nfp = fso.BuildPath(fso.GetFile(args(0)).ParentFolder.Path, OutputFileName & ts & ".pdf")\r\n\r\nWith CreateObject("AcroExch.PDDoc")\r\n  If .Create = True Then\r\n    Set pdoc = CreateObject("AcroExch.PDDoc")\r\n    For i = 0 To args.Count - 1\r\n      Select Case LCase(fso.GetExtensionName(args(i)))\r\n        Case "pdf"\r\n          If pdoc.Open(args(i)) = True Then\r\n            .InsertPages .GetNumPages() - 1, pdoc, 0, pdoc.GetNumPages() - 1, True\r\n            pdoc.Close\r\n          End If\r\n      End Select\r\n    Next\r\n    Set pdoc = Nothing\r\n    .Save PDSaveFull, fp\r\n    .Close\r\n  End If\r\nEnd With\r\n\r\nMsgBox "\u7d50\u5408\u3057\u305fPDF\u30d5\u30a1\u30a4\u30eb\u3092\u3010" & fp & "\u3011\u306b\u4fdd\u5b58\u3057\u307e\u3057\u305f\u3002", vbInformation + vbSystemModal<\/pre>\n
\u4e0a\u8a18\u30b9\u30af\u30ea\u30d7\u30c8\u3092\u5b9f\u884c\u3059\u308b\u3068\u3001\u5143\u306e\u30d5\u30a1\u30a4\u30eb\u3068\u540c\u3058\u30d5\u30a9\u30eb\u30c0\u306b\u7d50\u5408\u3055\u308c\u305fPDF\u30d5\u30a1\u30a4\u30eb\u304c\u51fa\u529b\u3055\u308c\u307e\u3059\u3002<\/p>\n
\"\"<\/a><\/p>\n
\u30b3\u30fc\u30c9\u306e\u30e1\u30c3\u30bb\u30fc\u30b8\u8868\u793a\u90e8\u5206\u3092\u4fee\u6b63\u3059\u308c\u3070\u3001\u30b3\u30de\u30f3\u30c9\u30e9\u30a4\u30f3\u304b\u3089\u30d0\u30c3\u30c1\u51e6\u7406\u3068\u3057\u3066\u5b9f\u884c\u3059\u308b\u3053\u3068\u3082\u3067\u304d\u308b\u306e\u3067\u3001\u5927\u91cf\u306ePDF\u30d5\u30a1\u30a4\u30eb\u306e\u7d50\u5408\u51e6\u7406\u306b\u304a\u60a9\u307f\u306e\u65b9\u306f\u662f\u975e\u4e00\u5ea6\u304a\u8a66\u3057\u304f\u3060\u3055\u3044\u3002<\/p>\n
\n
\n