将母版幻灯片应用于多个幻灯片

Question

我对此很陌生。 我有一堆想应用母版幻灯片的 PowerPoint 演示文稿。 所有powerpoints都在一个文件夹的子文件夹中（如果有意义的话）

因此，如果有人可以帮助编写代码，将不胜感激。 代码应该：

1. 打开 FileDialog 所以我可以选择文件夹（我有下面的代码）

    Sub ShowFileDialog() Dim dlgOpen As FileDialog Set dlgOpen = Application.FileDialog(Type:=msoFileDialogOpen) With dlgOpen .AllowMultiSelect = True .Show End With End Sub

2. 扫描文件夹中的powerpoints和每个ppt：

   • 删除当前主模板（包括删除链接）

   • 应用新的主模板

   • 保存并关闭

希望这是有道理的。 当前母版模板保存为名为“slidemaster”的文件。 我正在使用 MS powerpoint 2010。

Answer 1

不确定“删除链接”是什么意思，但要应用不同的模板，您需要打开一个演示文稿，然后：

ActivePresentation.ApplyTemplate sTemplate

其中 sTemplate = 包含模板的 POTX 文件的完整路径。

我的 PPTFAQ 站点上的这个页面解释了如何对与文件规范匹配的文件夹中的每个文件执行某些操作：

批处理：对文件夹中的每个文件进行处理http://www.pptfaq.com/FAQ00536_Batch-_Do_something_to_every_file_in_a_folder.htm

在这种情况下，“某事”将运行上面的代码行，然后保存文件。