將母版幻燈片應用於多個幻燈片

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

在這種情況下，“某事”將運行上面的代碼行，然后保存文件。