Leo*_*rdo 45 language spell-check microsoft-powerpoint
我收到了一份包含数十张幻灯片的 PowerPoint 演示文稿,每张幻灯片都有许多文本框。尽管演示文稿是用英语编写的,但拼写检查的语言设置为加拿大法语。我正在尝试将语言更改为英语,但即使我选择所有幻灯片并在“语言”对话框中选择一个新元素,文本框的语言仍保持不变。所以我必须通过滑动选择文本框,然后单独更改语言。
有一个更好的方法吗?
我安装的 PowerPoint 版本是 2002 SP3。
Ada*_*amV 37
我知道一个答案已经被接受(我给了 +1,因为它有效并且写得很好),但是对于某些人来说,创建、保存、使用宏的想法可能太可怕了(或者他们可能在难以实现的地方)。所以一个更简单的解决方案是使用普通的内置功能来做到这一点。诀窍是能够一次选择所有幻灯片上的所有对象,而不是幻灯片本身,这在大纲视图中很容易实现(遗憾的是,这是一个未充分利用的功能,但非常适合重新组织幻灯片,提升和降级整个块,例如项目符号 > 新幻灯片,反之亦然)。
我没有 PowerPoint 2002(“XP”),所以我不确定您是否需要按照 2000 或 2003 的说明进行操作,因此我在此处介绍了两者:
在旧版本中,请确保大纲工具栏可见 ( View> Toolbars> Outlining) 并单击Expand all按钮(更高版本允许您通过右键单击来实现)。
任务完成。
同样,当您选择了所有内容时,您可以更改其他内容,例如字体、颜色等。当然,在许多情况下,这最好通过更改幻灯片母版来完成,但有许多编辑器的演示文稿可能有很多“硬”格式设置,偏离底层master,需要重置才能保持一致。您还可以将单个幻灯片重置为母版样式,但这可能会导致占位符移动,这在某些情况下可能是不可取的。
Leo*_*rdo 18
该线程包含对我有用的答案。
我遵循的步骤是:
将此代码粘贴到右侧面板上并保存宏:
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
Run Code Online (Sandbox Code Playgroud)
msoLanguageIDEnglishAUS可以替换为任何所需的语言。可以在此处找到完整的语言列表。
执行宏(通过在编辑器中按 F5,或通过选择工具、宏、宏、ChangeSpellCheckingLanguage,然后单击运行)。
之后,演示文稿中的所有文本元素都将使用新的拼写语言。
| 归档时间: |
|
| 查看次数: |
146829 次 |
| 最近记录: |