{"id":7140,"date":"2016-07-20T09:45:21","date_gmt":"2016-07-20T00:45:21","guid":{"rendered":"http:\/\/www.ka-net.org\/blog\/?p=7140"},"modified":"2016-07-20T09:45:21","modified_gmt":"2016-07-20T00:45:21","slug":"%e3%82%a2%e3%83%a9%e3%83%93%e3%82%a2%e6%96%87%e5%ad%97%e3%81%8b%e3%81%a9%e3%81%86%e3%81%8b%e3%82%92%e5%88%a4%e5%88%a5%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=7140","title":{"rendered":"\u30a2\u30e9\u30d3\u30a2\u6587\u5b57\u304b\u3069\u3046\u304b\u3092\u5224\u5225\u3059\u308bWord\u30de\u30af\u30ed"},"content":{"rendered":"<p>\u4ee5\u524d<a href=\"http:\/\/www.moug.net\/faq\/viewtopic.php?t=73755\" title=\"Excel VBA \u3092\u5b66\u3076\u306a\u3089 moug \u30e2\u30fc\u30b0\uff5cExcel \uff08VBA\uff09\uff5cVBA\u3067\u30a2\u30e9\u30d3\u30a2\u8a9e\u3092\u9078\u5225\u3059\u308b\u3053\u3068\u306f\u3067\u304d\u307e\u3059\u304b\uff1f\" target=\"_blank\">moug<\/a>\u306e\u8cea\u554f\u7528\u306b\u66f8\u3044\u305f\u30b3\u30fc\u30c9\u304c\u51fa\u3066\u304d\u305f\u306e\u3067\u3001\u4e00\u90e8\u4fee\u6b63\u3057\u307e\u3057\u305f\u3002<\/p>\n<pre class=\"brush: vb; title: ; notranslate\" title=\"\">Option Explicit\r\n\r\nPublic Sub Sample()\r\n  Dim shell As Object\r\n  Dim i As Long\r\n  \r\n  Set shell = CreateObject(&quot;WScript.Shell&quot;)\r\n  With Selection\r\n    For i = 1 To .Characters.Count\r\n      shell.Popup &quot;\u6587\u5b57\uff1a&quot; &amp; .Characters(i).Text &amp; vbNewLine &amp; _\r\n                  &quot;\u30a2\u30e9\u30d3\u30a2\u6587\u5b57\u304b\u3069\u3046\u304b\uff1a&quot; &amp; IsArabic(.Characters(i).Text)\r\n    Next\r\n  End With\r\nEnd Sub\r\n\r\nPrivate Function IsArabic(ByVal char As String) As Boolean\r\n'\u30a2\u30e9\u30d3\u30a2\u6587\u5b57\u5224\u5225\r\n'\u203b \u4e0b\u8a18Web\u30da\u30fc\u30b8\u53c2\u7167\r\n'https:\/\/en.wikipedia.org\/wiki\/Unicode_block\r\n'https:\/\/en.wikipedia.org\/wiki\/Arabic_script_in_Unicode\r\n'https:\/\/ja.wikipedia.org\/wiki\/%E3%82%A2%E3%83%A9%E3%83%93%E3%82%A2%E6%96%87%E5%AD%97\r\n'http:\/\/www.asahi-net.or.jp\/~ax2s-kmtn\/ref\/unicode\/m_eastern.html\r\n  Dim cc As Variant\r\n  Dim ret As Boolean\r\n  \r\n  ret = True '\u521d\u671f\u5316\r\n  cc = Val(&quot;&amp;H&quot; &amp; Hex(AscW(char)) &amp; &quot;&amp;&quot;)\r\n  \r\n  '\u4f8b\u5916\u51e6\u7406\r\n  Select Case cc\r\n    Case 64976 To 65007, 65279 '\u975e\u6587\u5b57(U+FDD0-U+FDEF), BOM(U+FEFF)\r\n      ret = False: GoTo Fin\r\n  End Select\r\n  \r\n  'Unicode\u7bc4\u56f2\r\n  Select Case cc\r\n    Case 1536 To 1791     'Arabic (U+0600-U+06FF)\r\n    Case 1872 To 1919     'Arabic Supplement(U+0750-U+077F)\r\n    Case 2208 To 2303     'Arabic Extended-A(U+08A0-U+08FF)\r\n    Case 64336 To 65023   'Arabic Presentation Forms-A(U+FB50-U+FDFF)\r\n    Case 65136 To 65279   'Arabic Presentation Forms-B(U+FE70-U+FEFF)\r\n    Case 69216 To 69247   'Rumi Numeral Symbols(U+10E60-U+10E7F)\r\n    Case 126464 To 126719 'Arabic Mathematical Alphabetic Symbols(U+1EE00-U+1EEFF)\r\n    Case Else\r\n      ret = False\r\n  End Select\r\n  \r\nFin:\r\n  IsArabic = ret\r\nEnd Function<\/pre>\n<p><img loading=\"lazy\" decoding=\"async\" src=\"\/\/www.ka-net.org\/blog\/wp-content\/uploads\/IsArabic_01.gif\" alt=\"IsArabic_01\" width=\"308\" height=\"350\" class=\"alignnone size-full wp-image-7141\" \/><\/p>\n<p>\u4e0b\u8a18\u8a18\u4e8b\u3068\u540c\u69d8\u3001\u6587\u5b57\u30b3\u30fc\u30c9\u3067\u30a2\u30e9\u30d3\u30a2\u6587\u5b57\u304b\u3069\u3046\u304b\u3092\u5224\u5225\u3057\u3066\u3044\u307e\u3059\u3002<br \/>\n\u30b3\u30fc\u30c9\u306e\u7bc4\u56f2\u306f<a href=\"https:\/\/en.wikipedia.org\/wiki\/Arabic_script_in_Unicode\" title=\"Arabic script in Unicode - Wikipedia, the free encyclopedia\" target=\"_blank\">Wikipedia<\/a>\u3092\u5143\u306b\u3057\u3066\u3044\u307e\u3059\u304c\u3001\u3082\u3057\u304b\u3057\u305f\u3089\u629c\u3051\u304c\u3042\u308b\u304b\u3082\u3057\u308c\u307e\u305b\u3093\u3002<\/p>\n<div class=\"cardlink\"><a href=\"\/\/www.ka-net.org\/blog\/?p=5072\"><div class=\"cardlink_thumbnail\"><img src='https:\/\/www.ka-net.org\/blog\/wp-content\/uploads\/eyecatch-Excel-120x120.png' alt='Unicode\u30d6\u30ed\u30c3\u30af\u3092\u5143\u306b\u6307\u5b9a\u3057\u305f\u6587\u5b57\u304c\u5e73\u4eee\u540d\u306a\u306e\u304b\u30ab\u30bf\u30ab\u30ca\u306a\u306e\u304b\u6f22\u5b57\u306a\u306e\u304b\u3092\u5224\u5225\u3059\u308bVBA\u30de\u30af\u30ed' width=120 height=120 \/><\/a><\/div><div class=\"cardlink_content\"><span class=\"timestamp\">2014.11.17<\/span><div class=\"cardlink_title\"><a href=\"\/\/www.ka-net.org\/blog\/?p=5072\">Unicode\u30d6\u30ed\u30c3\u30af\u3092\u5143\u306b\u6307\u5b9a\u3057\u305f\u6587\u5b57\u304c\u5e73\u4eee\u540d\u306a\u306e\u304b\u30ab\u30bf\u30ab\u30ca\u306a\u306e\u304b\u6f22\u5b57\u306a\u306e\u304b\u3092\u5224\u5225\u3059\u308bVBA\u30de\u30af\u30ed <\/a><\/div><div class=\"cardlink_excerpt\">\u4ee5\u524d\u66f8\u3044\u305f\u300c\u30eb\u30d3(\u3075\u308a\u304c\u306a)\u3092\u4e00\u62ec\u8a2d\u5b9a\u3059\u308bWord\u30de\u30af\u30ed\u300d\u8a18\u4e8b\u3067\u4f7f\u3063\u305f\u3001\u6307\u5b9a\u3057\u305f\u6587\u5b57\u304c\u6f22\u5b57\u306a\u306e\u304b\u3069\u3046\u304b\u3092\u5224\u5225\u3059\u308b\u30de\u30af\u30ed\u306b\u3001\u6307\u5b9a\u3057\u305f\u6587\u5b57\u304c\u5e73\u4eee\u540d\u306a\u306e\u304b\u30ab\u30bf\u30ab\u30ca\u306a\u306e\u304b\u3092\u5224\u5225\u3059\u308b\u30de\u30af\u30ed\u3082\u4ed8\u3051\u52a0\u3048\u3066\u307f\u307e\u3057\u305f\u3002\r\n\r\n\r\n[vb]Option Explicit\r\n\r\nP...<\/div><\/div><div class=\"cardlink_footer\"><\/div><\/div>\n","protected":false},"excerpt":{"rendered":"\u4ee5\u524dmoug\u306e\u8cea\u554f\u7528\u306b\u66f8\u3044\u305f\u30b3\u30fc\u30c9\u304c\u51fa\u3066\u304d\u305f\u306e\u3067\u3001\u4e00\u90e8\u4fee\u6b63\u3057\u307e\u3057\u305f\u3002 Option Explicit Public Sub Sample() Dim shell As Object Dim i As Long Set s [&hellip;]","protected":false},"author":1,"featured_media":7136,"comment_status":"open","ping_status":"closed","sticky":false,"template":"","format":"standard","meta":{"_jetpack_memberships_contains_paid_content":false,"footnotes":"","jetpack_publicize_message":"[\u30a2\u30e9\u30d3\u30a2\u6587\u5b57\u304b\u3069\u3046\u304b\u3092\u5224\u5225\u3059\u308bWord\u30de\u30af\u30ed]","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],"tags":[],"class_list":["post-7140","post","type-post","status-publish","format-standard","has-post-thumbnail","hentry","category-office","category-word-office"],"aioseo_notices":[],"jetpack_publicize_connections":[],"jetpack_featured_media_url":"https:\/\/www.ka-net.org\/blog\/wp-content\/uploads\/eyecatch-WordVBA.png","jetpack_shortlink":"https:\/\/wp.me\/p4UZZr-1Ra","jetpack_sharing_enabled":true,"_links":{"self":[{"href":"https:\/\/www.ka-net.org\/blog\/index.php?rest_route=\/wp\/v2\/posts\/7140","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=7140"}],"version-history":[{"count":2,"href":"https:\/\/www.ka-net.org\/blog\/index.php?rest_route=\/wp\/v2\/posts\/7140\/revisions"}],"predecessor-version":[{"id":7143,"href":"https:\/\/www.ka-net.org\/blog\/index.php?rest_route=\/wp\/v2\/posts\/7140\/revisions\/7143"}],"wp:featuredmedia":[{"embeddable":true,"href":"https:\/\/www.ka-net.org\/blog\/index.php?rest_route=\/wp\/v2\/media\/7136"}],"wp:attachment":[{"href":"https:\/\/www.ka-net.org\/blog\/index.php?rest_route=%2Fwp%2Fv2%2Fmedia&parent=7140"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/www.ka-net.org\/blog\/index.php?rest_route=%2Fwp%2Fv2%2Fcategories&post=7140"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/www.ka-net.org\/blog\/index.php?rest_route=%2Fwp%2Fv2%2Ftags&post=7140"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}