PowerPoint - 为所有幻灯片设置语言

问题描述

我经常收到用法语写的PowerPoint文档，我需要将语言设置为法语进行修订和更正。

I regularly receive PowerPoint documents that are written in French and i need to set the language to French for revision and correction.

我已经尝试了很多解决方案在论坛上（比如将视图设置为Panel并选择所有文本），但这对我不起作用。

I have tried already a lot of solution found on Forums (like setting the view to Panel and selecting all the text) but this does not work for me.

我找到了一个宏，我已将其保存为加载项，几乎适合我，但由于某种原因，一些文字（特别是在表格中仍然设置为英文）。

I have found a Macro that i have saved as an add-in that almost works for me but for some reason some text (especially in tables are still set to English).

这是宏代码：

Sub SetLangFR()
Dim scount, j, k, fcount
scount = ActivePresentation.Slides.Count
For j = 1 To scount
fcount = ActivePresentation.Slides(j).Shapes.Count
For k = 1 To fcount 'change all shapes:
If ActivePresentation.Slides(j).Shapes(k).HasTextFrame Then
ActivePresentation.Slides(j).Shapes(k).TextFrame _
.TextRange.LanguageID = msoLanguageIDFrench
End If
Next k
fcount = ActivePresentation.Slides(j).NotesPage.Shapes.Count
For k = 1 To fcount 'change all shapes:
If ActivePresentation.Slides(j).NotesPage.Shapes(k).HasTextFrame Then
ActivePresentation.Slides(j).NotesPage.Shapes(k).TextFrame _
.TextRange.LanguageID = msoLanguageIDFrench
End If
Next k
Next j
End Sub

推荐答案

PowerPoint对象model提供
DefaultLanguageID 属性，允许
设置演示文稿的默认语言。你有没有机会设置它？

The PowerPoint object model provides the DefaultLanguageID property for the Presentation class which allows to set the default language of a presentation. Did you have a chance to set it?

这篇关于PowerPoint - 为所有幻灯片设置语言的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持！