Zmiana języka sprawdzania pisowni w prezentacji programu PowerPoint

Wiem, że odpowiedź została już zaakceptowana (której dałem +1, ponieważ działa i jest dobrze napisana), ale dla niektórych osób pomysł tworzenia, zapisywania i używania makra może być zbyt przerażający (lub mogą mieć ustawienia zabezpieczeń, które utrudniają osiągnięcie tego celu). Łatwiejszym rozwiązaniem jest więc użycie do tego celu normalnej, wbudowanej funkcjonalności. Sztuczka polega na tym, aby móc wybrać wszystkie obiekty na wszystkich slajdach jednocześnie, a nie same slajdy, a to można łatwo osiągnąć w widoku konspektu (niestety jest to funkcja nie w pełni wykorzystywana, ale świetna do reorganizacji zestawu slajdów, promowania i degradowania całych fragmentów, np. kulki > nowe slajdy lub odwrotnie).

Nie mam PowerPoint 2002 (“XP”), więc nie jestem pewien, czy trzeba postępować zgodnie z instrukcjami dla 2000 lub 2003, więc mogę pokryć obie tutaj:

• W PP 2000: Przejdź do widoku konspektu, który jest drugą ikoną od lewej na dole po lewej stronie ekranu (wygląda jak linie z wcięciami).
• W PP 2003 i późniejszych: Przejdź do “normalnego” widoku (układ trzyszybowy) i na górze nawigatora slajdów wybierz “konspekt”, a nie “slajdy”

W starszych wersjach upewnij się, że masz widoczny pasek narzędzi Outlining (Widok > Paski narzędzi > Outlining) i kliknij przycisk Rozwiń wszystko (późniejsze wersje pozwalają na to poprzez kliknięcie prawym przyciskiem myszy).

• Ctrl-A, aby zaznaczyć wszystko.
• Narzędzia > Język > Wybierz język, który chcesz ustawić.
• (z Powerpoint 2013) REVIEW > Language > Set Proofing language

Zadanie wykonane.

Podobnie, gdy masz wszystko wybrane, możesz zmienić inne rzeczy, takie jak czcionki, kolory itp. Chociaż oczywiście w wielu przypadkach lepiej jest to zrobić poprzez zmianę wzorca slajdów, prezentacja, która miała wielu edytorów może mieć wiele “twardych” ustawień formatowania, które odbiegają od podstawowego wzorca i wymagają zresetowania, aby były spójne. Można również zresetować poszczególne slajdy do stylu wzorcowego, ale może to spowodować również przesunięcie pól zastępczych, co w niektórych sytuacjach może być niepożądane.

Ten wątek ](http://www.proz.com/forum/office_applications/34774-set_language_in_entire_ppt_presentation.html) zawiera odpowiedź, która zadziałała dla mnie.

Kroki, które wykonałem były następujące:

1. Utwórz nowe makro:
   1.1. Przejdź do Narzędzia, Makro, Edytor Visual Basic.
   1.2. Wstaw nowy pusty moduł wybierając Insert, Module.

2. Wklej ten kod w prawym panelu i zapisz makro:

3. Wykonaj makro (naciskając F5 w edytorze lub wybierając Tools, Macro, Macros, ChangeSpellCheckingLanguage i klikając Run).

Następnie wszystkie elementy tekstowe w prezentacji będą miały nowy język pisowni.

Po wielu prezentacjach, gdzie robiłem to ręcznie lub używałem jednorazowego makra, w końcu się przełamałem i zrobiłem z tego porządny dodatek do PowerPointa.

Zamieściłem go na mojej stronie internetowej: PowerPoint LanguageFixer

Zajmuje się on:

• ustawieniem domyślnego języka
• wszystkimi kształtami z ramkami tekstowymi
• ramkami tekstowymi w zgrupowanych kształtach (w miarę możliwości)
• tekstem w tabelach
• rzeczami na slajdzie/notatce/handoucie master

Wystarczy ustawić jedno z pól tekstowych na wybrany język, zaznaczyć je i kliknąć przycisk.

Oto dwie opcje w zależności od sytuacji:

Sytuacja 1: Pochodząca kopia pakietu Office została zainstalowana z nośnika instalacyjnego opartego na kanadyjskim języku francuskim.

Będziesz mógł ustawić język domyślny na angielski, ale podstawowe funkcje będą używać języka natywnego nośnika instalacyjnego.

Jedynym rozwiązaniem jest odinstalowanie kanadyjsko-francuskiej wersji i zainstalowanie z angielskiego nośnika instalacyjnego lub skopiowanie/wklejenie całej prezentacji do nowego dokumentu i ponowne sformatowanie.

.

Sytuacja 2: Wszystko wydaje się być po angielsku, ale w ograniczonych okolicznościach pojawiają się języki obce.

W tej sytuacji, oto instrukcje naprawy dla Office 2002:

1. Kliknij menu Start
2. Wskazać na Programy
3. Wskaż Microsoft Office Tools
4. Kliknij Microsoft Office XP Ustawienia językowe.
   
5. Kliknij zakładkę Włączone języki.
   
6. Przejdź do pola Domyślna wersja pakietu Microsoft Office
7. Wybierz żądany język
8. Kliknij przycisk OK. Pojawi się komunikat informujący, jakie zmiany zostaną wprowadzone.
   
9. Kliknij Kontynuuj

Mam nadzieję, że to pomoże.

Kod zamieszczony przez Leonardo ](https://superuser.com/a/61306/245595) jest prosty i ogólnie skuteczny, ale nie będzie miał wpływu na Shape w grupach. Bardziej ogólny kod używa rekurencji, aby poradzić sobie również z tym przypadkiem (nieco zmieniony z tutaj , który jest w tym samym wątku co kod Leonarda):

Private Function ChangeLangOfAllText_caller()
    'ChangeLangOfAllText (msoLanguageIDEnglishUS)
    ChangeLangOfAllText (msoLanguageIDSpanishArgentina)
End Function

Private Function ChangeLangOfAllText(ByVal LangID As Long)
    Dim MySlide As Slide
    Dim MyShape As Shape
    Dim MyD As Design
    Dim MyHeaderFooter As HeaderFooter
    Dim i, nbs As Integer
    ''''' First deal with the master slides
    For Each MyD In ActivePresentation.Designs
        For Each MyShape In MyD.SlideMaster.Shapes
            ProcessShapes MyShape, LangID
        Next MyShape
    Next MyD
    ''''' Now deal with the slides
    ' Enable this for debugging
    'Debug.Print "File " & ActivePresentation.Name & _
      ": working with " & ActivePresentation.Slides.Count & " slides"
    For Each MySlide In ActivePresentation.Slides
        ' Enable this for debugging
        'Debug.Print " Slide index " & MySlide.SlideIndex & ", Slide number " & MySlide.SlideNumber & _
          ": working with " & MySlide.Shapes.Count & " shapes"
        For Each MyShape In MySlide.Shapes
            ProcessShapes MyShape, LangID
        Next MyShape
        ''''' Now deal with the Notes
        For Each MyShape In MySlide.NotesPage.Shapes
            ProcessShapes MyShape, LangID
        Next MyShape
        ''''' Now deal with the master ' doesn't appear to work, have to try something else
        For Each MyShape In MySlide.Master.Shapes
            ProcessShapes MyShape, LangID
        Next MyShape
    Next MySlide
End Function

Private Function ProcessShapes(MyShape As Shape, ByVal LangID As Long)
    Dim i As Integer
    If ((MyShape.Type = msoGroup) Or (MyShape.Type = msoTable)) Then
        On Error Resume Next
        For i = 1 To MyShape.GroupItems.Count
            ''' The trick is to recurse!
            ProcessShapes MyShape.GroupItems.Item(i), LangID
        Next i
    Else
        ChangeLang MyShape, LangID
    End If
End Function

Private Function ChangeLang(MyShape As Shape, ByVal LangID As Long)
    Dim i As Integer
    If (MyShape.HasTextFrame) Then
        ' Enable this for debugging
        'Debug.Print " Shape " & MyShape.ZOrderPosition & ", type: " & MyShape.Type & _
          ", has text frame: " & MyShape.HasTextFrame & ", has text: " & MyShape.TextFrame.HasText & _
          ", alt. text: " & MyShape.AlternativeText
        MyShape.TextFrame.TextRange.LanguageID = LangID
    End If
End Function

Miałem te same problemy z prezentacjami wykonanymi za pomocą niemieckiego PowerPointa i ręcznie przetłumaczonymi na język angielski. Problem polega na tym, że ustawienie języka jest w zasadzie formatowaniem, które jest stosowane do każdego elementu pola tekstowego samodzielnie.

Nie jestem świadomy żadnego wygodnego rozwiązania - musiałem albo żyć z niedopasowaniem, albo ręcznie zmieniać “format” językowy każdego indywidualnego pola tekstowego na każdym slajdzie. Nie jest to przyjemne, więc przeważnie z tym żyję.