C#でPowerPoint内の文字を書き換えたい

Question

C#を使用して、PowerPoint内の文字の書き換えをしたいのですが、ネットで探しても良い情報が無く困っております。

外部ライブラリは使用せず、Microsoft.Office.Interop.PowerPointを使用して書き換えを実施しようと考えているのですが、経験のある方いらっしゃるでしょうか。

Answer 1

実は外部ライブラリーを使用するのも良くない訳ではありません、ツールの選択は一番ですから、例えば私の愛用のSpire.Presentation for .NETは、スライドに対して一般的な操作は基本的に何でもできます。そんなにこだわりのないなら無料版もいい選択です。これをダウンロードして参照に追加すれば、文字列の書き換えなどは簡単にできるはずです。そして書き換えに必要とするコードは紹介します。

using Spire.Presentation;
using System.Text.RegularExpressions;

namespace ReplaceTextWithRegex
{
    class Program
    {
        static void Main(string[] args)
        {
            //プレゼンテーションインスタンスを作成する
            Presentation ppt = new Presentation();
            //サンプルドキュメントをロードする
            ppt.LoadFromFile("Sample.pptx");

            //最初のスライドを取得する
            ISlide slide = ppt.Slides[0];

            //選択したテキストとその行末以降のテキストを新しいものとして置き換える
            Regex regex = new Regex("ABC.*");
            string newvalue = "ABC DEF";
            foreach (IShape shape in slide.Shapes)
            {
                shape.ReplaceTextWithRegex(regex, newvalue);
            }

            //結果ドキュメントを保存する
            ppt.SaveToFile("ReplaceTextWithRegex.pptx", FileFormat.Pptx2013);
        }
    }
}

Answer 2

PIA(Microsoft.Office.Interop.PowerPointなど)を使うのであれば、VBAと同じ操作体系のため、そちらで情報を探すと多少は見つかると思います。

参考として、自分がよく見るPowerPointのVBAに関するサイトと今回の内容と関連しそうな記事を載せておきます。

パワーポイントマクロ・PowerPoint VBAの使い方
半角文字を全角に一括変換するPowerPointマクロ:パワーポイントマクロ・PowerPoint VBAの使い方-TextFrame・TextRange

階層構造イメージ
PowerPoint.Application
  Presentation
    Slide
      Shape
        TextFrame / TextFrame2
          TextRange / Office.TextRange2
            Text(文字列)

いくつか補足として

• 置き換えたい文字がグループ化された図形や、表の中に含まれる場合は図形(Shape)が入れ子となっているため、階層を辿る必要があります(パターンが多く、なおかつ統一的に辿る方法は無いため、必要であれば)
• 一つの図形の中で複数の書式が使用され、それぞれの書式を保持したい場合は単純なPowerPoint.TextRange.Text・Office.TextRange2.Textの書き換えではなく、ReplaceメソッドやRunsでの書式毎への分解が必要になります。

Comments

[mooz999]

＞imihito様
ご回答いただきありがとうございました。
階層構造を記載していただいたのでイメージが掴みやすかったです。

結果として、TextRangeにたいしてReplaceを行うことで解決しました。
https://docs.microsoft.com/ja-jp/office/vba/api/powerpoint.textrange.replace