Microsoft PowerPoint の置換機能を使用すると、特定のテキストを検索し、一度に新しいテキストに変更することができます。これは、大きな PowerPoint ドキュメント内の複数の場所で同じエラーを修正する必要がある場合に非常に便利です。この記事では、Spire.Presentation for .NET を使用して PowerPoint でテキストを置換する方法を示します。
Spire.Presentation for .NET をインストールします
まず、Spire.Presentation for .NET パッケージに含まれている DLL ファイルを .NET プロジェクトの参照として追加する必要があります。DLL ファイルは、このリンクからダウンロードするか、NuGet を介してインストールできます。
PM> Install-Package Spire.PresentationPowerPoint で特定のテキストの最初の出現箇所を置換する
PowerPoint 内の特定のテキストの最初の出現箇所を置換するには、すべてのスライドをループし、ISlide.ReplaceFirstText() メソッドを呼び出します。詳細な手順は次のとおりです。
- Presentation クラスのインスタンスを初期化します。
- Presentation.LoadFromFile() メソッドを使用して PowerPoint ドキュメントを読み込みます。
- PowerPoint ドキュメント内のすべてのスライドをループします。
- ISlide.ReplaceFirstText() メソッドを使用して、最初に出現する「Spire.Presentation for .NET」を「E-iceblue 製品」に置き換えます。
- Presentation.SaveToFile() メソッドを使用して結果文書を保存します。
- C#
- VB.NET
using Spire.Presentation;
namespace ReplaceFirstTextOccurrenceInPPT
{
class Program
{
static void Main(string[] args)
{
//Presentationインスタンスを作成する
Presentation ppt = new Presentation();
//PowerPointドキュメントをロードする
ppt.LoadFromFile("Sample1.pptx");
//すべてのスライドをループする
foreach (ISlide slide in ppt.Slides)
{
//最初に出現する「Spire.Presentation for .NET」を「E-iceblue製品」に置き換える
slide.ReplaceFirstText("Spire.Presentation for .NET", "E-iceblue製品", false);
break;
}
//結果文書を保存する
ppt.SaveToFile("ReplaceFirstTextOccurrence.pptx", FileFormat.Pptx2013);
}
}
}Imports Spire.Presentation
Namespace ReplaceFirstTextOccurrenceInPPT
Friend Class Program
Private Shared Sub Main(ByVal args As String())
'Presentationインスタンスを作成する
Dim ppt As Presentation = New Presentation()
'PowerPointドキュメントをロードする
ppt.LoadFromFile("Sample1.pptx")
'すべてのスライドをループする
For Each slide As ISlide In ppt.Slides
'最初に出現する「Spire.Presentation for .NET」を「E-iceblue製品」に置き換える
slide.ReplaceFirstText("Spire.Presentation for .NET", "E-iceblue製品", False)
Exit For
Next
'結果文書を保存する
ppt.SaveToFile("ReplaceFirstTextOccurrence.pptx", FileFormat.Pptx2013)
End Sub
End Class
End Namespace
PowerPoint で特定のテキストのすべての出現箇所を置換する
PowerPoint 内の特定のテキストのすべての出現箇所を置換するには、すべてのスライドをループし、ISlide.ReplaceAllText() メソッドを使用します。詳細な手順は次のとおりです。
- Presentation クラスのインスタンスを初期化します。
- Presentation.LoadFromFile() メソッドを使用して PowerPoint ドキュメントを読み込みます。
- PowerPoint 内のすべてのスライドをループします。
- ISlide.ReplaceAllText() メソッドを使用して、すべての「Spire.Presentation for.NET」を「E-icelue 製品」に置き換えます。
- Presentation.SaveToFile() メソッドを使用して結果文書を保存します。
- C#
- VB.NET
using Spire.Presentation;
namespace ReplaceAllTextOccurrencesInPPT
{
class Program
{
static void Main(string[] args)
{
//Presentationインスタンスを作成する
Presentation ppt = new Presentation();
//PowerPointドキュメントをロードする
ppt.LoadFromFile("Sample1.pptx");
//すべてのスライドをループする
foreach (ISlide slide in ppt.Slides)
{
//すべての「Spire.Presentation for.NET」を「E-icelue製品」に置き換える
slide.ReplaceAllText("Spire.Presentation for .NET", "E-iceblue製品", false);
}
//結果文書を保存する
ppt.SaveToFile("ReplaceAllTextOccurrences.pptx", FileFormat.Pptx2013);
}
}
}Imports Spire.Presentation
Namespace ReplaceAllTextOccurrencesInPPT
Friend Class Program
Private Shared Sub Main(ByVal args As String())
'Presentationインスタンスを作成する
Dim ppt As Presentation = New Presentation()
'PowerPointドキュメントをロードする
ppt.LoadFromFile("Sample1.pptx")
'すべてのスライドをループする
For Each slide As ISlide In ppt.Slides
'すべての「Spire.Presentation for.NET」を「E-icelue製品」に置き換える
slide.ReplaceAllText("Spire.Presentation for .NET", "E-iceblue製品", False)
Next
'結果文書を保存する
ppt.SaveToFile("ReplaceAllTextOccurrences.pptx", FileFormat.Pptx2013)
End Sub
End Class
End Namespace
PowerPoint で正規表現を使用してテキストを置換する
Spire.Presentation for .NET では、正規表現パターンに一致するテキストを置換するための IShape.ReplaceTextWithRegex() メソッドが提供されています。詳細な手順は次のとおりです。
- Presentation クラスのインスタンスを初期化します。
- Presentation.LoadFromFile() メソッドを使用して PowerPoint ドキュメントを読み込みます。
- PowerPoint 内のすべてのスライドをループします。
- 各スライドのすべての図形をループします。
- IShape.ReplaceTextWithRegex() メソッドを使用して、正規表現パターンに一致するテキストを置き換えます。
- Presentation.SaveToFile() メソッドを使用して結果文書を保存します。
- C#
- VB.NET
using Spire.Presentation;
using System.Text.RegularExpressions;
namespace ReplaceTextUsingRegexInPPT
{
class Program
{
static void Main(string[] args)
{
//Presentationインスタンスを作成する
Presentation ppt = new Presentation();
//PowerPointドキュメントをロードする
ppt.LoadFromFile("Sample2.pptx");
//すべてのスライドをループする
foreach (ISlide slide in ppt.Slides)
{
//各スライドのすべての図形をループする
foreach (IShape shape in slide.Shapes)
{
//スライド上の # で始まるテキストを「Spire.Presentation for .NET」に置き換えます。
shape.ReplaceTextWithRegex(new Regex(@"\#\w+\b"), " Spire.Presentation for .NET ");
}
}
//結果文書を保存する
ppt.SaveToFile("ReplaceTextUsingRegex.pptx", FileFormat.Pptx2013);
}
}
}Imports Spire.Presentation
Imports System.Text.RegularExpressions
Namespace ReplaceTextUsingRegexInPPT
Friend Class Program
Private Shared Sub Main(ByVal args As String())
'Presentationインスタンスを作成する
Dim ppt As Presentation = New Presentation()
'PowerPointドキュメントをロードする
ppt.LoadFromFile("Sample2.pptx")
'すべてのスライドをループする
For Each slide As ISlide In ppt.Slides
'各スライドのすべての図形をループする
For Each shape As IShape In slide.Shapes
'スライド上の # で始まるテキストを「Spire.Presentation for .NET」に置き換える
shape.ReplaceTextWithRegex(New Regex("\#\w+\b"), " Spire.Presentation for .NET ")
Next
Next
'結果文書を保存する
ppt.SaveToFile("ReplaceTextUsingRegex.pptx", FileFormat.Pptx2013)
End Sub
End Class
End Namespace
一時ライセンスを申請する
結果ドキュメントから評価メッセージを削除したい場合、または機能制限を取り除く場合は、についてこのメールアドレスはスパムボットから保護されています。閲覧するにはJavaScriptを有効にする必要があります。にお問い合わせ、30 日間有効な一時ライセンスを取得してください。
