{"id":13440,"date":"2021-01-06T12:00:04","date_gmt":"2021-01-06T03:00:04","guid":{"rendered":"https:\/\/www.ka-net.org\/blog\/?p=13440"},"modified":"2021-01-06T13:16:44","modified_gmt":"2021-01-06T04:16:44","slug":"pdf%e3%81%ae%e3%81%97%e3%81%8a%e3%82%8a%e6%83%85%e5%a0%b1%e3%82%92%e5%87%ba%e5%8a%9b%e3%81%99%e3%82%8bvba%e3%83%9e%e3%82%af%e3%83%ad","status":"publish","type":"post","link":"https:\/\/www.ka-net.org\/blog\/?p=13440","title":{"rendered":"PDF\u306e\u3057\u304a\u308a\u60c5\u5831\u3092\u51fa\u529b\u3059\u308bVBA\u30de\u30af\u30ed"},"content":{"rendered":"

Acrobat\u30d5\u30a9\u30fc\u30e9\u30e0<\/a>\u306e\u4e0b\u8a18\u30b9\u30ec\u30c3\u30c9\u3067\u5f53\u30d6\u30ed\u30b0\u3078\u306e\u30ea\u30f3\u30af\u304c\u8cbc\u3089\u308c\u3066\u3044\u308b\u3053\u3068\u306b\u6c17\u304c\u4ed8\u304d\u307e\u3057\u305f\u3002<\/p>\n

\"\"<\/div>
community.adobe.com<\/div><\/div>
\"\"<\/figure>
An Unexpected Error has occurred. - Adobe Support Community<\/div>
https:\/\/community.adobe.com\/t5\/acrobat\u30d5\u30a9\u30fc\u30e9\u30e0\/vba\u3067pdf\u306e\u3057\u304a\u308a\u3068\u30b8\u30e3\u30f3\u30d7\u5148\u3092\u8907\u6570\u968e\u5c64\u306e\u5168\u3066\u53d6\u5f97\u3057\u305f\u3044\u3067\u3059\/td-p\/11715925<\/strike><\/div>
Come for help, be inspired. The Adobe Support Community is the place to ask questions, find answers, learn from experts and share your knowledge. We have everything to<\/div><\/div>
<\/div><\/div><\/div><\/div><\/div>\n

VBA\u3067PDF\u306e\u8907\u6570\u968e\u5c64\u306e\u3057\u304a\u308a\u60c5\u5831\u3092\u53d6\u5f97\u3057\u305f\u3044\u3068\u306e\u3053\u3068\u3067\u3001\u4e0b\u8a18\u8a18\u4e8b\u3092\u53c2\u8003\u306b\u3055\u308c\u305f\u3088\u3046\u3067\u3059\u3002<\/p>\n

PDF\u306e\u3057\u304a\u308a\u6570\u3092\u53d6\u5f97\u3059\u308bVBA\u30de\u30af\u30ed<\/a><\/div>
2016.08.31<\/span>
PDF\u306e\u3057\u304a\u308a\u6570\u3092\u53d6\u5f97\u3059\u308bVBA\u30de\u30af\u30ed <\/a><\/div>
\u300cVBA Acrobat \u3057\u304a\u308a\u6570\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\r\nVBA\u304b\u3089PDF\u30d5\u30a1\u30a4\u30eb\u306b\u542b\u307e\u308c\u308b\u3057\u304a\u308a\u306e\u6570\u3092\u53d6\u5f97\u3059\u308b\u65b9\u6cd5\u3092\u63a2\u3057\u3066\u3044\u308b\u65b9\u3060\u308d\u3046\u3068\u601d\u3044\u307e\u3059\u3002\r\n\r\n\r\nAcrobat JavaScript\u3067\u3057\u304a\u308a\u306e\u60c5\u5831\u3092\u53d6\u5f97\u3059\u308b\u5834\u5408\u3001Do...<\/div><\/div>
<\/div><\/div>\n

\u4e0a\u8a18\u8a18\u4e8b\u306e\u30b3\u30fc\u30c9\u306f\u4e00\u756a\u4e0a\u306e\u968e\u5c64\u306e\u3057\u304a\u308a\u3057\u304b\u60f3\u5b9a\u3057\u3066\u304a\u3089\u305a\u3001\u4e0b\u4f4d\u306e\u3057\u304a\u308a\u306e\u60c5\u5831\u306f\u53d6\u5f97\u3067\u304d\u307e\u305b\u3093\u306e\u3067\u3001\u30b3\u30fc\u30c9\u3092\u4e00\u90e8\u4fee\u6b63\u3059\u308b\u5fc5\u8981\u304c\u6709\u308a\u307e\u3059\u3002<\/p>\n

Acrobat\u306e\u64cd\u4f5c\u3092\u884c\u3046\u969b\u3001\u6700\u3082\u53c2\u8003\u306b\u306a\u308b\u306e\u306f\u516c\u5f0f\u306e\u30ea\u30d5\u30a1\u30ec\u30f3\u30b9<\/a>\u3067\u3059\u304c\u3001Bookmark\u30aa\u30d6\u30b8\u30a7\u30af\u30c8<\/a>\u306e\u30da\u30fc\u30b8\u3092\u898b\u3066\u307f\u308b\u3068\u3001\u4e0b\u8a18\u306e\u30b5\u30f3\u30d7\u30eb\u30b3\u30fc\u30c9\u304c\u8f09\u3063\u3066\u3044\u307e\u3057\u305f\u3002<\/p>\n

function DumpBookmark(bkm, nLevel)\r\n{\r\n    var s = "";\r\n    for (var i = 0; i < nLevel; i++) s += " ";\r\n    console.println(s + "+-" + bkm.name);\r\n    if (bkm.children != null)\r\n        for (var i = 0; i < bkm.children.length; i++)\r\n            DumpBookmark(bkm.children[i], nLevel + 1);\r\n}\r\nconsole.clear();\r\nconsole.show();\r\nconsole.println("Dumping all bookmarks in the document.");\r\nDumpBookmark(this.bookmarkRoot, 0);<\/pre>\n
\u306a\u308b\u307b\u3069\u3002
\n\u518d\u5e30\u3067\u5217\u6319\u3057\u3066\u3044\u3051\u3070\u826f\u3044\u308f\u3051\u3067\u3059\u306d\uff01<\/p>\n
\u4e0a\u8a18\u30b5\u30f3\u30d7\u30eb\u3092\u53c2\u8003\u306b\u4fee\u6b63\u3057\u305f\u30b3\u30fc\u30c9\u304c\u4e0b\u8a18\u306b\u306a\u308a\u307e\u3059\u3002
\n(\u76f8\u5909\u308f\u3089\u305aAcrobat\u306e\u30d7\u30ed\u30bb\u30b9\u304c\u6b8b\u308a\u7d9a\u3051\u3066\u3057\u307e\u3046\u554f\u984c\u304c\u767a\u751f\u3057\u3066\u3057\u307e\u3046\u3088\u3046\u3060\u3063\u305f\u306e\u3067\u3001\u5f37\u5236\u7d42\u4e86\u3059\u308b\u51e6\u7406\u3092\u5165\u308c\u3066\u3042\u308a\u307e\u3059\u3002)<\/p>\n
Option Explicit\r\n\r\nPublic Sub Sample()\r\n  Dim app As Object 'AcroApp\r\n  Dim avdoc As Object 'AcroAVDoc\r\n  Dim avpv As Object 'AcroAVPageView\r\n  Dim jso As Object\r\n  Dim bkm As Object\r\n  Const PdfFilePath = "C:\\Test\\\u30c6\u30b9\u30c8\u7528\u6587\u66f8(\u898b\u51fa\u3057).pdf"\r\n   \r\n  Set app = CreateObject("AcroExch.App")\r\n  Set avdoc = CreateObject("AcroExch.AVDoc")\r\n  If avdoc.Open(PdfFilePath, "") = True Then\r\n    app.Show '\u30a2\u30d7\u30ea\u30b1\u30fc\u30b7\u30e7\u30f3\u8868\u793a\r\n    Set avpv = avdoc.GetAVPageView\r\n    Set jso = avdoc.GetPDDoc.GetJSObject\r\n    Set bkm = CallByName(jso, "bookmarkRoot", VbGet)\r\n    DumpBookmark bkm, avpv\r\n    avdoc.Close 1\r\n    app.Hide: app.Exit\r\n  End If\r\n  TerminateAcrobat '\u30d7\u30ed\u30bb\u30b9\u304c\u6b8b\u3063\u305f\u5834\u5408\u5f37\u5236\u7d42\u4e86\r\nEnd Sub\r\n\r\nPrivate Sub DumpBookmark(ByVal bkm As Object, ByVal avpv As Object)\r\n'\u3057\u304a\u308a\u306e\u60c5\u5831\u3092\u51fa\u529b\r\n  Dim cld As Variant, cld2 As Variant\r\n  \r\n  On Error Resume Next\r\n  cld = CallByName(bkm, "children", VbGet)\r\n  On Error GoTo 0\r\n  If IsEmpty(cld) = False Then\r\n    For Each cld2 In cld\r\n      CallByName cld2, "execute", VbMethod '\u3057\u304a\u308a\u9078\u629e\r\n      Debug.Print "\u540d\u524d\uff1a" & CallByName(cld2, "name", VbGet) & vbTab & "\u30da\u30fc\u30b8\uff1a" & avpv.GetPageNum + 1\r\n      DumpBookmark cld2, avpv\r\n    Next\r\n  End If\r\nEnd Sub\r\n\r\nPrivate Sub TerminateAcrobat()\r\n'Acrobat\u306e\u30d7\u30ed\u30bb\u30b9\u5f37\u5236\u7d42\u4e86\r\n  Dim items As Object\r\n  Dim item As Object\r\n   \r\n  Set items = CreateObject("WbemScripting.SWbemLocator") _\r\n            .ConnectServer.ExecQuery("Select * From Win32_Process Where Name = 'Acrobat.exe'")\r\n  If items.Count > 0 Then\r\n    For Each item In items\r\n      item.Terminate\r\n    Next\r\n  End If\r\nEnd Sub<\/pre>\n
\"\"<\/a><\/p>\n
\u7c21\u5358\u306a\u4fee\u6b63\u3067\u3059\u304c\u3001\u4e00\u5148\u305a\u3053\u308c\u3067PDF\u306e\u8907\u6570\u968e\u5c64\u306e\u3057\u304a\u308a\u60c5\u5831\u3092\u53d6\u5f97\u3067\u304d\u308b\u3088\u3046\u306b\u306a\u308a\u307e\u3057\u305f\u3002<\/p>\n
\n
\n