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

Я получил презентацию PowerPoint с десятками слайдов, каждая из которых имеет несколько текстовых полей. Хотя презентация написана на английском языке, язык проверки орфографии установлен на канадский французский. Я пытаюсь изменить язык на английский, но даже если я выберу все слайды и выберу новый элемент в диалоговом окне «Язык», язык текстовых полей останется прежним. Поэтому я должен перейти слайдом, выбрав текстовые поля, а затем изменив язык по отдельности.

Есть лучший способ сделать это?

Версия PowerPoint, которую я установил, – 2002 SP3.

6 Solutions collect form web for “Измените язык проверки орфографии в презентации PowerPoint”

Я знаю, что уже был принят ответ (который я дал +1, поскольку он работает и хорошо написан), но для некоторых людей идея создания, сохранения, использования макроса может быть слишком страшной (или у них могут быть настройки безопасности в Место, из-за чего это трудно достичь). Поэтому проще использовать обычные встроенные функции для этого. Хитрость заключается в том, чтобы иметь возможность выбирать все объекты на всех слайдах одновременно, а не сами слайды, и это легко достигается в представлении «Контур» (к сожалению, недостаточно используемая функция, но отлично подходит для реорганизации слайдовой колоды, продвижения и понижения Целые куски, например, пули> новые слайды или наоборот).

У меня нет PowerPoint 2002 («XP»), поэтому я не уверен, что вам нужно следовать инструкциям 2000 или 2003 года, поэтому я описываю оба здесь:

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

В более старых версиях убедитесь, что панель инструментов «Обводка» видна (« Вид» > « Панели инструментов» > « Очертание» ), и нажмите кнопку « Развернуть все» (в последующих версиях вы можете получить это путем правого щелчка).

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

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

Аналогично, если у вас есть все, вы можете изменить другие вещи, такие как шрифты, цвета и т. Д. Хотя, конечно, во многих случаях это лучше сделать, изменив мастер слайдов, презентация, в которой было много редакторов, может иметь множество «жестких» форматирования, которые Отклоняется от основного мастера и требует сброса, чтобы быть последовательным. Вы также можете сбросить отдельные слайды на мастер-стиль, но это может привести к тому, что перемещаемые места также будут перемещены, что может быть нежелательным в некоторых ситуациях.

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

Следующие шаги были следующими:

  1. Создайте новый макрос:
    1.1. Перейдите в Инструменты, Макро, Редактор Visual Basic.
    1.2. Вставьте новый пустой модуль, выбрав «Вставить», «Модуль».
  2. Вставьте этот код на правую панель и сохраните макрос:

    Option Explicit Public Sub ChangeSpellCheckingLanguage() Dim j As Integer, k As Integer, scount As Integer, fcount 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 = msoLanguageIDEnglishAUS End If Next k Next j End Sub 

    msoLanguageIDEnglishAUS можно заменить любым желаемым языком. Полный список языков можно найти здесь .

  3. Выполните макрос (нажав F5 в редакторе или выбрав «Инструменты», «Макро», «Макросы», «ChangeSpellCheckingLanguage» и «Выполнить»).

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

После многих презентаций, где я сделал это вручную или использовал одноразовый макрос, я, наконец, сломался и превратил его в надлежащую надстройку PowerPoint.

Я загрузил его на свой веб-сайт: PowerPoint LanguageFixer

Он заботится:

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

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

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


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

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

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

,


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

В этой ситуации здесь приведены инструкции по ремонту для Office 2002:

  1. Нажмите меню «Пуск»
  2. Укажите на программы
  3. Укажите Microsoft Office Tools
  4. Нажмите Настройки языка Microsoft Office XP.
  5. Перейдите на вкладку «Включенные языки».
  6. Перейдите в версию Microsoft Office по умолчанию.
  7. Выберите нужный язык.
  8. Нажмите «ОК». Появится сообщение о том, какие изменения будут внесены.
  9. Нажмите «Продолжить».

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

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

Я не знаю о каком-либо удобном решении – мне приходилось либо жить с несоответствием, либо вручную менять «формат» каждого отдельного текстового поля на каждом слайде. Не весело, так что в основном я живу с ним.

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

 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 на Mac
  • Создайте PDF-файл из PowerPoint с анимацией
  • Как я могу анимировать диаграмму PowerPoint?
  • Изменение границ файла excel, встроенного в powerpoint
  • Файл поступает с другого компьютера и может быть заблокирован
  • Программное обеспечение для конвертации слайд-шоу Powerpoint в изображения?
  • Изменение макета слайдов по умолчанию в Powerpoint
  • Как изменить язык всех слайдов Powerpoint сразу?
  • Отключить прокрутку до следующего слайда в режиме редактирования Powerpoint
  • В PowerPoint существует ли способ создания печатной версии анимированного слайда?
  • Как объединить видео с файлом PowerPoint?
  • Interesting Posts

    Как добавить раздел Windows 7 в список доступных ОС для grub2?

    Драйверы графической подсистемы Intel – проблемы с оттенком?

    Проблема веб-камеры с skype на linux

    В командной строке Windows «Запуск командной строки, как открыть« Мой компьютер »?

    Запустите программу в пакетном скрипте и дождитесь ее завершения, прежде чем продолжить

    Обновление для разработчиков Windows 10 – игнорируйте рекомендации «производительность и здоровье»?

    Кто должен владеть корневой папкой диска?

    Определите неизвестный IP-адрес в нашей сети

    Acer Aspire V5 подключается к беспроводной сети и проблема близости

    Установите Windows XP на жесткий диск USB и запустите с него

    Статическая маршрутизация на TP-Link TL-WR1043ND

    Сохранить вывод Ping в текстовом файле

    Ubuntu против Mac OS

    Untar, ungz, gz, tar – как вы помните все полезные опции?

    Любой способ заставить панель задач Windows спрятаться (если в режиме «автоматического скрытия»)

    Давайте будем гением компьютера.