PowerPoint - 为所有幻灯片设置语言 [英] PowerPoint - Set language for all slides

问题描述

我经常收到用法语写的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

推荐答案

Hello Thomas，

Hello Thomas,

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 - 为所有幻灯片设置语言的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！