将主幻灯片应用于多个powerpoint

Question

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

因此，如果有人可以提供帮助，我们将不胜感激。代码应该：

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

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

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

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

   • 应用新的主模板

   • save＆amp;靠近

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

Answer 1

不确定您的意思＆＃34;删除链接＆＃34;但要应用其他模板，您需要打开演示文稿，然后：

ActivePresentation.ApplyTemplate sTemplate

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

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

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

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