Изменение языка проверки правописания на презентации PowerPoint

Я знаю, что ответ уже принят (что я дал +1, так как он работает и хорошо написан), но некоторым людям идея создания, сохранения, использования макроса может быть слишком страшной (или у них могут быть настройки безопасности, которые делают это труднодостижимым). Поэтому более простое решение - использовать для этого обычную встроенную функциональность. Фокус в том, чтобы иметь возможность выбрать все объекты на всех слайдах сразу, а не сами слайды, и это легко достигается в Outline view (к сожалению, недоиспользованная функция, но отлично подходит для реорганизации слайд колоды, продвижение и понижение в должности целые куски, например, пули > новые слайды или наоборот). 0x2 и 0x2 и у меня нет PowerPoint 2002 (“XP”), так что я не уверен, если вам нужно следовать инструкциям для 2000 или 2003 года, так что я охватываю оба здесь:

• в PP 2000: Перейдите к контурному виду, который является вторым значком слева в нижней левой части экрана (выглядит как линии с отступами).
• в PP 2003 и далее: Перейдите к “нормальному” виду (трехпанельная раскладка) и в верхней части навигатора слайдов выберите “контур”, а не “слайды”

В более старых версиях, убедитесь, что у вас видна панель инструментов Outlining (Вид > Панели инструментов > Outlining) и нажмите кнопку Expand all (в более поздних версиях вы можете сделать это с помощью правой кнопки мыши).

• Ctrl-A для выбора всех.
• Инструменты > Язык > Выберите язык для установки.
• (из Powerpoint 2013) ОБЗОР > Язык > Установить язык проверки

Работа выполнена.

Точно так же, пока у вас все выбрано, вы можете менять другие вещи, такие как шрифты, цвета и т.д. Хотя, конечно, во многих случаях это лучше сделать путем изменения мастера слайдов, презентация, в которой было много редакторов, может иметь много “жестких” настроек форматирования, которые отклоняются от основного мастера и нуждаются в переустановке, чтобы быть последовательной. Можно также сбросить отдельные слайды в стиль мастера, но это может привести и к перемещению плацдармов, что в некоторых ситуациях может быть нежелательно.

Этот поток содержит ответ, который работал на меня.

Шаги, которым я следовал:

1. Создать новый макрос:
   1.1. Перейдите в раздел “Инструменты”, “Макро”, “Визуальный базовый редактор”.
   1.2. Вставьте новый пустой модуль, выбрав Вставить, Модуль.

2. Вставьте этот код на правой панели и сохраните макрос:

3. Выполните макрос (нажав клавишу F5 в редакторе или выбрав Tools (Инструменты), Macro (Макро), Macros (Макросы), ChangeSpellCheckingLanguage (ИзменитьSpellCheckingLanguage) и нажав Run (Запуск)).

После этого все текстовые элементы в презентации будут иметь новый язык орфографии.

После многих презентаций, где я сделал это вручную или с помощью одноразового макроса, я, наконец, сломался и сделал его в правильном PowerPoint Add-In. 0x2 и 0x2 и я загрузил его на свой сайт: [ PowerPoint LanguageFixer ]0x3 & 0x2 & 0x2 & Он заботится:

• установка языка по умолчанию
• все фигуры с текстовыми рамками
• текстовые рамки в сгруппированных фигурах (насколько это возможно)
• текст в таблицах
• материал на слайде/заметке/раздаточном мастере

Просто установите одно из текстовых полей на нужный вам язык, выделите его и нажмите кнопку.

Вот два варианта в зависимости от вашей ситуации:

Ситуация 1: Исходная копия Office была установлена с установочного носителя на канадском французском языке.

Вы сможете установить язык по умолчанию на английский, но основные функции будут использовать родной язык установочного носителя.

Единственное исправление - это удаление канадской французской версии и установка с англоязычного установочного носителя или копирование/вставка всей презентации в новый документ и переформатирование.

.

Ситуация 2: Кажется, что все по-английски, но в ограниченных обстоятельствах появляются иностранные языки.

В этой ситуации, вот инструкции по ремонту Office 2002:

1. Нажмите Пусковое меню
2. Наведите курсор на программы
3. Наведите курсор на Microsoft Office Tools
4. Щелкните Microsoft Office XP Language Settings (Языковые настройки Microsoft Office XP).
   
5. Перейдите на вкладку Включенные языки.
   
6. Перейдите к версии Microsoft Office по умолчанию
7. Выберите нужный язык
8. Нажмите OK. Появится сообщение о том, какие изменения будут внесены.
   
9. Нажмите Продолжить

Надеюсь, это поможет.

Код, размещенный Леонардо прост и в целом эффективен, но он не повлияет на Shapes в группах. Более общий код также использует рекурсию для работы с этим случаем (слегка измененный из здесь , который находится в том же потоке, что и код Леонардо):

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

У меня были те же проблемы с презентациями, сделанными с немецким PowerPoint и быть вручную переведены на английский язык. Проблема в том, что настройка языка по сути представляет собой форматирование, которое применяется к каждому элементу текстового поля по отдельности. 0x2 и 0x2 и я не знаю ни одного удобного решения - мне приходилось либо жить с несовпадением, либо вручную менять язык “формата” каждого отдельного текстового поля на каждом слайде. Не весело, так что в основном я живу с этим.