{"id":5752,"date":"2015-06-23T16:14:24","date_gmt":"2015-06-23T07:14:24","guid":{"rendered":"http:\/\/www.ka-net.org\/blog\/?p=5752"},"modified":"2015-06-23T16:14:24","modified_gmt":"2015-06-23T07:14:24","slug":"%e5%be%b9%e5%ba%95%e7%9a%84%e3%81%absymbol%e3%82%b7%e3%83%b3%e3%83%9c%e3%83%ab%e3%83%95%e3%82%a9%e3%83%b3%e3%83%88%e3%82%92%e3%83%81%e3%82%a7%e3%83%83%e3%82%af%e3%81%99%e3%82%8bword%e3%83%9e","status":"publish","type":"post","link":"https:\/\/www.ka-net.org\/blog\/?p=5752","title":{"rendered":"\u5fb9\u5e95\u7684\u306bSymbol(\u30b7\u30f3\u30dc\u30eb)\u30d5\u30a9\u30f3\u30c8\u3092\u30c1\u30a7\u30c3\u30af\u3059\u308bWord\u30de\u30af\u30ed"},"content":{"rendered":"<p>\u6587\u5b57\u5217\u3092\u30e1\u30e2\u5e33\u306b\u30b3\u30d4\u30fc\uff06\u30da\u30fc\u30b9\u30c8\u3059\u308b\u3068\u6587\u5b57\u5316\u3051\u3057\u305f\u308a\u3001\u30d5\u30a9\u30f3\u30c8\u6307\u5b9a\u3067\u691c\u7d22\u3057\u3066\u3044\u308b\u306e\u306b\u4f55\u6545\u304b\u30d2\u30c3\u30c8\u3057\u306a\u304b\u3063\u305f\u308a\u3001Word\u30de\u30af\u30ed\u3092\u66f8\u304f\u4eba\u9593\u306b\u3068\u3063\u3066\u4f55\u304b\u3068\u5384\u4ecb\u306a\u306e\u304c<span style=\"color: #ff0000; font-weight: bold;\">\u201cSymbol(\u30b7\u30f3\u30dc\u30eb)\u30d5\u30a9\u30f3\u30c8\u201d<\/span>\u3067\u3059\u3002<\/p>\n<p>\u30e9\u30a4\u30bf\u30fc\u3084\u7ffb\u8a33\u8005\u306a\u3069\u3001\u5927\u91cf\u306e\u6587\u5b57\u3092Word\u3067\u6271\u3063\u305f\u3053\u3068\u304c\u3042\u308b\u4eba\u306a\u3089\u3070\u3001\u4e00\u5ea6\u306f\u5f15\u3063\u639b\u304b\u3063\u305f\u3053\u3068\u304c\u3042\u308b\u306e\u3067\u306f\u306a\u3044\u3067\u3057\u3087\u3046\u304b\uff1f<\/p>\n<p><a href=\"https:\/\/twitter.com\/nittajunya\" title=\"\u65b0\u7530\u9806\u4e5f(@nittajunya)\u3055\u3093 | Twitter\" target=\"_blank\">Word MVP\u306e\u65b0\u7530\u3055\u3093<\/a>\u306e\u30d6\u30ed\u30b0\u306b\u3082\u3001\u3053\u306eSymbol\u30d5\u30a9\u30f3\u30c8\u3092\u6271\u3063\u3066\u3044\u308b\u8a18\u4e8b\u304c\u6570\u591a\u304f\u3042\u308a\u307e\u3059\u3002<\/p>\n<ul>\n<li>\u3053\u3046\u3059\u308c\u3070\u3067\u304d\u308b\uff01\uff01\u30b7\u30f3\u30dc\u30eb\u30d5\u30a9\u30f3\u30c8\u306e\u691c\u7d22<\/li>\n<li style=\"list-style-type:none;\"><a href=\"http:\/\/ameblo.jp\/gidgeerock\/entry-10551329646.html\" target=\"_blank\" title=\"\u3053\u3046\u3059\u308c\u3070\u3067\u304d\u308b\uff01\uff01\u30b7\u30f3\u30dc\u30eb\u30d5\u30a9\u30f3\u30c8\u306e\u691c\u7d22\">http:\/\/ameblo.jp\/gidgeerock\/entry-10551329646.html<\/a><\/li>\n<li>\u3053\u3046\u3059\u308c\u3070\u3067\u304d\u308b\uff01\uff01\u30b7\u30f3\u30dc\u30eb\u30d5\u30a9\u30f3\u30c8\u306e\u691c\u7d22\uff08\uff12\uff09<\/li>\n<li style=\"list-style-type:none;\"><a href=\"http:\/\/ameblo.jp\/gidgeerock\/entry-10554187847.html\" target=\"_blank\" title=\"\u3053\u3046\u3059\u308c\u3070\u3067\u304d\u308b\uff01\uff01\u30b7\u30f3\u30dc\u30eb\u30d5\u30a9\u30f3\u30c8\u306e\u691c\u7d22\uff08\uff12\uff09\">http:\/\/ameblo.jp\/gidgeerock\/entry-10554187847.html<\/a><\/li>\n<li>\u3053\u3046\u3059\u308c\u3070\u3067\u304d\u308b\uff01\uff01\u30b7\u30f3\u30dc\u30eb\u30d5\u30a9\u30f3\u30c8\u306e\u691c\u7d22\uff08\uff13\uff09<\/li>\n<li style=\"list-style-type:none;\"><a href=\"http:\/\/ameblo.jp\/gidgeerock\/entry-10555132625.html\" target=\"_blank\" title=\"\u3053\u3046\u3059\u308c\u3070\u3067\u304d\u308b\uff01\uff01\u30b7\u30f3\u30dc\u30eb\u30d5\u30a9\u30f3\u30c8\u306e\u691c\u7d22\uff08\uff13\uff09\">http:\/\/ameblo.jp\/gidgeerock\/entry-10555132625.html<\/a><\/li>\n<li>Symbol\u30d5\u30a9\u30f3\u30c8\u306e\u30ae\u30ea\u30b7\u30e3\u6587\u5b57\u3092\u86cd\u5149\u30da\u30f3\u3067\u7740\u8272\u3059\u308b\u30de\u30af\u30ed<\/li>\n<li style=\"list-style-type:none;\"><a href=\"http:\/\/ameblo.jp\/gidgeerock\/entry-11072233749.html\" target=\"_blank\" title=\"Symbol\u30d5\u30a9\u30f3\u30c8\u306e\u30ae\u30ea\u30b7\u30e3\u6587\u5b57\u3092\u86cd\u5149\u30da\u30f3\u3067\u7740\u8272\u3059\u308b\u30de\u30af\u30ed\">http:\/\/ameblo.jp\/gidgeerock\/entry-11072233749.html<\/a><\/li>\n<li>Symbol\u30d5\u30a9\u30f3\u30c8\u306e\u30ae\u30ea\u30b7\u30e3\u6587\u5b57\u3092\u86cd\u5149\u30da\u30f3\u3067\u7740\u8272\u3059\u308b\u30de\u30af\u30ed\uff08\u89e3\u8aac\uff09<\/li>\n<li style=\"list-style-type:none;\"><a href=\"http:\/\/ameblo.jp\/gidgeerock\/entry-11072244135.html\" target=\"_blank\" title=\"Symbol\u30d5\u30a9\u30f3\u30c8\u306e\u30ae\u30ea\u30b7\u30e3\u6587\u5b57\u3092\u86cd\u5149\u30da\u30f3\u3067\u7740\u8272\u3059\u308b\u30de\u30af\u30ed\uff08\u89e3\u8aac\uff09\">http:\/\/ameblo.jp\/gidgeerock\/entry-11072244135.html<\/a><\/li>\n<li>\u3010Word\u30de\u30af\u30ed\u3011\u30ae\u30ea\u30b7\u30e3\u6587\u5b57\u3092\u30b7\u30f3\u30dc\u30eb\u30d5\u30a9\u30f3\u30c8\u306b\u5909\u66f4\u3059\u308b<\/li>\n<li style=\"list-style-type:none;\"><a href=\"http:\/\/ameblo.jp\/gidgeerock\/entry-11664073459.html\" target=\"_blank\" title=\"\u3010Word\u30de\u30af\u30ed\u3011\u30ae\u30ea\u30b7\u30e3\u6587\u5b57\u3092\u30b7\u30f3\u30dc\u30eb\u30d5\u30a9\u30f3\u30c8\u306b\u5909\u66f4\u3059\u308b\">http:\/\/ameblo.jp\/gidgeerock\/entry-11664073459.html<\/a><\/li>\n<li>\u3010Word\u30de\u30af\u30ed\u3011Symbol\u30d5\u30a9\u30f3\u30c8\u306e\u6bb5\u843d\u756a\u53f7\u3092\u901a\u5e38\u306e\u6bb5\u843d\u756a\u53f7\u306b\u5909\u63db\u3059\u308b<\/li>\n<li style=\"list-style-type:none;\"><a href=\"http:\/\/ameblo.jp\/gidgeerock\/entry-11985521615.html\" target=\"_blank\" title=\"\u3010Word\u30de\u30af\u30ed\u3011Symbol\u30d5\u30a9\u30f3\u30c8\u306e\u6bb5\u843d\u756a\u53f7\u3092\u901a\u5e38\u306e\u6bb5\u843d\u756a\u53f7\u306b\u5909\u63db\u3059\u308b\">http:\/\/ameblo.jp\/gidgeerock\/entry-11985521615.html<\/a><\/li>\n<\/ul>\n<p>\u79c1\u3082\u6570\u5e74\u524d\u306bHP\u3067\u300c<a href=\"\/\/www.ka-net.org\/office\/of39.html#n27\" title=\"\u6307\u5b9a\u3057\u305f\u30d5\u30a9\u30f3\u30c8\u304c\u4f7f\u308f\u308c\u3066\u3044\u308b\u304b\u3069\u3046\u304b\u3092\u30c1\u30a7\u30c3\u30af\u3059\u308b\" target=\"_blank\">\u6307\u5b9a\u3057\u305f\u30d5\u30a9\u30f3\u30c8\u304c\u4f7f\u308f\u308c\u3066\u3044\u308b\u304b\u3069\u3046\u304b\u3092\u30c1\u30a7\u30c3\u30af\u3059\u308b<\/a>\u300d\u3068\u3044\u3046Word\u30de\u30af\u30ed\u306e\u30b3\u30fc\u30c9\u3092\u66f8\u3044\u305f\u306e\u3067\u3059\u304c\u3001\u4ee5\u524d\u66f8\u3044\u305f\u30b3\u30fc\u30c9\u306f\u975e\u52b9\u7387\u7684\u306a\u90e8\u5206\u3082\u3042\u308b\u306e\u3067\u3001\u4eca\u56de\u6539\u3081\u3066\u30b3\u30fc\u30c9\u3092\u898b\u76f4\u3059\u3053\u3068\u306b\u3057\u307e\u3057\u305f\u3002<\/p>\n<pre class=\"brush: vb; title: ; notranslate\" title=\"\">Option Explicit\r\n\r\nPublic Sub Sample()\r\n'&quot;Symbol&quot;\u30d5\u30a9\u30f3\u30c8\u304b\u3069\u3046\u304b\u3092\u4e00\u6587\u5b57\u305a\u3064\u30c1\u30a7\u30c3\u30af\r\n  Dim tmp As Word.Range\r\n  Dim r As Word.Range\r\n  \r\n  Set tmp = Selection.Range\r\n  Application.ScreenUpdating = False\r\n  For Each r In ActiveDocument.Characters\r\n    If ChkSymbolFont(r) = True Then\r\n      '&quot;Symbol&quot;\u30d5\u30a9\u30f3\u30c8\u3060\u3063\u305f\u3089\u86cd\u5149\u30da\u30f3\u3067\u30de\u30fc\u30af\r\n      r.HighlightColorIndex = wdPink\r\n    End If\r\n  Next\r\n  Application.ScreenUpdating = True\r\n  tmp.Select\r\n  MsgBox &quot;\u51e6\u7406\u304c\u7d42\u4e86\u3057\u307e\u3057\u305f\u3002&quot;, vbInformation + vbSystemModal\r\nEnd Sub\r\n\r\nPrivate Function ChkSymbolFont(ByVal TargetCharacter As Word.Range) As Boolean\r\n'\u6307\u5b9a\u3057\u305fRange(1\u6587\u5b57)\u306e\u30d5\u30a9\u30f3\u30c8\u304c\u300cSymbol\u300d\u304b\u3069\u3046\u304b\u3092\u30c1\u30a7\u30c3\u30af\r\n  Dim FontName As String: FontName = LCase(&quot;Symbol&quot;)\r\n  Dim ret As Boolean\r\n  \r\n  '\u6587\u5b57\u6570\u30c1\u30a7\u30c3\u30af\r\n  If TargetCharacter.Characters.Count &gt; 1 Then _\r\n     Err.Raise Number:=513, Description:=&quot;\u5f15\u6570\u306e\u6587\u5b57\u6570\u3092\u300c1\u300d\u306b\u3057\u3066\u304f\u3060\u3055\u3044\u3002&quot;\r\n  \r\n  '\u521d\u671f\u5316\r\n  ret = False\r\n  TargetCharacter.Select\r\n  \r\n  'Font\u30aa\u30d6\u30b8\u30a7\u30af\u30c8\u306e\u30d7\u30ed\u30d1\u30c6\u30a3\u30c1\u30a7\u30c3\u30af\r\n  With Selection\r\n    If LCase(.Font.Name) = FontName Then ret = True: GoTo EndProc\r\n    If LCase(.Font.NameAscii) = FontName Then ret = True: GoTo EndProc\r\n    If LCase(.Font.NameBi) = FontName Then ret = True: GoTo EndProc\r\n    If LCase(.Font.NameFarEast) = FontName Then ret = True: GoTo EndProc\r\n    If LCase(.Font.NameOther) = FontName Then ret = True: GoTo EndProc\r\n  End With\r\n\r\n  '\u30d5\u30a9\u30f3\u30c8\u30c0\u30a4\u30a2\u30ed\u30b0\u30c1\u30a7\u30c3\u30af\r\n  With Application.Dialogs(wdDialogFormatFont)\r\n    If LCase(.Font) = FontName Then ret = True: GoTo EndProc\r\n    If LCase(.FontHighAnsi) = FontName Then ret = True: GoTo EndProc\r\n    If LCase(.FontLowAnsi) = FontName Then ret = True: GoTo EndProc\r\n    If LCase(.FontNameBi) = FontName Then ret = True: GoTo EndProc\r\n  End With\r\n\r\n  '\u8a18\u53f7\u3068\u7279\u6b8a\u6587\u5b57\u30c0\u30a4\u30a2\u30ed\u30b0\u30c1\u30a7\u30c3\u30af\r\n  With Application.Dialogs(wdDialogInsertSymbol)\r\n    If LCase(.Font) = FontName Then ret = True: GoTo EndProc\r\n  End With\r\n  \r\nEndProc:\r\n  ChkSymbolFont = ret\r\nEnd Function<\/pre>\n<p>\u3084\u3063\u3066\u3044\u308b\u3053\u3068\u306f<a href=\"\/\/www.ka-net.org\/office\/of39.html#n27\" title=\"\u6307\u5b9a\u3057\u305f\u30d5\u30a9\u30f3\u30c8\u304c\u4f7f\u308f\u308c\u3066\u3044\u308b\u304b\u3069\u3046\u304b\u3092\u30c1\u30a7\u30c3\u30af\u3059\u308b\" target=\"_blank\">\u4ee5\u524d\u66f8\u3044\u305f\u30b3\u30fc\u30c9<\/a>\u3068\u540c\u3058\u3067\u3001\u4e00\u6587\u5b57\u305a\u3064\u30c1\u30a7\u30c3\u30af\u7528\u306e\u95a2\u6570\u306b\u6e21\u3057\u3066\u3001\u6587\u66f8\u4e2d\u306e\u3069\u3053\u306bSymbol\u30d5\u30a9\u30f3\u30c8\u304c\u3042\u308b\u306e\u304b\u3092\u30c1\u30a7\u30c3\u30af\u3059\u308b\u3001\u3068\u3044\u3046\u3082\u306e\u3067\u3059\u3002<\/p>\n<p>Font\u30aa\u30d6\u30b8\u30a7\u30af\u30c8\u304b\u3089\u30d5\u30a9\u30f3\u30c8\u540d\u95a2\u9023\u306e\u5404\u30d7\u30ed\u30d1\u30c6\u30a3\u3092\u30c1\u30a7\u30c3\u30af\u3001\u30d5\u30a9\u30f3\u30c8\u30c0\u30a4\u30a2\u30ed\u30b0\u304b\u3089\u53d6\u5f97\u3067\u304d\u308b\u5404\u30d5\u30a9\u30f3\u30c8\u540d\u3092\u30c1\u30a7\u30c3\u30af\u3001\u8a18\u53f7\u3068\u7279\u6b8a\u6587\u5b57\u30c0\u30a4\u30a2\u30ed\u30b0\u304b\u3089\u53d6\u5f97\u3067\u304d\u308b\u30d5\u30a9\u30f3\u30c8\u540d\u3092\u30c1\u30a7\u30c3\u30af\u3001\u3053\u308c\u3060\u3051\u3084\u308c\u3070\u3055\u3059\u304c\u306b\u6f0f\u308c\u306a\u304f\u30c1\u30a7\u30c3\u30af\u3067\u304d\u308b\u306e\u3067\u306f\u306a\u3044\u304b\u3068\u601d\u3044\u307e\u3059\u3002<\/p>\n<p>\u30db\u30f3\u30c8\u306f\u4e0b\u8a18\u30b3\u30fc\u30c9\u306e\u3088\u3046\u306bRange\u3084Selection\u304b\u53d6\u5f97\u3067\u304d\u308bXML\u304b\u3089\u5224\u5225\u3059\u308b\u65b9\u6cd5\u3082\u8003\u3048\u305f\u306e\u3067\u3059\u304c\u3001\u52b9\u7387\u304c\u60aa\u305d\u3046\u306a\u306e\u3067\u6b62\u3081\u306b\u3057\u307e\u3057\u305f\u3002<\/p>\n<pre class=\"brush: vb; title: ; notranslate\" title=\"\">Dim node As Object\r\nDim attr As Object\r\n\r\nWith CreateObject(&quot;MSXML2.DOMDocument&quot;)\r\n  If .LoadXML(Selection.XML) = True Then\r\n    Set node = .SelectSingleNode(&quot;\/w:wordDocument\/w:body\/wx:sect\/w:p\/w:r\/w:sym&quot;)\r\n    If Not node Is Nothing Then\r\n      Set attr = node.Attributes.getNamedItem(&quot;w:font&quot;)\r\n      If Not attr Is Nothing Then\r\n        If LCase(attr.NodeValue) = LCase(&quot;Symbol&quot;) Then MsgBox &quot;Symbol\u30d5\u30a9\u30f3\u30c8\u3067\u3059\u3002&quot;\r\n      End If\r\n    End If\r\n  End If\r\nEnd With<\/pre>\n<p>\u4e00\u6587\u5b57\u305a\u3064\u306e\u30c1\u30a7\u30c3\u30af\u306b\u306a\u308b\u305f\u3081\u3001\u52d5\u4f5c\u901f\u5ea6\u3068\u3057\u3066\u306f\u901f\u3044\u3082\u306e\u3067\u306f\u3042\u308a\u307e\u305b\u3093\u304c\u3001Symbol\u30d5\u30a9\u30f3\u30c8\u306e\u5bfe\u5fdc\u306b\u82e6\u616e\u3055\u308c\u3066\u3044\u308b\u65b9\u306e\u53c2\u8003\u306b\u306a\u308c\u3070\u5e78\u3044\u3067\u3059\u3002<\/p>\n","protected":false},"excerpt":{"rendered":"\u6587\u5b57\u5217\u3092\u30e1\u30e2\u5e33\u306b\u30b3\u30d4\u30fc\uff06\u30da\u30fc\u30b9\u30c8\u3059\u308b\u3068\u6587\u5b57\u5316\u3051\u3057\u305f\u308a\u3001\u30d5\u30a9\u30f3\u30c8\u6307\u5b9a\u3067\u691c\u7d22\u3057\u3066\u3044\u308b\u306e\u306b\u4f55\u6545\u304b\u30d2\u30c3\u30c8\u3057\u306a\u304b\u3063\u305f\u308a\u3001Word\u30de\u30af\u30ed\u3092\u66f8\u304f\u4eba\u9593\u306b\u3068\u3063\u3066\u4f55\u304b\u3068\u5384\u4ecb\u306a\u306e\u304c\u201cSymbol(\u30b7\u30f3\u30dc\u30eb)\u30d5\u30a9\u30f3\u30c8\u201d\u3067\u3059\u3002 \u30e9\u30a4\u30bf\u30fc\u3084\u7ffb\u8a33\u8005\u306a [&hellip;]","protected":false},"author":1,"featured_media":7134,"comment_status":"open","ping_status":"closed","sticky":false,"template":"","format":"standard","meta":{"_jetpack_memberships_contains_paid_content":false,"footnotes":"","jetpack_publicize_message":"Symbol\u30d5\u30a9\u30f3\u30c8\u3068\u805e\u304f\u3060\u3051\u3067\u300c\u3046\u3063\uff01\u300d\u3068\u306a\u308b\u306e\u304cWord VBAer\uff01 [\u5fb9\u5e95\u7684\u306bSymbol(\u30b7\u30f3\u30dc\u30eb)\u30d5\u30a9\u30f3\u30c8\u3092\u30c1\u30a7\u30c3\u30af\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-5752","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-Word.png","jetpack_shortlink":"https:\/\/wp.me\/p4UZZr-1uM","jetpack_sharing_enabled":true,"_links":{"self":[{"href":"https:\/\/www.ka-net.org\/blog\/index.php?rest_route=\/wp\/v2\/posts\/5752","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=5752"}],"version-history":[{"count":2,"href":"https:\/\/www.ka-net.org\/blog\/index.php?rest_route=\/wp\/v2\/posts\/5752\/revisions"}],"predecessor-version":[{"id":5754,"href":"https:\/\/www.ka-net.org\/blog\/index.php?rest_route=\/wp\/v2\/posts\/5752\/revisions\/5754"}],"wp:featuredmedia":[{"embeddable":true,"href":"https:\/\/www.ka-net.org\/blog\/index.php?rest_route=\/wp\/v2\/media\/7134"}],"wp:attachment":[{"href":"https:\/\/www.ka-net.org\/blog\/index.php?rest_route=%2Fwp%2Fv2%2Fmedia&parent=5752"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/www.ka-net.org\/blog\/index.php?rest_route=%2Fwp%2Fv2%2Fcategories&post=5752"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/www.ka-net.org\/blog\/index.php?rest_route=%2Fwp%2Fv2%2Ftags&post=5752"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}