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

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

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

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

  • Арабский в Powerpoint на Mac
  • Нужно ли форматировать отрицательные числа красным цветом в таблице в Powerpoint 2010?
  • Как динамически вставлять текст из внешнего файла в слайд Powerpoint?
  • Изменение макета слайдов по умолчанию в Powerpoint
  • Отключить белый фон вложенного текста в PowerPoint
  • Как я могу использовать сортировщик слайдов PowerPoint на экране моего ноутбука и полноэкранный слайд на проекторе?
  • Как сделать файлы Powerpoint открытыми с помощью Quick Look по умолчанию в Mac OS X?
  • PowerPoint: отображать только объекты, относящиеся к определенному шагу анимации
  • 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 
    Interesting Posts
    Давайте будем гением компьютера.