{"id":6646,"date":"2016-02-05T11:33:51","date_gmt":"2016-02-05T02:33:51","guid":{"rendered":"http:\/\/www.ka-net.org\/blog\/?p=6646"},"modified":"2016-02-05T11:33:51","modified_gmt":"2016-02-05T02:33:51","slug":"re-%e3%80%90word%e3%83%9e%e3%82%af%e3%83%ad%e3%80%91word%e8%b5%b7%e5%8b%95%e6%99%82%e3%81%ab%e3%80%81%e5%89%8d%e5%9b%9e%e7%b5%82%e4%ba%86%e6%99%82%e3%81%ab%e9%96%8b%e3%81%84%e3%81%a6%e3%81%84","status":"publish","type":"post","link":"https:\/\/www.ka-net.org\/blog\/?p=6646","title":{"rendered":"Re: \u3010Word\u30de\u30af\u30ed\u3011Word\u8d77\u52d5\u6642\u306b\u3001\u524d\u56de\u7d42\u4e86\u6642\u306b\u958b\u3044\u3066\u3044\u305f\u30d5\u30a1\u30a4\u30eb\u3092\u8868\u793a"},"content":{"rendered":"<p>Word MVP\u306e<a href=\"https:\/\/twitter.com\/nittajunya\" title=\"\u65b0\u7530\u9806\u4e5f (@nittajunya)\" target=\"_blank\">\u65b0\u7530\u3055\u3093<\/a>\u304c\u30d6\u30ed\u30b0\u3067\u9762\u767d\u3044\u8a18\u4e8b\u3092\u66f8\u304b\u308c\u3066\u3044\u307e\u3057\u305f\u3002<\/p>\n<p><strong>\u30fb\u3010Word\u30de\u30af\u30ed\u3011Word\u8d77\u52d5\u6642\u306b\u3001\u524d\u56de\u7d42\u4e86\u6642\u306b\u958b\u3044\u3066\u3044\u305f\u30d5\u30a1\u30a4\u30eb\u3092\u8868\u793a<\/strong><br \/>\n<a href=\"http:\/\/ameblo.jp\/gidgeerock\/entry-12125004705.html\" title=\"\u3010Word\u30de\u30af\u30ed\u3011Word\u8d77\u52d5\u6642\u306b\u3001\u524d\u56de\u7d42\u4e86\u6642\u306b\u958b\u3044\u3066\u3044\u305f\u30d5\u30a1\u30a4\u30eb\u3092\u8868\u793a\uff5c\u307f\u3093\u306a\u306e\u30ef\u30fc\u30c9\u30de\u30af\u30ed\" target=\"_blank\">http:\/\/ameblo.jp\/gidgeerock\/entry-12125004705.html<\/a><\/p>\n<p>Word\u3092\u8d77\u52d5\u3057\u305f\u3068\u304d\u306b\u524d\u56de\u7d42\u4e86\u6642\u306b\u958b\u3044\u3066\u3044\u305f\u30d5\u30a1\u30a4\u30eb\u3092\u8868\u793a\u3059\u308b\u30de\u30af\u30ed\u3067\u3059\u3002<\/p>\n<p>\u306a\u308b\u307b\u3069\u3002<br \/>\n\u30b7\u30f3\u30d7\u30eb\u306a\u304c\u3089\u306a\u304b\u306a\u304b\u4fbf\u5229\u305d\u3046\u3067\u3059\u3002<\/p>\n<p><span style=\"color: #ff0000; font-weight: bold;\">\u201c\u3053\u308c\u306f\u30cd\u30bf\u3092\u30d1\u30af\u308b\u3057\u304b\u306a\u3044\uff01\u201d<\/span><\/p>\n<p>\u3068\u3044\u3046\u308f\u3051\u3067\u3001\u3055\u3063\u305d\u304f\u3084\u3063\u3066\u307f\u307e\u3057\u305f\u3002<\/p>\n<h4 class=\"style4a\">\u30ea\u30dc\u30f3XML<\/h4>\n<p>Word\u8d77\u52d5\u6642 \uff1d \u30b9\u30bf\u30fc\u30c8\u30a2\u30c3\u30d7\u30d5\u30a9\u30eb\u30c0\u306b\u5165\u308c\u305f\u30c6\u30f3\u30d7\u30ec\u30fc\u30c8\u30d5\u30a1\u30a4\u30eb\u304c\u958b\u304b\u308c\u305f\u3068\u304d\u306b\u30de\u30af\u30ed\u3092\u5b9f\u884c\u3059\u308b\u305f\u3081\u3001\u30ea\u30dc\u30f3\u3092\u30ab\u30b9\u30bf\u30de\u30a4\u30ba\u3059\u308b\u3053\u3068\u306b\u3057\u307e\u3059\u3002<\/p>\n<pre class=\"brush: xml; title: ; notranslate\" title=\"\">&lt;?xml version=&quot;1.0&quot; encoding=&quot;utf-8&quot;?&gt;\r\n&lt;customUI onLoad=&quot;rbnRecentOpen_onLoad&quot; xmlns=&quot;http:\/\/schemas.microsoft.com\/office\/2006\/01\/customui&quot; \/&gt;<\/pre>\n<h4 class=\"style4a\">\u6a19\u6e96\u30e2\u30b8\u30e5\u30fc\u30eb<\/h4>\n<p>RecentFiles\u3092\u4f7f\u3063\u3066\u30d5\u30a1\u30a4\u30eb\u3092\u958b\u304f\u3068\u3053\u308d\u306f\u65b0\u7530\u3055\u3093\u306e\u30b3\u30fc\u30c9\u3092\u305d\u306e\u307e\u307e\u4f7f\u3044\u307e\u3059\u3002<br \/>\n\u305f\u3060\u3001Word\u3092\u8d77\u52d5\u3059\u308b\u305f\u3073\u306b\u30d5\u30a1\u30a4\u30eb\u304c\u958b\u304b\u308c\u308b\u306e\u306f\u90fd\u5408\u304c\u60aa\u3044\u5834\u5408\u3082\u3042\u308b\u305f\u3081\u3001<\/p>\n<p><span style=\"color: #ff0000; font-weight: bold;\">\u201cWord\u8d77\u52d5\u6642\u306bShift\u30ad\u30fc\u304c\u62bc\u3055\u308c\u3066\u3044\u305f\u3089\u30d5\u30a1\u30a4\u30eb\u3092\u958b\u304f\u201d<\/span><\/p>\n<p>\u3068\u3044\u3046\u3088\u3046\u306b\u3001\u30ad\u30fc\u5224\u5b9a\u51e6\u7406\u3092\u52a0\u3048\u3066\u3044\u307e\u3059\u3002<\/p>\n<pre class=\"brush: vb; title: ; notranslate\" title=\"\">Option Explicit\r\n\r\nPrivate Declare Function GetKeyboardState Lib &quot;user32&quot; (lpKeyState As Byte) As Long\r\n\r\nPublic Sub rbnRecentOpen_onLoad(ribbon As IRibbonUI)\r\n  Dim keys(0 To 255) As Byte\r\n  \r\n  If GetKeyboardState(keys(0)) &lt;&gt; 0 Then\r\n    'Shift\u30ad\u30fc\u5224\u5b9a\r\n    If (keys(vbKeyShift) And &amp;H80) &lt;&gt; 0 Then\r\n      On Error Resume Next\r\n      Application.RecentFiles(1).Open\r\n      On Error GoTo 0\r\n    End If\r\n  End If\r\nEnd Sub<\/pre>\n<h4 class=\"style4a\">\u30b9\u30bf\u30fc\u30c8\u30a2\u30c3\u30d7\u30d5\u30a9\u30eb\u30c0\u306b\u4fdd\u5b58<\/h4>\n<p>\u4e0a\u8a18\u30b3\u30fc\u30c9\u3092\u8a2d\u5b9a\u3057\u305f\u30d5\u30a1\u30a4\u30eb\u3092\u30c6\u30f3\u30d7\u30ec\u30fc\u30c8\u30d5\u30a1\u30a4\u30eb(dotm)\u3068\u3057\u3066\u4fdd\u5b58\u3057\u3001<a href=\"http:\/\/ameblo.jp\/gidgeerock\/entry-11204977696.html\" title=\"Word\u30de\u30af\u30ed\u3092\u4fdd\u5b58\u3059\u308b\u300c\u30b9\u30bf\u30fc\u30c8\u30a2\u30c3\u30d7\u30d5\u30a9\u30eb\u30c0\u300d\u3068\u306f\uff1f\uff5c\u307f\u3093\u306a\u306e\u30ef\u30fc\u30c9\u30de\u30af\u30ed\" target=\"_blank\">\u30b9\u30bf\u30fc\u30c8\u30a2\u30c3\u30d7\u30d5\u30a9\u30eb\u30c0<\/a>\u306b\u30b3\u30d4\u30fc\u3059\u308b\u3068\u3001Word\u8d77\u52d5\u6642\u306b\u4e0a\u8a18\u30de\u30af\u30ed\u304c\u5b9f\u884c\u3055\u308c\u308b\u3088\u3046\u306b\u306a\u308a\u307e\u3059\u3002<\/p>\n<p>\u79c1\u306e\u65b9\u3067\u4f5c\u6210\u3057\u305f\u30d5\u30a1\u30a4\u30eb\u3092\u4e0b\u8a18\u30ea\u30f3\u30af\u5148\u306b\u7f6e\u3044\u3066\u304a\u304d\u307e\u3059\u306e\u3067\u3001\u8208\u5473\u304c\u3042\u308b\u65b9\u306f\u4e0b\u8a18\u30d5\u30a1\u30a4\u30eb\u3067\u52d5\u4f5c\u3092\u3054\u78ba\u8a8d\u304f\u3060\u3055\u3044\u3002<\/p>\n<p>&#9658;&nbsp;<a href=\"\/\/www.ka-net.org\/blog\/wp-content\/uploads\/RecentOpen.zip\" title=\"\u8d77\u52d5\u6642\u306b\u524d\u56de\u7d42\u4e86\u6642\u306b\u958b\u3044\u3066\u3044\u305f\u30d5\u30a1\u30a4\u30eb\u3092\u8868\u793a\u3059\u308bWord\u30de\u30af\u30ed\">\u8d77\u52d5\u6642\u306b\u524d\u56de\u7d42\u4e86\u6642\u306b\u958b\u3044\u3066\u3044\u305f\u30d5\u30a1\u30a4\u30eb\u3092\u8868\u793a\u3059\u308bWord\u30de\u30af\u30ed<\/a><\/p>\n<h4 class=\"style4a\">\u304a\u308f\u308a\u306b<\/h4>\n<p>\u3053\u306e\u30de\u30af\u30ed\u3001\u672c\u5f53\u306f\u4e0b\u8a18\u30b3\u30fc\u30c9\u306e\u3088\u3046\u306b<\/p>\n<p><span style=\"color: #ff0000; font-weight: bold;\">\u201cShift\u30ad\u30fc\u3068\u6570\u5b57\u30ad\u30fc\u304c\u62bc\u3055\u308c\u3066\u3044\u305f\u3089\u3001\u6570\u5b57\u30ad\u30fc\u306b\u5fdc\u3058\u3066\u30d5\u30a1\u30a4\u30eb\u3092\u958b\u304f\u201d<\/span><\/p>\n<p>\u51e6\u7406\u3092\u8003\u3048\u3066\u3044\u305f\u306e\u3067\u3059\u304c\u3001\u5b9f\u969b\u306b\u8a66\u3057\u305f\u3068\u3053\u308d\u3001\u30d5\u30a1\u30a4\u30eb\u3092\u958b\u304f\u3068\u540c\u6642\u306b\u62bc\u3057\u3066\u3044\u305f\u6570\u5b57\u30ad\u30fc\u304c\u6587\u7ae0\u306b\u5165\u529b\u3055\u308c\u3066\u3057\u307e\u3044\u3001\u975e\u5e38\u306b\u4f7f\u3044\u52dd\u624b\u304c\u60aa\u3044\u3082\u306e\u306b\u306a\u3063\u3066\u3057\u307e\u3044\u307e\u3057\u305f\u3002<br \/>\n(\u306a\u306e\u3067\u4e0a\u8a18\u30b3\u30fc\u30c9\u3067\u306f\u6570\u5b57\u30ad\u30fc\u5224\u5b9a\u51e6\u7406\u3092\u629c\u3044\u3066\u3042\u308a\u307e\u3059\u3002)<\/p>\n<pre class=\"brush: vb; title: ; notranslate\" title=\"\">Option Explicit\r\n\r\nPrivate Declare Function GetKeyboardState Lib &quot;user32&quot; (lpKeyState As Byte) As Long\r\n\r\nPublic Sub rbnRecentOpen_onLoad(ribbon As IRibbonUI)\r\n  Dim keys(0 To 255) As Byte\r\n  Dim num As Long: num = 1 '\u521d\u671f\u5316\r\n  Dim i As Long\r\n  \r\n  GetKeyboardState keys(0)\r\n  'Shift\u30ad\u30fc\u5224\u5b9a\r\n  If (keys(vbKeyShift) And &amp;H80) &lt;&gt; 0 Then\r\n    '\u6570\u5b57\u30ad\u30fc\u5224\u5b9a(vbKey1 - vbKey9)\u30c6\u30f3\u30ad\u30fc\u672a\u5bfe\u5fdc\r\n    For i = 49 To 57\r\n      If (keys(i) And &amp;H80) &lt;&gt; 0 Then\r\n        num = i - 48\r\n        Exit For\r\n      End If\r\n    Next\r\n    On Error Resume Next\r\n    Application.RecentFiles(num).Open\r\n    On Error GoTo 0\r\n  End If\r\nEnd Sub<\/pre>\n<p>\u307e\u305f\u3001\u4e0a\u3067\u7d39\u4ecb\u3057\u3066\u3044\u308b\u30b3\u30fc\u30c9\u3067\u306fShift\u30ad\u30fc\u306b\u3088\u308b\u5224\u5b9a\u3092\u884c\u3063\u3066\u3044\u307e\u3059\u304c\u3001Word\u8d77\u52d5\u6642\u306bShift\u30ad\u30fc\u3092\u62bc\u3057\u3066\u3044\u308b\u3068\u3001<a href=\"https:\/\/www.moug.net\/tech\/woopr\/0130002.html\" title=\"Excel VBA \u3092\u5b66\u3076\u306a\u3089 moug \u30e2\u30fc\u30b0 | \u5373\u52b9\u30c6\u30af\u30cb\u30c3\u30af | \u30de\u30af\u30ed\u30a6\u30a3\u30eb\u30b9\u3078\u306e\u5bfe\u51e6\u65b9\u6cd5\" target=\"_blank\">\u81ea\u52d5\u5b9f\u884c\u30de\u30af\u30ed\u304c\u7121\u52b9\u306b\u306a\u308a\u307e\u3059<\/a>\u306e\u3067\u3001AutoOpen\u7b49\u306e\u30de\u30af\u30ed\u3092\u304a\u4f7f\u3044\u306e\u65b9\u306f\u3054\u6ce8\u610f\u304f\u3060\u3055\u3044\u3002<\/p>\n","protected":false},"excerpt":{"rendered":"Word MVP\u306e\u65b0\u7530\u3055\u3093\u304c\u30d6\u30ed\u30b0\u3067\u9762\u767d\u3044\u8a18\u4e8b\u3092\u66f8\u304b\u308c\u3066\u3044\u307e\u3057\u305f\u3002 \u30fb\u3010Word\u30de\u30af\u30ed\u3011Word\u8d77\u52d5\u6642\u306b\u3001\u524d\u56de\u7d42\u4e86\u6642\u306b\u958b\u3044\u3066\u3044\u305f\u30d5\u30a1\u30a4\u30eb\u3092\u8868\u793a http:\/\/ameblo.jp\/gidgeerock\/entry-1212 [&hellip;]","protected":false},"author":1,"featured_media":7130,"comment_status":"open","ping_status":"closed","sticky":false,"template":"","format":"standard","meta":{"_jetpack_memberships_contains_paid_content":false,"footnotes":"","jetpack_publicize_message":"[Re: \u3010Word\u30de\u30af\u30ed\u3011Word\u8d77\u52d5\u6642\u306b\u3001\u524d\u56de\u7d42\u4e86\u6642\u306b\u958b\u3044\u3066\u3044\u305f\u30d5\u30a1\u30a4\u30eb\u3092\u8868\u793a]","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,49,1],"tags":[],"class_list":["post-6646","post","type-post","status-publish","format-standard","has-post-thumbnail","hentry","category-office","category-word-office","category-ribbon"],"aioseo_notices":[],"jetpack_publicize_connections":[],"jetpack_featured_media_url":"https:\/\/www.ka-net.org\/blog\/wp-content\/uploads\/eyecatch-Ribbon.png","jetpack_shortlink":"https:\/\/wp.me\/p4UZZr-1Jc","jetpack_sharing_enabled":true,"_links":{"self":[{"href":"https:\/\/www.ka-net.org\/blog\/index.php?rest_route=\/wp\/v2\/posts\/6646","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=6646"}],"version-history":[{"count":4,"href":"https:\/\/www.ka-net.org\/blog\/index.php?rest_route=\/wp\/v2\/posts\/6646\/revisions"}],"predecessor-version":[{"id":6651,"href":"https:\/\/www.ka-net.org\/blog\/index.php?rest_route=\/wp\/v2\/posts\/6646\/revisions\/6651"}],"wp:featuredmedia":[{"embeddable":true,"href":"https:\/\/www.ka-net.org\/blog\/index.php?rest_route=\/wp\/v2\/media\/7130"}],"wp:attachment":[{"href":"https:\/\/www.ka-net.org\/blog\/index.php?rest_route=%2Fwp%2Fv2%2Fmedia&parent=6646"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/www.ka-net.org\/blog\/index.php?rest_route=%2Fwp%2Fv2%2Fcategories&post=6646"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/www.ka-net.org\/blog\/index.php?rest_route=%2Fwp%2Fv2%2Ftags&post=6646"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}