我收到了一个PowerPoint演示文稿，其中包含数十个幻灯片，每个幻灯片都有许多文本框。尽管演示文稿是用英语编写的，但是拼写检查的语言设置为加拿大法语。我试图将语言更改为英语，但是即使我选择了所有幻灯片并在“语言”对话框中选择了一个新元素，文本框的语言也保持不变。因此，我必须依次滑动幻灯片，选择文本框，然后分别更改语言。
有一个更好的方法吗？
我已经安装的PowerPoint版本是2002 SP3。
该主题包含对我有用的答案。
我遵循的步骤是：
将此代码粘贴在右侧面板上并保存宏：
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可以用任何所需的语言替换。完整的语言列表可以在这里找到。
执行宏（通过在编辑器中按F5，或选择“工具”，“宏”，“宏”，“ ChangeSpellCheckingLanguage”，然后单击“运行”）。
之后，演示文稿中的所有文本元素将具有新的拼写语言。
本文收集自互联网，转载请注明来源。
如有侵权，请联系[email protected] 删除。
我来说两句