{"id":98,"date":"2013-09-01T12:34:12","date_gmt":"2013-09-01T10:34:12","guid":{"rendered":"https:\/\/kszyh.kisim.eu.org\/?p=98"},"modified":"2014-02-21T10:25:49","modified_gmt":"2014-02-21T09:25:49","slug":"zmiana-jezyka-wszystkich-slajdow-w-powerpoint-na-angielski","status":"publish","type":"post","link":"https:\/\/kszyh.kisim.eu.org\/?p=98","title":{"rendered":"Zmiana j\u0119zyka wszystkich slajd\u00f3w w PowerPoint na angielski"},"content":{"rendered":"<pre class=\"lang:vb\" title=\"Visual basic script\">Sub Jezyk()\r\n    Dim j, k, m, scount, fcount, gcount As Integer\r\n    scount = ActivePresentation.Slides.Count\r\n    For j = 1 To scount\r\n        fcount = ActivePresentation.Slides(j).Shapes.Count\r\n        For k = 1 To fcount\r\n            If ActivePresentation.Slides(j).Shapes(k).HasTextFrame Then\r\n                ActivePresentation.Slides(j).Shapes(k) _\r\n                .TextFrame.TextRange.LanguageID = msoLanguageIDEnglishUS\r\n            End If\r\n            If ActivePresentation.Slides(j).Shapes(k).Type = msoGroup Then\r\n                gcount = ActivePresentation.Slides(j).Shapes(k).GroupItems.Count\r\n                For m = 1 To gcount\r\n                    If ActivePresentation.Slides(j).Shapes(k).GroupItems.Item(m).HasTextFrame Then\r\n                    ActivePresentation.Slides(j).Shapes(k).GroupItems.Item(m) _\r\n                    .TextFrame.TextRange.LanguageID = msoLanguageIDEnglishUS\r\n            End If\r\n                Next m\r\n            End If\r\n        Next k\r\n    Next j\r\nEnd Sub<\/pre>\n","protected":false},"excerpt":{"rendered":"<p>Sub Jezyk() Dim j, k, m, scount, fcount, gcount As Integer scount = ActivePresentation.Slides.Count For j = 1 To scount fcount = ActivePresentation.Slides(j).Shapes.Count For k = 1 To fcount If ActivePresentation.Slides(j).Shapes(k).HasTextFrame Then ActivePresentation.Slides(j).Shapes(k) _ .TextFrame.TextRange.LanguageID = msoLanguageIDEnglishUS End If If ActivePresentation.Slides(j).Shapes(k).Type = msoGroup Then gcount = ActivePresentation.Slides(j).Shapes(k).GroupItems.Count For m =&#8230; <a class=\"continue-reading-link\" href=\"https:\/\/kszyh.kisim.eu.org\/?p=98\"> Continue reading <span class=\"meta-nav\">&rarr; <\/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":[9,5],"tags":[34],"class_list":["post-98","post","type-post","status-publish","format-standard","hentry","category-lifehacking","category-windows","tag-powerpoint"],"_links":{"self":[{"href":"https:\/\/kszyh.kisim.eu.org\/index.php?rest_route=\/wp\/v2\/posts\/98","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/kszyh.kisim.eu.org\/index.php?rest_route=\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/kszyh.kisim.eu.org\/index.php?rest_route=\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/kszyh.kisim.eu.org\/index.php?rest_route=\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"https:\/\/kszyh.kisim.eu.org\/index.php?rest_route=%2Fwp%2Fv2%2Fcomments&post=98"}],"version-history":[{"count":6,"href":"https:\/\/kszyh.kisim.eu.org\/index.php?rest_route=\/wp\/v2\/posts\/98\/revisions"}],"predecessor-version":[{"id":141,"href":"https:\/\/kszyh.kisim.eu.org\/index.php?rest_route=\/wp\/v2\/posts\/98\/revisions\/141"}],"wp:attachment":[{"href":"https:\/\/kszyh.kisim.eu.org\/index.php?rest_route=%2Fwp%2Fv2%2Fmedia&parent=98"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/kszyh.kisim.eu.org\/index.php?rest_route=%2Fwp%2Fv2%2Fcategories&post=98"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/kszyh.kisim.eu.org\/index.php?rest_route=%2Fwp%2Fv2%2Ftags&post=98"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}