C#/VB.NET：PowerPoint プレゼンテーションからテキストを抽出する方法

PM> Install-Package Spire.Presentation

using Spire.Presentation;
using System.IO;
using System.Text;
namespace ExtractText
{
    class Program
    {
        static void Main(string[] args)
        {
            //Presentationクラスのインスタンスを初期化する
            Presentation presentation = new Presentation();

            //サンプル PowerPoint 文書を読み込む
            presentation.LoadFromFile("sample.pptx");
            //StringBuilderインスタンスを作成する
            StringBuilder sb = new StringBuilder();

            //文書内の各スライドをループする
            foreach (ISlide slide in presentation.Slides)
            {
                //各スライド内のすべての図形をループする
                foreach (IShape shape in slide.Shapes)
                {
                    //図形が IAutoShape タイプであるかどうかを判断する
                    if (shape is IAutoShape)
                    {
                        //各図形のすべての段落をループする
                        foreach (TextParagraph tp in (shape as IAutoShape).TextFrame.Paragraphs)
                        {
                            //抽出したテキストを StringBuilder インスタンスに追加する
                            sb.AppendLine(tp.Text);
                        }
                    }
                }
            }
            //抽出されたテキストを保存するための新しいtxtファイルを作成する
            File.WriteAllText("ExtractText.txt", sb.ToString());
           
            //ドキュメントを閉じる
            presentation.Dispose();
        }
    }
}

Imports Spire.Presentation
Imports System.IO
Imports System.Text

Namespace ExtractText
    Class Program
        Private Shared Sub Main(ByVal args() As String)

            'Presentationクラスのインスタンスを初期化する
            Dim presentation As Presentation = New Presentation

            'サンプル PowerPoint 文書を読み込む
            presentation.LoadFromFile("sample.pptx")

            'StringBuilderインスタンスを作成する
            Dim sb As StringBuilder = New StringBuilder

            '文書内の各スライドをループする
            For Each slide As ISlide In presentation.Slides

                '各スライド内のすべての図形をループする
                For Each shape As IShape In slide.Shapes

                    '図形が IAutoShape タイプであるかどうかを判断する
                    If (TypeOf shape Is IAutoShape) Then

                        '各図形のすべての段落をループする
                        For Each tp As TextParagraph In CType(shape, IAutoShape).TextFrame.Paragraphs

                            '抽出したテキストを StringBuilder インスタンスに追加する
                            sb.AppendLine(tp.Text)
                        Next
                    End If
                Next
            Next

            '抽出されたテキストを保存するための新しいtxtファイルを作成する
            File.WriteAllText("ExtractText.txt", sb.ToString)
            
            'ドキュメントを閉じる
            presentation.Dispose()
        End Sub
    End Class
End Namespace