{"id":5549,"date":"2015-04-23T14:52:13","date_gmt":"2015-04-23T05:52:13","guid":{"rendered":"http:\/\/www.ka-net.org\/blog\/?p=5549"},"modified":"2015-04-23T14:52:13","modified_gmt":"2015-04-23T05:52:13","slug":"font%e3%82%aa%e3%83%96%e3%82%b8%e3%82%a7%e3%82%af%e3%83%88%e3%81%aename%e3%83%97%e3%83%ad%e3%83%91%e3%83%86%e3%82%a3%e3%81%8b%e3%82%89%e3%83%95%e3%82%a9%e3%83%b3%e3%83%88%e5%a4%89%e6%9b%b4%e3%81%a7","status":"publish","type":"post","link":"https:\/\/www.ka-net.org\/blog\/?p=5549","title":{"rendered":"Font\u30aa\u30d6\u30b8\u30a7\u30af\u30c8\u306eName\u30d7\u30ed\u30d1\u30c6\u30a3\u304b\u3089\u30d5\u30a9\u30f3\u30c8\u5909\u66f4\u3067\u304d\u306a\u3044\u6587\u5b57\u306e\u30d5\u30a9\u30f3\u30c8\u3092\u5909\u66f4\u3059\u308bWord\u30de\u30af\u30ed"},"content":{"rendered":"<p>Msdn \u30d5\u30a9\u30fc\u30e9\u30e0\u306b\u300c<a href=\"https:\/\/social.microsoft.com\/Forums\/ja-JP\/vbajp\/thread\/e1e5be13-4000-4076-b973-44be1ca0fa98\" title=\"Word VBA\u3067\u3001\u300cCentury\u300d\u30d5\u30a9\u30f3\u30c8\u3067\u300c\u25cf\u300d\u3092\u5165\u529b\u3057\u305f\u3044\" target=\"_blank\">Word VBA\u3067\u3001\u300cCentury\u300d\u30d5\u30a9\u30f3\u30c8\u3067\u300c\u25cf\u300d\u3092\u5165\u529b\u3057\u305f\u3044<\/a>\u300d\u3068\u3044\u3046\u8cea\u554f\u304c\u3042\u308a\u307e\u3057\u305f\u3002<\/p>\n<p>\u4e0b\u8a18\u30b3\u30fc\u30c9\u306e\u3088\u3046\u306b\u30de\u30af\u30ed\u304b\u3089\u300c\u25cf\u300d(\u9ed2\u4e38(BLACK CIRCLE):U+25CF)\u3092\u5165\u529b\u3057\u3001\u30d5\u30a9\u30f3\u30c8\u3092\u5909\u66f4\u3057\u3088\u3046\u3068\u3057\u3066\u3082\u30d5\u30a9\u30f3\u30c8\u304c\u5909\u308f\u3089\u306a\u3044\u3001\u3068\u3044\u3046\u3082\u306e\u3067\u3059\u3002<\/p>\n<pre class=\"brush: vb; title: ; notranslate\" title=\"\">Public Sub Test()\r\n  With Selection\r\n    .TypeText ChrW(&amp;H25CF) '\u9ed2\u4e38(BLACK CIRCLE):U+25CF\r\n    .MoveLeft Unit:=wdCharacter, Count:=1, Extend:=wdExtend\r\n    .Font.Name = &quot;Century&quot;\r\n  End With\r\nEnd Sub<\/pre>\n<p>Word 2010\u3067\u8a66\u3057\u3066\u307f\u308b\u3068\u3001\u305f\u3057\u304b\u306b\u30d5\u30a9\u30f3\u30c8\u304c\u5909\u308f\u3089\u306a\u3044\u3088\u3046\u3067\u3059\u3002<br \/>\n\u305f\u3060\u3057\u3001\u300c\u30d5\u30a9\u30f3\u30c8\u300d\u30b3\u30f3\u30dc \u30dc\u30c3\u30af\u30b9\u3092\u624b\u52d5\u3067\u5909\u66f4\u3057\u305f\u5834\u5408\u306f\u3001\u30d5\u30a9\u30f3\u30c8\u304c\u3061\u3083\u3093\u3068\u5909\u66f4\u3067\u304d\u308b\u3088\u3046\u306a\u306e\u3067\u3001\u30de\u30af\u30ed\u304b\u3089\u30b3\u30f3\u30dc \u30dc\u30c3\u30af\u30b9\u3092\u5909\u66f4\u3059\u308b\u3001\u4e0b\u8a18\u306e\u3088\u3046\u306a\u30b3\u30fc\u30c9\u3092\u8003\u3048\u3066\u307f\u307e\u3057\u305f\u3002<\/p>\n<pre class=\"brush: vb; title: ; notranslate\" title=\"\">Option Explicit\r\n\r\nPublic Sub Sample()\r\n  TypeTextFont String(10, ChrW(&amp;H25CF)), &quot;Century&quot;\r\nEnd Sub\r\n\r\nPublic Sub TypeTextFont(ByVal Text As String, ByVal FontName As String)\r\n  Dim r As Word.Range\r\n  \r\n  Set r = Selection.Range\r\n  r.Text = Text\r\n  r.Select\r\n  With Application.CommandBars.FindControl(ID:=1728)\r\n    If .Enabled = True Then .Text = FontName '\u30d5\u30a9\u30f3\u30c8(ComboBox)\u3092\u64cd\u4f5c\r\n  End With\r\n  Selection.Collapse wdCollapseEnd\r\nEnd Sub<\/pre>\n<p>\u4eca\u56de\u306e\u5834\u5408\u306f\u300c\u25cf\u300d\u3067\u3057\u305f\u304c\u3001\u3082\u3057\u304b\u3057\u305f\u3089\u4ed6\u306b\u3082\u30d5\u30a9\u30f3\u30c8\u304c\u5909\u66f4\u3067\u304d\u306a\u3044\u6587\u5b57\u304c\u3042\u308b\u304b\u3082\u3057\u308c\u307e\u305b\u3093\u3002<br \/>\n\u305d\u3046\u3044\u3063\u305f\u5834\u5408\u306f\u3001\u4e0a\u8a18\u30de\u30af\u30ed\u3092\u304a\u8a66\u3057\u304f\u3060\u3055\u3044\u3002<\/p>\n","protected":false},"excerpt":{"rendered":"Msdn \u30d5\u30a9\u30fc\u30e9\u30e0\u306b\u300cWord VBA\u3067\u3001\u300cCentury\u300d\u30d5\u30a9\u30f3\u30c8\u3067\u300c\u25cf\u300d\u3092\u5165\u529b\u3057\u305f\u3044\u300d\u3068\u3044\u3046\u8cea\u554f\u304c\u3042\u308a\u307e\u3057\u305f\u3002 \u4e0b\u8a18\u30b3\u30fc\u30c9\u306e\u3088\u3046\u306b\u30de\u30af\u30ed\u304b\u3089\u300c\u25cf\u300d(\u9ed2\u4e38(BLACK CIRCLE):U+25CF)\u3092\u5165\u529b\u3057\u3001\u30d5\u30a9\u30f3\u30c8 [&hellip;]","protected":false},"author":1,"featured_media":7134,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"_jetpack_memberships_contains_paid_content":false,"footnotes":"","jetpack_publicize_message":"\u30b3\u30fc\u30c9\u3092\u5fd8\u308c\u306a\u3044\u3046\u3061\u306b\u8a18\u4e8b\u5316\uff01 [Font\u30aa\u30d6\u30b8\u30a7\u30af\u30c8\u306eName\u30d7\u30ed\u30d1\u30c6\u30a3\u304b\u3089\u30d5\u30a9\u30f3\u30c8\u5909\u66f4\u3067\u304d\u306a\u3044\u6587\u5b57\u306e\u30d5\u30a9\u30f3\u30c8\u3092\u5909\u66f4\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-5549","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-1rv","jetpack_sharing_enabled":true,"_links":{"self":[{"href":"https:\/\/www.ka-net.org\/blog\/index.php?rest_route=\/wp\/v2\/posts\/5549","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=5549"}],"version-history":[{"count":1,"href":"https:\/\/www.ka-net.org\/blog\/index.php?rest_route=\/wp\/v2\/posts\/5549\/revisions"}],"predecessor-version":[{"id":5550,"href":"https:\/\/www.ka-net.org\/blog\/index.php?rest_route=\/wp\/v2\/posts\/5549\/revisions\/5550"}],"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=5549"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/www.ka-net.org\/blog\/index.php?rest_route=%2Fwp%2Fv2%2Fcategories&post=5549"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/www.ka-net.org\/blog\/index.php?rest_route=%2Fwp%2Fv2%2Ftags&post=5549"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}