{"id":7891,"date":"2017-01-25T13:19:35","date_gmt":"2017-01-25T04:19:35","guid":{"rendered":"https:\/\/www.ka-net.org\/blog\/?p=7891"},"modified":"2017-01-25T13:19:35","modified_gmt":"2017-01-25T04:19:35","slug":"office%e3%82%a2%e3%83%97%e3%83%aa%e3%82%b1%e3%83%bc%e3%82%b7%e3%83%a7%e3%83%b3%e3%81%ae%e3%83%90%e3%83%bc%e3%82%b8%e3%83%a7%e3%83%b3%e6%83%85%e5%a0%b1%e3%83%80%e3%82%a4%e3%82%a2%e3%83%ad%e3%82%b0","status":"publish","type":"post","link":"https:\/\/www.ka-net.org\/blog\/?p=7891","title":{"rendered":"Office\u30a2\u30d7\u30ea\u30b1\u30fc\u30b7\u30e7\u30f3\u306e\u30d0\u30fc\u30b8\u30e7\u30f3\u60c5\u5831\u30c0\u30a4\u30a2\u30ed\u30b0\u304b\u3089\u60c5\u5831\u3092\u53d6\u5f97\u3059\u308bVBScript"},"content":{"rendered":"<p>\u81ea\u5206\u306e\u624b\u9593\u3092\u6e1b\u3089\u3059\u305f\u3081\u306e\u30b9\u30af\u30ea\u30d7\u30c8\u30b7\u30ea\u30fc\u30ba\u3001\u4eca\u56de\u306fWord\u3084Excel\u3068\u3044\u3063\u305f\u3001Office\u30a2\u30d7\u30ea\u30b1\u30fc\u30b7\u30e7\u30f3\u306e\u30d0\u30fc\u30b8\u30e7\u30f3\u60c5\u5831\u3092\u53d6\u5f97\u3059\u308b\u30b9\u30af\u30ea\u30d7\u30c8\u3067\u3059\u3002<\/p>\n<p>\u901a\u5e38\u3067\u3042\u308c\u3070\u3001\u5404Office\u30a2\u30d7\u30ea\u30b1\u30fc\u30b7\u30e7\u30f3\u306eApplication.Version\u30d7\u30ed\u30d1\u30c6\u30a3\u3067\u53d6\u5f97\u3067\u304d\u307e\u3059\u304c\u3001\u79c1\u304c\u6b32\u3057\u3044\u306e\u306f\u30d0\u30fc\u30b8\u30e7\u30f3\u60c5\u5831\u30c0\u30a4\u30a2\u30ed\u30b0\u306b\u8868\u793a\u3055\u308c\u308b\u300c<span style=\"color: #ff0000; font-weight: bold;\">Microsoft Word 2016 MSO (16.0.7668.7078) 32 \u30d3\u30c3\u30c8<\/span>\u300d\u306e\u3088\u3046\u306a\u9577\u3063\u305f\u3089\u3057\u3044\u30d0\u30fc\u30b8\u30e7\u30f3\u60c5\u5831\u3067\u3059\u3002<\/p>\n<p>\u3069\u3053\u304b\u306e\u30d7\u30ed\u30d1\u30c6\u30a3\u3084\u30ec\u30b8\u30b9\u30c8\u30ea\u306b\u60c5\u5831\u304c\u3042\u308b\u306e\u304b\u3082\u3057\u308c\u307e\u305b\u3093\u304c\u3001\u8abf\u3079\u308b\u306e\u304c\u9762\u5012\u3060\u3063\u305f\u306e\u3067\u3001UI Automation\u3092\u4f7f\u3063\u3066\u76f4\u63a5\u30c0\u30a4\u30a2\u30ed\u30b0\u304b\u3089\u6587\u5b57\u5217\u3092\u629c\u304d\u51fa\u3059\u3053\u3068\u306b\u3057\u307e\u3057\u305f\u3002<\/p>\n<pre class=\"brush: powershell; title: ; notranslate\" title=\"\">'UI Automation PowerShell Extensions\u3092\u4f7f\u3063\u3066Office\u30a2\u30d7\u30ea\u30b1\u30fc\u30b7\u30e7\u30f3\u306e\u30d0\u30fc\u30b8\u30e7\u30f3\u60c5\u5831\u30c0\u30a4\u30a2\u30ed\u30b0\u304b\u3089\u30d0\u30fc\u30b8\u30e7\u30f3\u60c5\u5831\u3092\u53d6\u5f97\u3059\u308bVBScript\r\n'\u53c2\u8003Web\u30da\u30fc\u30b8\uff1a\r\n'https:\/\/uiautomation.codeplex.com\/\r\n'https:\/\/www.ka-net.org\/blog\/?p=4946\r\nOption Explicit\r\n\r\nDim app\r\nDim cls\r\nDim com\r\nDim i\r\nConst DLL_Path = &quot;C:\\System\\UIAutomation\\UIAutomation.dll&quot; 'UIAutomation.dll\u306e\u30d1\u30b9\r\n\r\n'\u30a2\u30d7\u30ea\u30b1\u30fc\u30b7\u30e7\u30f3\u9078\u629e\r\ni = InputBox(&quot;\u30d0\u30fc\u30b8\u30e7\u30f3\u60c5\u5831\u3092\u53d6\u5f97\u3059\u308b\u30a2\u30d7\u30ea\u30b1\u30fc\u30b7\u30e7\u30f3\u3092\u9078\u629e\u3057\u3066\u304f\u3060\u3055\u3044\u3002&quot; &amp; vbNewLine &amp; vbNewLine &amp; _\r\n             &quot;1\u2026Excel&quot; &amp; vbNewLine &amp; _\r\n             &quot;2\u2026Word&quot; &amp; vbNewLine &amp; _\r\n             &quot;3\u2026PowerPoint&quot;, &quot;\u30a2\u30d7\u30ea\u30b1\u30fc\u30b7\u30e7\u30f3\u9078\u629e&quot;, 1)\r\nIf IsEmpty(i) = True Then Wscript.Quit\r\nIf IsNumeric(i) = False Then Wscript.Quit\r\n\r\nSelect Case i\r\n  Case 1\r\n    app = &quot;Excel&quot;\r\n    cls = &quot;XLMAIN&quot;\r\n  Case 2\r\n    app = &quot;Word&quot;\r\n    cls = &quot;OpusApp&quot;\r\n  Case 3\r\n    app = &quot;PowerPoint&quot;\r\n    cls = &quot;PPTFrameClass&quot;\r\n  Case Else\r\n    app = &quot;Excel&quot;\r\n    cls = &quot;XLMAIN&quot;\r\nEnd Select\r\n\r\ncom = &quot;powershell -Command &quot;&quot;&quot;\r\ncom = com &amp; &quot;Add-Type -Assembly System.Windows.Forms;&quot;\r\ncom = com &amp; &quot;ipmo '&quot; &amp; DLL_Path &amp; &quot;';&quot;\r\ncom = com &amp; &quot;&#x5B;UIAutomation.Preferences]::Highlight = $false;&quot;\r\ncom = com &amp; &quot;while($true){&quot;\r\ncom = com &amp; &quot;  Start-Sleep -s 1;&quot;\r\ncom = com &amp; &quot;  $app = Get-UiaWindow -Class '&quot; &amp; cls &amp; &quot;';&quot;\r\ncom = com &amp; &quot;  $dlg = $app | Get-UiaControlFirstChild;&quot;\r\ncom = com &amp; &quot;  $title = $dlg | Read-UiaControlName;&quot;\r\ncom = com &amp; &quot;  if($title.Contains('\u30d0\u30fc\u30b8\u30e7\u30f3\u60c5\u5831')){&quot;\r\ncom = com &amp; &quot;    break;&quot;\r\ncom = com &amp; &quot;  }&quot;\r\ncom = com &amp; &quot;}&quot;\r\ncom = com &amp; &quot;$text = $dlg | Get-UiaText -Name '*&quot; &amp; app &amp; &quot;*';&quot;\r\ncom = com &amp; &quot;$v = $text | Read-UiaControlName;&quot;\r\ncom = com &amp; &quot;&#x5B;Windows.Forms.Clipboard]::SetText($v);&quot;\r\ncom = com &amp; &quot;$dlg | Get-UiaButton -Name 'OK' | Invoke-UiaButtonClick;&quot;&quot;&quot;\r\n\r\nCreateObject(&quot;WScript.Shell&quot;).Run com, 0\r\n\r\nWith CreateObject(app &amp; &quot;.Application&quot;)\r\n  .Visible = True\r\n  .CommandBars.ExecuteMso &quot;About&quot;\r\n  WScript.Sleep 1000\r\n  .Quit\r\nEnd With<\/pre>\n<p>\u4e0a\u8a18\u30b3\u30fc\u30c9\u3092\u5b9f\u884c\u3059\u308b\u3068InputBox\u304c\u8868\u793a\u3055\u308c\u3001\u5165\u529b\u3057\u305f\u756a\u53f7\u306b\u5fdc\u3058\u3066\u3001Excel\u3001Word\u3001PowerPoint\u306e\u30d0\u30fc\u30b8\u30e7\u30f3\u60c5\u5831\u3092\u30af\u30ea\u30c3\u30d7\u30dc\u30fc\u30c9\u306b\u30b3\u30d4\u30fc\u3057\u307e\u3059\u3002<\/p>\n<p>\u4ed5\u7d44\u307f\u3068\u3057\u3066\u306f\u3001<a href=\"https:\/\/www.ka-net.org\/blog\/?p=4946\" title=\"UI Automation PowerShell Extensions\u3092\u8a66\u3057\u306b\u4f7f\u3063\u3066\u307f\u307e\u3057\u305f\u3002 | \u521d\u5fc3\u8005\u5099\u5fd8\u9332\" target=\"_blank\">\u3053\u306e\u8a18\u4e8b<\/a>\u3067\u7d39\u4ecb\u3057\u3066\u3044\u308b\u300c<a href=\"http:\/\/uiautomation.codeplex.com\/\" title=\"UI Automation PowerShell Extensions - Home\" target=\"_blank\">UI Automation PowerShell Extensions<\/a>\u300d\u3092\u4f7f\u3063\u3066\u3001\u30c0\u30a4\u30a2\u30ed\u30b0\u304b\u3089\u6587\u5b57\u5217\u3092\u53d6\u5f97\u3057\u3066\u3044\u307e\u3059\u3002<\/p>\n<p>\u82e5\u5e72\u5b89\u5b9a\u6027\u306b\u6b20\u3051\u308b\u306e\u304c\u96e3\u70b9\u3067\u3059\u304c\u3001\u624b\u4f5c\u696d\u3067\u884c\u3046\u3088\u308a\u306f\u65e9\u304f\u30d0\u30fc\u30b8\u30e7\u30f3\u60c5\u5831\u3092\u53d6\u5f97\u3067\u304d\u308b\u306e\u3067\u3001\u3068\u308a\u3042\u3048\u305a\u306f\u3053\u308c\u3067\u826f\u3057\u3068\u3057\u307e\u3059\u3002<\/p>\n<h4 class=\"style4a\">\u95a2\u9023\u8a18\u4e8b<\/h4>\n<div class=\"cardlink\"><a href=\"https:\/\/www.ka-net.org\/blog\/?p=7845\"><div class=\"cardlink_thumbnail\"><img src='https:\/\/www.ka-net.org\/blog\/wp-content\/uploads\/eyecatch-VBScript-120x120.png' alt='OS\u306e\u30d0\u30fc\u30b8\u30e7\u30f3\u60c5\u5831\u3092\u30af\u30ea\u30c3\u30d7\u30dc\u30fc\u30c9\u306b\u30b3\u30d4\u30fc\u3059\u308bVBScript' width=120 height=120 \/><\/a><\/div><div class=\"cardlink_content\"><span class=\"timestamp\">2017.01.16<\/span><div class=\"cardlink_title\"><a href=\"https:\/\/www.ka-net.org\/blog\/?p=7845\">OS\u306e\u30d0\u30fc\u30b8\u30e7\u30f3\u60c5\u5831\u3092\u30af\u30ea\u30c3\u30d7\u30dc\u30fc\u30c9\u306b\u30b3\u30d4\u30fc\u3059\u308bVBScript <\/a><\/div><div class=\"cardlink_excerpt\">OS\u306e\u30d0\u30fc\u30b8\u30e7\u30f3\u3084\u30d3\u30eb\u30c9\u756a\u53f7\u3092\u30d6\u30ed\u30b0\u306e\u8a18\u4e8b\u5185\u306b\u66f8\u304f\u3053\u3068\u304c\u3042\u308b\u306e\u3067\u3059\u304c\u3001\u3044\u3061\u3044\u3061\u30b7\u30b9\u30c6\u30e0\u60c5\u5831\u3092\u898b\u308b\u306e\u306f\u9762\u5012\u304f\u3055\u3044\u306e\u3067\u3001\u30d0\u30fc\u30b8\u30e7\u30f3\u60c5\u5831\u3092\u76f4\u63a5\u30af\u30ea\u30c3\u30d7\u30dc\u30fc\u30c9\u306b\u30b3\u30d4\u30fc\u3059\u308b\u30b9\u30af\u30ea\u30d7\u30c8\u3092\u66f8\u304d\u307e\u3057\u305f\u3002\r\n\r\n\r\n\r\n[vb]Option Explicit\r\n\r\n'OS\u306e\u30d0\u30fc...<\/div><\/div><div class=\"cardlink_footer\"><\/div><\/div>\n<div class=\"cardlink\"><a href=\"https:\/\/www.ka-net.org\/blog\/?p=7849\"><div class=\"cardlink_thumbnail\"><img src='https:\/\/www.ka-net.org\/blog\/wp-content\/uploads\/eyecatch-MicrosoftEdge-120x120.png' alt='Microsoft Edge\u306e\u30d0\u30fc\u30b8\u30e7\u30f3\u60c5\u5831\u3092\u30af\u30ea\u30c3\u30d7\u30dc\u30fc\u30c9\u306b\u30b3\u30d4\u30fc\u3059\u308bVBScript' width=120 height=120 \/><\/a><\/div><div class=\"cardlink_content\"><span class=\"timestamp\">2017.01.17<\/span><div class=\"cardlink_title\"><a href=\"https:\/\/www.ka-net.org\/blog\/?p=7849\">Microsoft Edge\u306e\u30d0\u30fc\u30b8\u30e7\u30f3\u60c5\u5831\u3092\u30af\u30ea\u30c3\u30d7\u30dc\u30fc\u30c9\u306b\u30b3\u30d4\u30fc\u3059\u308bVBScript <\/a><\/div><div class=\"cardlink_excerpt\">\u524d\u56de\u306e\u8a18\u4e8b\u306b\u5f15\u304d\u7d9a\u304d\u3001\u81ea\u5206\u306e\u624b\u9593\u3092\u6e1b\u3089\u3059\u305f\u3081\u306e\u30b9\u30af\u30ea\u30d7\u30c8\u3001\u4eca\u56de\u306fMicrosoft Edge\u306e\u30d0\u30fc\u30b8\u30e7\u30f3\u3092\u53d6\u5f97\u3059\u308bVBScript\u3067\u3059\u3002\r\n\r\n[vb]CreateObject(&quot;WScript.Shell&quot;).Run &quot;powe...<\/div><\/div><div class=\"cardlink_footer\"><\/div><\/div>\n<div id=\"single_banner_area2\" class=\"clearfix one_banner\">\n<div class=\"single_banner single_banner_left\">\n<script async src=\"https:\/\/pagead2.googlesyndication.com\/pagead\/js\/adsbygoogle.js\"><\/script>\r\n<!-- \u8a18\u4e8b\u4e2d(\u30c7\u30a3\u30b9\u30d7\u30ec\u30a4\u5e83\u544a\u30e6\u30cb\u30c3\u30c8) -->\r\n<ins class=\"adsbygoogle\"\r\n     style=\"display:block\"\r\n     data-ad-client=\"ca-pub-7306936664602087\"\r\n     data-ad-slot=\"5429724765\"\r\n     data-ad-format=\"auto\"\r\n     data-full-width-responsive=\"true\"><\/ins>\r\n<script>\r\n     (adsbygoogle = window.adsbygoogle || []).push({});\r\n<\/script>\n<\/div>\n<div class=\"single_banner single_banner_right\">\n<a href=\"\" target=\"_blank\"><img decoding=\"async\" src=\"\" alt=\"\" title=\"\" \/><\/a>\n<\/div>\n<\/div>\n\n","protected":false},"excerpt":{"rendered":"\u81ea\u5206\u306e\u624b\u9593\u3092\u6e1b\u3089\u3059\u305f\u3081\u306e\u30b9\u30af\u30ea\u30d7\u30c8\u30b7\u30ea\u30fc\u30ba\u3001\u4eca\u56de\u306fWord\u3084Excel\u3068\u3044\u3063\u305f\u3001Office\u30a2\u30d7\u30ea\u30b1\u30fc\u30b7\u30e7\u30f3\u306e\u30d0\u30fc\u30b8\u30e7\u30f3\u60c5\u5831\u3092\u53d6\u5f97\u3059\u308b\u30b9\u30af\u30ea\u30d7\u30c8\u3067\u3059\u3002 \u901a\u5e38\u3067\u3042\u308c\u3070\u3001\u5404Office\u30a2\u30d7\u30ea\u30b1\u30fc\u30b7\u30e7\u30f3\u306eApplication [&hellip;]","protected":false},"author":1,"featured_media":7132,"comment_status":"open","ping_status":"closed","sticky":false,"template":"","format":"standard","meta":{"_jetpack_memberships_contains_paid_content":false,"footnotes":"","jetpack_publicize_message":"UI Automation\u3067\u7121\u7406\u3084\u308a\u53d6\u5f97\u3057\u307e\u3059\u3002 [Office\u30a2\u30d7\u30ea\u30b1\u30fc\u30b7\u30e7\u30f3\u306e\u30d0\u30fc\u30b8\u30e7\u30f3\u60c5\u5831\u30c0\u30a4\u30a2\u30ed\u30b0\u304b\u3089\u60c5\u5831\u3092\u53d6\u5f97\u3059\u308bVBScript]","jetpack_publicize_feature_enabled":true,"jetpack_social_post_already_shared":true,"jetpack_social_options":{"image_generator_settings":{"template":"highway","default_image_id":0,"font":"","enabled":false},"version":2}},"categories":[4,6,94],"tags":[],"class_list":["post-7891","post","type-post","status-publish","format-standard","has-post-thumbnail","hentry","category-office","category-vbs","category-powershell"],"aioseo_notices":[],"jetpack_publicize_connections":[],"jetpack_featured_media_url":"https:\/\/www.ka-net.org\/blog\/wp-content\/uploads\/eyecatch-VBScript.png","jetpack_shortlink":"https:\/\/wp.me\/p4UZZr-23h","jetpack_sharing_enabled":true,"_links":{"self":[{"href":"https:\/\/www.ka-net.org\/blog\/index.php?rest_route=\/wp\/v2\/posts\/7891","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/www.ka-net.org\/blog\/index.php?rest_route=\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/www.ka-net.org\/blog\/index.php?rest_route=\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/www.ka-net.org\/blog\/index.php?rest_route=\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"https:\/\/www.ka-net.org\/blog\/index.php?rest_route=%2Fwp%2Fv2%2Fcomments&post=7891"}],"version-history":[{"count":2,"href":"https:\/\/www.ka-net.org\/blog\/index.php?rest_route=\/wp\/v2\/posts\/7891\/revisions"}],"predecessor-version":[{"id":7893,"href":"https:\/\/www.ka-net.org\/blog\/index.php?rest_route=\/wp\/v2\/posts\/7891\/revisions\/7893"}],"wp:featuredmedia":[{"embeddable":true,"href":"https:\/\/www.ka-net.org\/blog\/index.php?rest_route=\/wp\/v2\/media\/7132"}],"wp:attachment":[{"href":"https:\/\/www.ka-net.org\/blog\/index.php?rest_route=%2Fwp%2Fv2%2Fmedia&parent=7891"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/www.ka-net.org\/blog\/index.php?rest_route=%2Fwp%2Fv2%2Fcategories&post=7891"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/www.ka-net.org\/blog\/index.php?rest_route=%2Fwp%2Fv2%2Ftags&post=7891"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}