{"id":496,"date":"2019-01-25T06:37:42","date_gmt":"2019-01-25T06:37:42","guid":{"rendered":"http:\/\/mio-web.net\/pcsupport\/?p=496"},"modified":"2019-01-25T06:37:42","modified_gmt":"2019-01-25T06:37:42","slug":"vba%e5%8f%82%e7%85%a7%e8%a8%ad%e5%ae%9a%e3%80%80word","status":"publish","type":"post","link":"https:\/\/mio-web.net\/pcsupport\/archives\/496\/","title":{"rendered":"VBA\u53c2\u7167\u8a2d\u5b9a\u3000WORD"},"content":{"rendered":"\n<p>\u30a8\u30af\u30bb\u30eb\u306e\u81ea\u52d5\u53c2\u7167\u8a2d\u5b9a\u306f<\/p>\n\n\n\n<p>&#8216;\u30a8\u30af\u30bb\u30eb\u81ea\u52d5\u53c2\u7167\u8a2d\u5b9a<br> On Error GoTo Err_Shori<br> Dim Ref As Reference<br> Const strExcel As String = &#8220;{00020813-0000-0000-C000-000000000046}&#8221;<br> Set Ref = References.AddFromGuid(strExcel, 1, 3)<br> Set Ref = Nothing<br> Exit Sub<br> Err_Shori:<br> If err.Number = 32813 Then<br> Resume Next<br> Else<br> MsgBox err.Description<br> End If<\/p>\n\n\n\n<p><\/p>\n\n\n\n<p>\u3068\u3057\u3066\u3044\u308b\u304c\u3000word\u3067\u306f<\/p>\n\n\n\n<p> Const strWord    As String = &#8220;{00020905-0000-0000-C000-000000000046}&#8221; <br> Set Ref = References.AddFromGuid(strWord, 8, 1)<\/p>\n\n\n\n<p>\u306b\u3057\u3066\u307f\u308b<\/p>\n\n\n\n<p><\/p>\n","protected":false},"excerpt":{"rendered":"<p>\u30a8\u30af\u30bb\u30eb\u306e\u81ea\u52d5\u53c2\u7167\u8a2d\u5b9a\u306f &#8216;\u30a8\u30af\u30bb\u30eb\u81ea\u52d5\u53c2\u7167\u8a2d\u5b9a On Error GoTo Err_Shori Dim Ref As Reference Const strExcel As String = &#8220; [&hellip;]<\/p>\n","protected":false},"author":1,"featured_media":0,"comment_status":"closed","ping_status":"closed","sticky":false,"template":"","format":"standard","meta":{"vkexunit_cta_each_option":"","footnotes":""},"categories":[24],"tags":[],"class_list":["post-496","post","type-post","status-publish","format-standard","hentry","category-access"],"_links":{"self":[{"href":"https:\/\/mio-web.net\/pcsupport\/wp-json\/wp\/v2\/posts\/496","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/mio-web.net\/pcsupport\/wp-json\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/mio-web.net\/pcsupport\/wp-json\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/mio-web.net\/pcsupport\/wp-json\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"https:\/\/mio-web.net\/pcsupport\/wp-json\/wp\/v2\/comments?post=496"}],"version-history":[{"count":1,"href":"https:\/\/mio-web.net\/pcsupport\/wp-json\/wp\/v2\/posts\/496\/revisions"}],"predecessor-version":[{"id":497,"href":"https:\/\/mio-web.net\/pcsupport\/wp-json\/wp\/v2\/posts\/496\/revisions\/497"}],"wp:attachment":[{"href":"https:\/\/mio-web.net\/pcsupport\/wp-json\/wp\/v2\/media?parent=496"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/mio-web.net\/pcsupport\/wp-json\/wp\/v2\/categories?post=496"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/mio-web.net\/pcsupport\/wp-json\/wp\/v2\/tags?post=496"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}