{"id":3998,"date":"2014-02-06T13:59:53","date_gmt":"2014-02-06T04:59:53","guid":{"rendered":"http:\/\/www.ka-net.org\/blog\/?p=3998"},"modified":"2014-02-06T13:59:53","modified_gmt":"2014-02-06T04:59:53","slug":"%e3%83%97%e3%83%ad%e3%83%80%e3%82%af%e3%83%88id%e3%82%92%e5%8f%96%e5%be%97%e3%81%99%e3%82%8bword%e3%83%9e%e3%82%af%e3%83%ad","status":"publish","type":"post","link":"https:\/\/www.ka-net.org\/blog\/?p=3998","title":{"rendered":"\u30d7\u30ed\u30c0\u30af\u30c8ID\u3092\u53d6\u5f97\u3059\u308bWord\u30de\u30af\u30ed"},"content":{"rendered":"<p>\u4e0b\u8a18\u8cea\u554f\u7528\u306b\u66f8\u3044\u305f\u30b3\u30fc\u30c9\u3067\u3059\u3002<br \/>\n\u300c<a href=\"http:\/\/dynabook.com\/assistpc\/faq\/pcdata\/010961.htm\" title=\"\u300cMicrosoft(R)Office 2010\u300d\u30d7\u30ed\u30c0\u30af\u30c8ID\u306e\u78ba\u8a8d\u65b9\u6cd5\" target=\"_blank\">\u30d0\u30fc\u30b8\u30e7\u30f3\u60c5\u5831<\/a>\u300d\u3067\u8868\u793a\u3055\u308c\u308b\u30d7\u30ed\u30c0\u30af\u30c8ID\u3092\u8abf\u3079\u308b\u6a5f\u4f1a\u3082\u306a\u304b\u306a\u304b\u7121\u3044\u3068\u601d\u3044\u307e\u3059\u304c\u3001\u4e00\u5fdc\u30e1\u30e2\u3068\u3057\u3066\u6b8b\u3057\u3066\u304a\u304d\u307e\u3059\u3002<\/p>\n<p><strong>\u30fbOffice2010\u304a\u3088\u30732013\u306e\u30d7\u30ed\u30c0\u30af\u30c8ID\u306e\u53d6\u5f97<\/strong><br \/>\n<a href=\"http:\/\/social.msdn.microsoft.com\/Forums\/ja-JP\/vbajp\/thread\/380e9f38-f408-4d7e-8c91-2b9cadbe0ff9\" title=\"Office2010\u304a\u3088\u30732013\u306e\u30d7\u30ed\u30c0\u30af\u30c8ID\u306e\u53d6\u5f97\" target=\"_blank\">http:\/\/social.msdn.microsoft.com\/Forums\/ja-JP\/vbajp\/thread\/380e9f38-f408-4d7e-8c91-2b9cadbe0ff9<\/a><\/p>\n<p>Word\u3067\u306f\u3001\u4e0b\u8a18\u30b3\u30fc\u30c9\u306e\u3088\u3046\u306bDialog\u30aa\u30d6\u30b8\u30a7\u30af\u30c8(<strong>wdDialogHelpAbout<\/strong>)\u304b\u3089\u8a2d\u5b9a\u5024(<strong>APPSERIALNUMBER<\/strong>)\u3092\u53d6\u5f97\u3059\u308b\u3053\u3068\u3067\u3001\u30a4\u30f3\u30b9\u30c8\u30fc\u30eb\u3055\u308c\u3066\u3044\u308bOffice\u88fd\u54c1\u306e\u30d7\u30ed\u30c0\u30af\u30c8ID\u3092\u8abf\u3079\u308b\u3053\u3068\u304c\u3067\u304d\u307e\u3059\u3002<\/p>\n<pre class=\"brush: vb; title: ; notranslate\" title=\"\">Option Explicit\r\n\r\nPublic Sub Sample()\r\n  MsgBox Application.Dialogs(wdDialogHelpAbout).APPSERIALNUMBER\r\nEnd Sub<\/pre>\n<p>\u3053\u306e\u30b3\u30fc\u30c9\u3092Excel\u3084\u4ed6\u306e\u30a2\u30d7\u30ea\u30b1\u30fc\u30b7\u30e7\u30f3\u304b\u3089\u52d5\u304b\u3059\u5834\u5408\u306f\u4e0b\u8a18\u306e\u3088\u3046\u306b\u306a\u308a\u307e\u3059\u3002<\/p>\n<pre class=\"brush: vb; title: ; notranslate\" title=\"\">Option Explicit\r\n\r\nPublic Sub Sample()\r\n  MsgBox &quot;Office\u306e\u30d7\u30ed\u30c0\u30af\u30c8ID\uff1a&quot; &amp; GetOfficeProductID, vbInformation + vbSystemModal\r\nEnd Sub\r\n\r\nPrivate Function GetOfficeProductID() As String\r\n  Dim ret As String\r\n  Const wdDialogHelpAbout = 9\r\n  Const wdDoNotSaveChanges = 0\r\n  \r\n  With CreateObject(&quot;Word.Application&quot;)\r\n    ret = .Dialogs(wdDialogHelpAbout).APPSERIALNUMBER\r\n    .Quit wdDoNotSaveChanges\r\n  End With\r\n  GetOfficeProductID = ret\r\nEnd Function<\/pre>\n","protected":false},"excerpt":{"rendered":"\u4e0b\u8a18\u8cea\u554f\u7528\u306b\u66f8\u3044\u305f\u30b3\u30fc\u30c9\u3067\u3059\u3002 \u300c\u30d0\u30fc\u30b8\u30e7\u30f3\u60c5\u5831\u300d\u3067\u8868\u793a\u3055\u308c\u308b\u30d7\u30ed\u30c0\u30af\u30c8ID\u3092\u8abf\u3079\u308b\u6a5f\u4f1a\u3082\u306a\u304b\u306a\u304b\u7121\u3044\u3068\u601d\u3044\u307e\u3059\u304c\u3001\u4e00\u5fdc\u30e1\u30e2\u3068\u3057\u3066\u6b8b\u3057\u3066\u304a\u304d\u307e\u3059\u3002 \u30fbOffice2010\u304a\u3088\u30732013\u306e\u30d7\u30ed\u30c0\u30af\u30c8ID\u306e\u53d6\u5f97 http:\/ [&hellip;]","protected":false},"author":1,"featured_media":7111,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"_jetpack_memberships_contains_paid_content":false,"footnotes":"","jetpack_publicize_message":"","jetpack_publicize_feature_enabled":true,"jetpack_social_post_already_shared":false,"jetpack_social_options":{"image_generator_settings":{"template":"highway","default_image_id":0,"font":"","enabled":false},"version":2}},"categories":[4,48,49],"tags":[],"class_list":["post-3998","post","type-post","status-publish","format-standard","has-post-thumbnail","hentry","category-office","category-excel-office","category-word-office"],"aioseo_notices":[],"jetpack_publicize_connections":[],"jetpack_featured_media_url":"https:\/\/www.ka-net.org\/blog\/wp-content\/uploads\/eyecatch-Excel.png","jetpack_shortlink":"https:\/\/wp.me\/p4UZZr-12u","jetpack_sharing_enabled":true,"_links":{"self":[{"href":"https:\/\/www.ka-net.org\/blog\/index.php?rest_route=\/wp\/v2\/posts\/3998","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=3998"}],"version-history":[{"count":1,"href":"https:\/\/www.ka-net.org\/blog\/index.php?rest_route=\/wp\/v2\/posts\/3998\/revisions"}],"predecessor-version":[{"id":3999,"href":"https:\/\/www.ka-net.org\/blog\/index.php?rest_route=\/wp\/v2\/posts\/3998\/revisions\/3999"}],"wp:featuredmedia":[{"embeddable":true,"href":"https:\/\/www.ka-net.org\/blog\/index.php?rest_route=\/wp\/v2\/media\/7111"}],"wp:attachment":[{"href":"https:\/\/www.ka-net.org\/blog\/index.php?rest_route=%2Fwp%2Fv2%2Fmedia&parent=3998"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/www.ka-net.org\/blog\/index.php?rest_route=%2Fwp%2Fv2%2Fcategories&post=3998"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/www.ka-net.org\/blog\/index.php?rest_route=%2Fwp%2Fv2%2Ftags&post=3998"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}