Archiwa tagu: PowerPoint

Zmiana języka wszystkich slajdów w PowerPoint na angielski

przez kszyh | 1 września 2013 - 12:34 |21 lutego 2014 Lifehacking, Windows

Dodaj komentarz

Visual basic script

Visual Basic

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 = 1 To gcount If ActivePresentation.Slides(j).Shapes(k).GroupItems.Item(m).HasTextFrame Then ActivePresentation.Slides(j).Shapes(k).GroupItems.Item(m) _ .TextFrame.TextRange.LanguageID = msoLanguageIDEnglishUS End If Next m End If Next k Next j End Sub

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22

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 = 1 To gcount                     If ActivePresentation.Slides(j).Shapes(k).GroupItems.Item(m).HasTextFrame Then                     ActivePresentation.Slides(j).Shapes(k).GroupItems.Item(m) _                     .TextFrame.TextRange.LanguageID = msoLanguageIDEnglishUS             End If                 Next m             End If         Next k     Next j End Sub