PowerPointでVBAを使って文字列を一括置換する方法【初心者向けガイド】

PowerPointのプレゼンテーションで、複数のスライドにわたって同じ文字列を一度に置き換えたいと思ったことはありませんか？手作業で一つ一つ修正するのは大変ですが、VBA（Visual Basic for Applications）を使えば、簡単に自動化できます。今回は、初心者の方でもわかりやすいように、VBAを使った文字列の一括置換方法をご紹介します。

VBAとは？PowerPointで何ができるのか
VBAで文字列を一括置換する基本的なコード
よくある質問とその回答
今すぐ解決したい！どうしたらいい？
まとめと次のステップ

VBAとは？PowerPointで何ができるのか

PowerPointのイメージ

VBAは、Microsoft Office製品に組み込まれているプログラミング言語で、日常的な作業を自動化したり、機能を拡張したりすることができます。例えば、PowerPointでは以下のような操作が可能です

ここがポイント！

複数のスライドにわたる文字列の検索と置換
特定の条件に一致するテキストの強調表示やフォント変更
スライドのデザインやレイアウトの自動適用

これらの操作をVBAを使って自動化することで、作業効率が大幅に向上します。

VBAで文字列を一括置換する基本的なコード

まずは、PowerPointでVBAを使って文字列を一括置換する基本的なコードをご紹介します。以下の手順で進めていきましょう。

PowerPointを開き、Alt+F11キーを押してVBAエディタを起動します。
「挿入」メニューから「標準モジュール」を選択します。
以下のコードをコピーして、モジュールに貼り付けます。

Sub ReplaceTextInPresentation()

    Dim sld As slide

    Dim shp As shape

    Dim txtRng As textRange

    Dim tmpRng As textRange

    Dim findText As String

    Dim replaceText As String
    findText = "置換前の文字列"

    replaceText = "置換後の文字列"

For Each sld In ActivePresentation.Slides For Each shp In sld.Shapes If shp.HasTextFrame Then Set txtRng = shp.TextFrame.textRange Set tmpRng = txtRng.Replace(FindWhat:=findText, ReplaceWhat:=replaceText, WholeWords:=True) Do While Not tmpRng Is Nothing Set txtRng = txtRng.Characters(tmpRng.Start + tmpRng.Length, txtRng.Length) Set tmpRng = txtRng.Replace(FindWhat:=findText, ReplaceWhat:=replaceText, WholeWords:=True) Loop End If Next shp Next sld End Sub

このコードは、プレゼンテーション内のすべてのスライドとその中のすべてのシェイプをチェックし、指定した文字列を置換します。

よくある質問とその回答

Q1: VBAを使うのは難しそうですが、初心者でもできますか？

はい、できます。VBAは初心者でも理解しやすい構文を持っており、上記のコードをそのままコピー＆ペーストするだけで動作します。コードの意味や動作について不明な点があれば、お気軽にご質問ください。

Q2: 置換対象の文字列が複数ある場合、どうすればよいですか？

複数の文字列を一度に置換する場合、以下のようにコードを変更することで対応できます。

Sub ReplaceMultipleTexts()

    Dim sld As slide

    Dim shp As shape

    Dim txtRng As textRange

    Dim tmpRng As textRange

    Dim replacements As Variant

    Dim i As Integer
    replacements = Array(Array("置換前の文字列1", "置換後の文字列1"), _

                         Array("置換前の文字列2", "置換後の文字列2"))

For Each sld In ActivePresentation.Slides For Each shp In sld.Shapes If shp.HasTextFrame Then Set txtRng = shp.TextFrame.textRange For i = LBound(replacements) To UBound(replacements) Set tmpRng = txtRng.Replace(FindWhat:=replacements(i)(0), _ ReplaceWhat:=replacements(i)(1), _ WholeWords:=True) Do While Not tmpRng Is Nothing Set txtRng = txtRng.Characters(tmpRng.Start + tmpRng.Length, txtRng.Length) Set tmpRng = txtRng.Replace(FindWhat:=replacements(i)(0), _ ReplaceWhat:=replacements(i)(1), _ WholeWords:=True) Loop Next i End If Next shp Next sld End Sub