{"id":11981,"date":"2019-08-06T12:00:22","date_gmt":"2019-08-06T03:00:22","guid":{"rendered":"https:\/\/www.ka-net.org\/blog\/?p=11981"},"modified":"2019-08-06T14:26:21","modified_gmt":"2019-08-06T05:26:21","slug":"%e3%80%902019%e5%b9%b48%e6%9c%88%e7%89%88%e3%80%91adobe-reader%e3%82%92%e5%88%a9%e7%94%a8%e3%81%97%e3%81%a6pdf%e3%83%95%e3%82%a1%e3%82%a4%e3%83%ab%e3%81%ae%e3%83%9a%e3%83%bc%e3%82%b8%e6%95%b0%e3%82%92","status":"publish","type":"post","link":"https:\/\/www.ka-net.org\/blog\/?p=11981","title":{"rendered":"\u30102019\u5e748\u6708\u7248\u3011Adobe Reader\u3092\u5229\u7528\u3057\u3066PDF\u30d5\u30a1\u30a4\u30eb\u306e\u30da\u30fc\u30b8\u6570\u3092\u53d6\u5f97\u3059\u308bVBA\u30de\u30af\u30ed"},"content":{"rendered":"

7\u5e74\u307b\u3069\u524d\u306b\u3001Acrobat\u3092\u4f7f\u308f\u305a\u3001Adobe Reader\u3067\u8868\u793a\u3057\u305fPDF\u30d5\u30a1\u30a4\u30eb\u304b\u3089\u30da\u30fc\u30b8\u6570\u3092\u53d6\u5f97\u3059\u308b\u30de\u30af\u30ed\u306b\u3064\u3044\u3066\u8a18\u4e8b\u3092\u66f8\u304d\u307e\u3057\u305f\u3002<\/p>\n

Adobe Reader\u3092\u5229\u7528\u3057\u3066PDF\u30d5\u30a1\u30a4\u30eb\u306e\u30da\u30fc\u30b8\u6570\u3092\u53d6\u5f97\u3059\u308bVBA\u30de\u30af\u30ed<\/a><\/div>
2012.10.09<\/span>
Adobe Reader\u3092\u5229\u7528\u3057\u3066PDF\u30d5\u30a1\u30a4\u30eb\u306e\u30da\u30fc\u30b8\u6570\u3092\u53d6\u5f97\u3059\u308bVBA\u30de\u30af\u30ed <\/a><\/div>
moug\u306e\u56de\u7b54\u7528\u306b\u66f8\u3044\u305f\u30b3\u30fc\u30c9\u3067\u3059\u3002\r\nmoug\u306f\u534a\u5e74\u3067\u30ed\u30b0\u304c\u6d88\u3048\u3066\u3057\u307e\u3046\u306e\u3067\u3001\u5fd8\u308c\u306a\u3044\u3046\u3061\u306b\u30d6\u30ed\u30b0\u306e\u65b9\u306b\u3082\u30b3\u30fc\u30c9\u3092\u66f8\u3044\u3066\u304a\u304d\u307e\u3059\u3002\r\n\r\n\u30fbAdobe Acrobat\u306e\u306a\u3044\u74b0\u5883\u3067\u306ePDF\u30d5\u30a1\u30a4\u30eb\u306e\u30da\u30fc\u30b8\u6570\u53d6\u5f97\r\nhttp:\/\/www.moug.net\/faq...<\/div><\/div>
<\/div><\/div>\n

\u4e0a\u8a18\u8a18\u4e8b\u3067\u3082\u66f8\u3044\u3066\u3042\u308b\u901a\u308a\u3001\u30d0\u30fc\u30b8\u30e7\u30f3\u4f9d\u5b58\u3067\u4e0d\u5b89\u5b9a\u3001\u304b\u3064\u5197\u9577\u306a\u51e6\u7406\u306a\u306e\u3067\u3001\u6c7a\u3057\u3066\u304a\u85a6\u3081\u3067\u304d\u308b\u3082\u306e\u3067\u306f\u306a\u3044<\/span>\u306e\u3067\u3059\u304c\u3001\u5148\u65e5Adobe\u306e\u30d5\u30a9\u30fc\u30e9\u30e0<\/a>\u3067\u3001\u4e0a\u8a18\u30b3\u30fc\u30c9\u306b\u95a2\u308f\u308b\u30b9\u30ec\u30c3\u30c9\u3092\u898b\u3064\u3051\u307e\u3057\u305f\u3002<\/p>\n

\"\"<\/div>
forums.adobe.com<\/div><\/div>
\"\"<\/figure>
Maintenance<\/div>
https:\/\/forums.adobe.com\/thread\/2642806<\/div><\/div>
<\/div><\/div><\/a><\/div><\/div>\n

\u307e\u3055\u304b\u3053\u306e\u30b3\u30fc\u30c9\u3092\u4f7f\u7528\u3057\u3066\u3044\u308b\u65b9\u304c\u5c45\u3089\u308c\u308b\u3068\u306f\u30fb\u30fb\u30fb\u3002
\n\u8cea\u554f\u3068\u3057\u3066\u306f\u3001Adobe Reader\u306e\u30d0\u30fc\u30b8\u30e7\u30f3\u3092DC\u306b\u3057\u305f\u3068\u3053\u308d\u30de\u30af\u30ed\u304c\u52d5\u4f5c\u3057\u306a\u304f\u306a\u3063\u305f\u3068\u3044\u3046\u3082\u306e\u306a\u306e\u3067\u3059\u304c\u3001\u30d7\u30ed\u30d1\u30c6\u30a3\u30c0\u30a4\u30a2\u30ed\u30b0\u3092\u8868\u793a\u3059\u308b\u30e1\u30cb\u30e5\u30fcID\u3084\u30c0\u30a4\u30a2\u30ed\u30b0\u306e\u69cb\u9020\u306a\u3069\u304c\u5909\u66f4\u3055\u308c\u3066\u3044\u308b\u306e\u3067\u3001\u305d\u308c\u306f\u305d\u3046\u3060\u308d\u3046\u3068\u601d\u3044\u307e\u3059\u3002<\/p>\n

\u4eca\u56de\u306f\u3001\u5b9f\u7528\u7684\u3067\u306f\u306a\u3044\u3053\u3068\u3092\u627f\u77e5\u3067\u3001Acrobat Reader DC\u306b\u5bfe\u5fdc\u3057\u305f\u3001PDF\u30d5\u30a1\u30a4\u30eb\u306e\u30da\u30fc\u30b8\u6570\u3092\u53d6\u5f97\u3059\u308b\u30de\u30af\u30ed\u3092\u66f8\u3044\u3066\u307f\u307e\u3057\u305f\u3002<\/p>\n

'\u203b64\u30d3\u30c3\u30c8\u7248Office\u3067\u5b9f\u884c\u3059\u308b\u5834\u5408\u306f\u8981\u30b3\u30fc\u30c9\u5909\u66f4\r\n'UIAutomationClient(UIAutomationCore.dll)\u8981\u53c2\u7167\r\nOption Explicit\r\n\r\nPrivate Declare Function PostMessage Lib "user32" Alias "PostMessageA" (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long\r\nPrivate Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)\r\nPrivate Const WM_COMMAND As Long = &H111\r\n\r\nPublic Sub Sample()\r\n  Dim num As Long\r\n  Const PDFPath As String = "C:\\Test\\T e s t.pdf"\r\n  \r\n  num = GetPDFNumPagesUsingAdobeReader(PDFPath)\r\n  MsgBox "[" & PDFPath & "]\u30d5\u30a1\u30a4\u30eb\u306e\u30da\u30fc\u30b8\u6570\uff1a" & num, vbInformation + vbSystemModal\r\nEnd Sub\r\n\r\nPrivate Function GetPDFNumPagesUsingAdobeReader(ByVal PDFPath As String) As Long\r\n'Adobe Reader\u306e[\u6587\u66f8\u306e\u30d7\u30ed\u30d1\u30c6\u30a3]\u30c0\u30a4\u30a2\u30ed\u30b0\u304b\u3089PDF\u306e\u30da\u30fc\u30b8\u6570\u3092\u53d6\u5f97\r\n  Dim uiAuto As CUIAutomation\r\n  Dim elmApp As IUIAutomationElement\r\n  Dim elmRoot As IUIAutomationElement\r\n  Dim elmDialog As IUIAutomationElement\r\n  Dim elmTabItem As IUIAutomationElement\r\n  Dim elmTextPageNumCaption As IUIAutomationElement\r\n  Dim elmTextPageNum As IUIAutomationElement\r\n  Dim elmButtonCancel As IUIAutomationElement\r\n  Dim elmButtonClose As IUIAutomationElement\r\n  Dim ptnSel As IUIAutomationSelectionItemPattern\r\n  Dim ptnInvoke As IUIAutomationInvokePattern\r\n  Dim hApp As Long\r\n  Dim readerPath As String\r\n  Dim ret As Long\r\n  \r\n  'Adobe Reader\u3067\u6307\u5b9a\u3057\u305fPDF\u30d5\u30a1\u30a4\u30eb\u3092\u8868\u793a\r\n  readerPath = GetAdobeReaderPath\r\n  If Len(Trim(GetAdobeReaderPath)) < 1 Then GoTo Fin\r\n  Shell """" & readerPath & """" & " " & """" & PDFPath & """", vbNormalFocus\r\n  \r\n  'Adobe Reader\u53d6\u5f97\r\n  '\u203bPDF\u8868\u793a\u307e\u3067\u591a\u5c11\u6642\u9593\u304c\u639b\u304b\u308b\u5834\u5408\u6709\u308a\r\n  Set uiAuto = New CUIAutomation\r\n  Set elmRoot = uiAuto.GetRootElement\r\n  Do\r\n    Set elmApp = GetElement(uiAuto, _\r\n                            elmRoot, _\r\n                            UIA_ClassNamePropertyId, _\r\n                            "AcrobatSDIWindow", _\r\n                            UIA_WindowControlTypeId)\r\n    Sleep 200\r\n    DoEvents\r\n  Loop While elmApp Is Nothing\r\n  \r\n  '[\u6587\u66f8\u306e\u30d7\u30ed\u30d1\u30c6\u30a3]\u30c0\u30a4\u30a2\u30ed\u30b0\u53d6\u5f97\r\n  hApp = elmApp.GetCurrentPropertyValue(UIA_NativeWindowHandlePropertyId)\r\n  PostMessage hApp, WM_COMMAND, &H1794, 0 '\u6587\u66f8\u306e\u30d7\u30ed\u30d1\u30c6\u30a3\u8868\u793a\r\n  Do\r\n    Set elmDialog = GetElement(uiAuto, _\r\n                               elmApp, _\r\n                               UIA_NamePropertyId, _\r\n                               "\u6587\u66f8\u306e\u30d7\u30ed\u30d1\u30c6\u30a3", _\r\n                               UIA_WindowControlTypeId)\r\n    Sleep 200\r\n    DoEvents\r\n  Loop While elmDialog Is Nothing\r\n  \r\n  '[\u6982\u8981]\u30bf\u30d6\u9078\u629e\r\n  Set elmTabItem = GetElement(uiAuto, _\r\n                              elmDialog, _\r\n                              UIA_NamePropertyId, _\r\n                              "\u6982\u8981", _\r\n                              UIA_TabItemControlTypeId)\r\n  If elmTabItem Is Nothing Then GoTo Fin\r\n  Set ptnSel = elmTabItem.GetCurrentPattern(UIA_SelectionItemPatternId)\r\n  ptnSel.Select\r\n  \r\n  '[\u30da\u30fc\u30b8\u6570]\u53d6\u5f97\r\n  Set elmTextPageNumCaption = GetElement(uiAuto, _\r\n                                         elmDialog, _\r\n                                         UIA_NamePropertyId, _\r\n                                         "\u30da\u30fc\u30b8\u6570 :", _\r\n                                         UIA_TextControlTypeId)\r\n  If elmTextPageNumCaption Is Nothing Then GoTo Fin\r\n  Set elmTextPageNum = uiAuto.RawViewWalker.GetNextSiblingElement(elmTextPageNumCaption)\r\n  If elmTextPageNum Is Nothing Then GoTo Fin\r\n  ret = CLng(elmTextPageNum.CurrentName)\r\n  \r\n  '\u30c0\u30a4\u30a2\u30ed\u30b0\u3092\u9589\u3058\u3066\u30a2\u30d7\u30ea\u30b1\u30fc\u30b7\u30e7\u30f3\u7d42\u4e86\r\n  Set elmButtonCancel = GetElement(uiAuto, _\r\n                                   elmDialog, _\r\n                                   UIA_NamePropertyId, _\r\n                                   "\u30ad\u30e3\u30f3\u30bb\u30eb", _\r\n                                   UIA_ButtonControlTypeId)\r\n  If elmButtonCancel Is Nothing Then GoTo Fin\r\n  Set ptnInvoke = elmButtonCancel.GetCurrentPattern(UIA_InvokePatternId)\r\n  ptnInvoke.Invoke\r\n  Set elmButtonClose = GetElement(uiAuto, _\r\n                                  elmApp, _\r\n                                  UIA_NamePropertyId, _\r\n                                  "\u9589\u3058\u308b", _\r\n                                  UIA_ButtonControlTypeId)\r\n  If elmButtonClose Is Nothing Then GoTo Fin\r\n  Set ptnInvoke = elmButtonClose.GetCurrentPattern(UIA_InvokePatternId)\r\n  ptnInvoke.Invoke\r\n  \r\nFin:\r\n  GetPDFNumPagesUsingAdobeReader = ret\r\nEnd Function\r\n\r\nPrivate Function GetAdobeReaderPath()\r\n'Adobe Reader(AcroRd32.exe)\u306e\u30d1\u30b9\u3092\u53d6\u5f97\r\n  Dim folderPath As String\r\n  Dim filePath As String\r\n  Dim itm As Object\r\n  Const ExeName As String = "AcroRd32.exe"\r\n   \r\n  '[\u30d7\u30ed\u30b0\u30e9\u30e0\u3068\u6a5f\u80fd]\u304b\u3089Adobe Reader\u306e\u30a4\u30f3\u30b9\u30c8\u30fc\u30eb\u5148\u30d5\u30a9\u30eb\u30c0\u3092\u53d6\u5f97\r\n  With CreateObject("Shell.Application").Namespace("shell:::{7b81be6a-ce2b-4676-a29e-eb907a5126c5}")\r\n    For Each itm In .Items\r\n      If InStr(LCase(itm.Name), "adobe") And InStr(LCase(itm.Name), "reader") Then\r\n        '[Extended Asian Language font pack]\u306f\u9664\u5916\r\n        If InStr(LCase(itm.Name), "extended") < 1 Then\r\n          folderPath = .GetDetailsOf(itm, 10)\r\n          Exit For\r\n        End If\r\n      End If\r\n    Next\r\n  End With\r\n  \r\n  'Adobe Reader\u306e\u30d1\u30b9\u3092\u53d6\u5f97\r\n  With CreateObject("Scripting.FileSystemObject")\r\n    filePath = .BuildPath(folderPath, "Reader")\r\n    filePath = .BuildPath(filePath, ExeName)\r\n    If .FileExists(filePath) = True Then GetAdobeReaderPath = filePath\r\n  End With\r\nEnd Function\r\n\r\nPrivate Function GetElement(ByVal uiAuto As CUIAutomation, _\r\n                            ByVal elmParent As IUIAutomationElement, _\r\n                            ByVal propertyId As Long, _\r\n                            ByVal propertyValue As Variant, _\r\n                            Optional ByVal ctrlType As Long = 0) As IUIAutomationElement\r\n  Dim cndFirst As IUIAutomationCondition\r\n  Dim cndSecond As IUIAutomationCondition\r\n      \r\n  Set cndFirst = uiAuto.CreatePropertyCondition( _\r\n                   propertyId, _\r\n                   propertyValue _\r\n                 )\r\n  If ctrlType <> 0 Then\r\n    Set cndSecond = uiAuto.CreatePropertyCondition( _\r\n                      UIA_ControlTypePropertyId, _\r\n                      ctrlType _\r\n                    )\r\n    Set cndFirst = uiAuto.CreateAndCondition( _\r\n                     cndFirst, _\r\n                     cndSecond _\r\n                   )\r\n  End If\r\n  Set GetElement = elmParent.FindFirst(TreeScope_Subtree, cndFirst)\r\nEnd Function<\/pre>\n
\u51e6\u7406\u306e\u6d41\u308c\u306f\u4e0b\u8a18\u306e\u901a\u308a\u3067\u3001UI Automation<\/a>\u3092\u4f7f\u3063\u3066\u3001\u30a2\u30d7\u30ea\u30b1\u30fc\u30b7\u30e7\u30f3\u3084\u30c0\u30a4\u30a2\u30ed\u30b0\u306e\u64cd\u4f5c\u3092\u884c\u3063\u3066\u3044\u307e\u3059\u3002<\/p>\n
    \n
  1. \u300c\u30d7\u30ed\u30b0\u30e9\u30e0\u3068\u6a5f\u80fd\u300d\u304b\u3089Adobe Reader\u306e\u30d1\u30b9\u3092\u53d6\u5f97\u3059\u308b\u3002<\/li>\n
  2. Adobe Reader\u3067PDF\u30d5\u30a1\u30a4\u30eb\u3092\u958b\u304f\u3002<\/li>\n
  3. \u6587\u66f8\u306e\u30d7\u30ed\u30d1\u30c6\u30a3\u30c0\u30a4\u30a2\u30ed\u30b0\u3092\u8868\u793a\u3059\u308b\u3002<\/li>\n
  4. \u6587\u66f8\u306e\u30d7\u30ed\u30d1\u30c6\u30a3\u30c0\u30a4\u30a2\u30ed\u30b0\u304b\u3089\u30da\u30fc\u30b8\u6570\u3092\u53d6\u5f97\u3059\u308b\u3002<\/li>\n
  5. \u6587\u66f8\u306e\u30d7\u30ed\u30d1\u30c6\u30a3\u30c0\u30a4\u30a2\u30ed\u30b0\u3092\u9589\u3058\u308b\u3002<\/li>\n
  6. Adobe Reader\u3092\u7d42\u4e86\u3059\u308b\u3002<\/li>\n<\/ol>\n
    \"\"<\/a><\/p>\n
    \n
    \n