将主幻灯片应用到多个电源点

Question

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

所以，如果任何人都可以帮助代码，将不胜感激。代码应该：

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

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

2. 扫描的文件夹中，并为每一个PPT 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

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