{"id":1004,"date":"2012-02-12T12:26:59","date_gmt":"2012-02-12T11:26:59","guid":{"rendered":"http:\/\/www.matjazev.net\/blog\/?p=1004"},"modified":"2012-02-12T12:26:59","modified_gmt":"2012-02-12T11:26:59","slug":"vsi-nabori-znakov-v-vasem-racunalniku","status":"publish","type":"post","link":"https:\/\/www.matjazev.net\/blog\/2012\/02\/12\/vsi-nabori-znakov-v-vasem-racunalniku\/","title":{"rendered":"Vsi nabori znakov v va\u0161em ra\u010dunalniku"},"content":{"rendered":"<p>V dneh, ko &#8220;se \u017eenijo pti\u010dki&#8221; in ko praznujemo uvo\u017eeni praznik zaljubljencev, se uporabniki spomnite, da bi <strong>lahko soljudem poslali kak\u0161no misel, verz&#8230; nekaj lepega pa\u010d.<\/strong><\/p>\n<p>Seveda pa ne \u017eelite, da bi to izpadlo kar tako malo mimo, temve\u010d<strong> bi \u017eeleli to izpisati s kak\u0161no lepo pisavo<\/strong> in na ra\u010dunalniku imate 200 pisav, pa sploh ne veste:<\/p>\n<ol>\n<li>Kako izgledajo<\/li>\n<li>Ali znajo natisniti \u010c, \u0160 in \u017d<\/li>\n<\/ol>\n<p><!--more--><\/p>\n<p><em>Spodaj vam prilagam majhen makro, ki vam bo v Wordu izdelal tabelo vseh naborov znakov, ki jih va\u0161 ra\u010dunalnik pozna. Hkrati pa boste tudi videli ali izbrana pisava zna natisniti \u010drke \u010c, \u0160 in \u017d (<strong>prilagam pa tudi datoteko, ki makro \u017ee vsebuje \ud83d\ude09 )<\/strong>:<\/em><\/p>\n<p><pre class=&#8221;vb&#8221;>Sub VsiFonti()\n&nbsp;&nbsp;Application.ScreenUpdating = False\n\n&nbsp;&nbsp;Dim doc As Document: Set doc = Documents.Add\n\n&nbsp;&nbsp;Dim tabela As Table: Set tabela = doc.Tables.Add(Selection.Range, FontNames.Count + 1, 2)\n\n&nbsp;&nbsp;With tabela\n&nbsp;&nbsp;&nbsp;&nbsp;.Borders.Enable = False\n&nbsp;&nbsp;&nbsp;&nbsp;.Cell(1, 1).Range.Font.Name = &quot;Arial&quot;\n&nbsp;&nbsp;&nbsp;&nbsp;.Cell(1, 1).Range.Font.Bold = 1\n&nbsp;&nbsp;&nbsp;&nbsp;.Cell(1, 1).Range.InsertAfter &quot;Font&quot;\n&nbsp;&nbsp;&nbsp;&nbsp;.Cell(1, 2).Range.Font.Bold = 1\n&nbsp;&nbsp;&nbsp;&nbsp;.Cell(1, 2).Range.InsertAfter &quot;Primer izpisa&quot;\n&nbsp;&nbsp;End With\n\n&nbsp;&nbsp;Dim vrst As Integer\n&nbsp;&nbsp;For vrst = 1 To FontNames.Count\n&nbsp;&nbsp;&nbsp;&nbsp;With tabela\n&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;.Cell(vrst + 1, 1).Range.Font.Name = &quot;Arial&quot;\n&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;.Cell(vrst + 1, 1).Range.Font.Size = 10\n&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;.Cell(vrst + 1, 1).Range.InsertAfter FontNames(vrst)\n&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;.Cell(vrst + 1, 2).Range.Font.Name = FontNames(vrst)\n&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;.Cell(vrst + 1, 2).Range.Font.Size = 10\n&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;.Cell(vrst + 1, 2).Range.InsertAfter &quot;ABC\u010cDEFGHIJKLMNOPRS\u0160TUVZ\u017d&quot; &amp;amp; vbCr &amp;amp; _\n&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; &quot;ABC\u010cDEFGHIJKLMNOPRS\u0160TUVZ\u017d&quot; &amp;amp; vbCr &amp;amp; &quot;0123456789&quot;\n&nbsp;&nbsp;&nbsp;&nbsp;End With\n&nbsp;&nbsp;Next vrst\n\n&nbsp;&nbsp;tabela.Sort SortOrder:=wdSortOrderAscending\n\n&nbsp;&nbsp;Application.ScreenUpdating = True\nEnd Sub<\/pre><\/p>\n<p><a href=\"http:\/\/www.matjazev.net\/blog\/wp-content\/uploads\/2012\/02\/VsePisave.doc\">Prilagam pa tudi datoteko<\/a>, ki omenjen makro \u017ee vsebuje in vse kar morate storiti je da:<\/p>\n<ol>\n<li>datoteko odprete,<\/li>\n<li>omogo\u010dite makre,<\/li>\n<li>pritisnete velik gumb &#8216;Izpi\u0161i vse pisave v mojem ra\u010dunalniku&#8230;&#8217;<\/li>\n<\/ol>\n<p style=\"text-align: center;\"><a href=\"http:\/\/www.matjazev.net\/blog\/wp-content\/uploads\/2012\/02\/VsePisave.doc\">..:: Datoteka z makrom ::..<\/a><\/p>\n","protected":false},"excerpt":{"rendered":"<p>V dneh, ko &#8220;se \u017eenijo pti\u010dki&#8221; in ko praznujemo uvo\u017eeni praznik zaljubljencev, se uporabniki spomnite, da bi lahko soljudem poslali kak\u0161no misel, verz&#8230; nekaj lepega pa\u010d. Seveda pa ne \u017eelite, da bi to izpadlo kar tako malo mimo, temve\u010d bi \u017eeleli to izpisati s kak\u0161no lepo pisavo in na ra\u010dunalniku imate 200 pisav, pa sploh &hellip; <a href=\"https:\/\/www.matjazev.net\/blog\/2012\/02\/12\/vsi-nabori-znakov-v-vasem-racunalniku\/\" class=\"more-link\">Continue reading <span class=\"screen-reader-text\">Vsi nabori znakov v va\u0161em ra\u010dunalniku<\/span><\/a><\/p>\n","protected":false},"author":1,"featured_media":0,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"footnotes":""},"categories":[3,35,23],"tags":[61,33,66,22,38,63],"_links":{"self":[{"href":"https:\/\/www.matjazev.net\/blog\/wp-json\/wp\/v2\/posts\/1004"}],"collection":[{"href":"https:\/\/www.matjazev.net\/blog\/wp-json\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/www.matjazev.net\/blog\/wp-json\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/www.matjazev.net\/blog\/wp-json\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"https:\/\/www.matjazev.net\/blog\/wp-json\/wp\/v2\/comments?post=1004"}],"version-history":[{"count":11,"href":"https:\/\/www.matjazev.net\/blog\/wp-json\/wp\/v2\/posts\/1004\/revisions"}],"predecessor-version":[{"id":1055,"href":"https:\/\/www.matjazev.net\/blog\/wp-json\/wp\/v2\/posts\/1004\/revisions\/1055"}],"wp:attachment":[{"href":"https:\/\/www.matjazev.net\/blog\/wp-json\/wp\/v2\/media?parent=1004"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/www.matjazev.net\/blog\/wp-json\/wp\/v2\/categories?post=1004"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/www.matjazev.net\/blog\/wp-json\/wp\/v2\/tags?post=1004"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}