按下 ctrl + H 快捷鍵，彈出“替換”視窗

這個操作如果手工操作的話，估計做到打哈欠都未必所有的PPT都確定已經把對應的文字刪除了。而PPT又沒有相應的公式，使用查詢功能也只能實現單個PPT的操作。所以，只能採用PPT VBA 實現。下面就介紹使用PPT VBA一次性刪除掉相同的文字吧。

【需求】有5000份PPT，需要將該文件中的“ABC”文字去掉。

以下是本人建立的PPT。

檔案路徑放在：

【操作方法】

一、在其它路徑下新建一份PPT，如在E:\，如下圖：

四、將以下程式碼複製到剛才建立的編輯區

------------程式碼區-----------------

Sub changeFileFont()

Dim pres As Presentation

Dim s As Slide

Dim shp As Shape

Dim oTxtRng As TextRange

Dim oTmpRng As TextRange

Dim fs, f, f1, fc

Set fs = CreateObject("Scripting.FileSystemObject")

Set fc = f.Files

For Each f1 In fc

If f1 Like "*.pptx" Then

Debug.Print f1

Set pres = Presentations.Open(FileName:=f1)

For Each s In ActivePresentation.Slides

For Each shp In s.Shapes

If shp.HasTextFrame Then

If shp.TextFrame.HasText Then

Set oTxtRng = shp.TextFrame.TextRange

Set oTmpRng = oTxtRng.Replace("ABC", "", WholeWords:=msoTrue) "此處的"ABC"為我們實際中要查詢的內容,可根據需要將ABC輸成其他文字.

Do While Not oTmpRng Is Nothing

Set oTmpRng = oTxtRng.Replace("ABC", "", WholeWords:=msoTrue) "此處的"ABC"為我們實際中要查詢的內容,可根據需要將ABC輸成其他文字.

Loop

End If

End If

Next

Next

ActiveWindow.ViewType = ppViewSlide

pres.Save

pres.Close

End If

Next

End Sub

-------------程式碼區------------------

如下圖：

六、最終的效果：

【注】選單欄沒有顯示【開發工具】調出方法

於【檔案】選單欄中選擇【選項】，在彈出的視窗中如下圖所示，將開發工具打勾即可。

你說的是不是模板？

PPT中的模板又稱母版，幻燈片母版用於設定幻燈片的樣式，可供使用者設定各種標題文字、背景、屬性等，只需更改一項內容就可更改所有幻燈片的設計。在PowerPoint中有3種母版：幻燈片母版、講義母版、備註母版。幻燈片母版包含標題樣式和文字樣式，在一套PPT中，只要設定好模板就可以在全部PPT頁面實現統一的配色、字元和填充等元素