C# 使用正则表达式替换PPT中的文本（附vb.net代码）

雨点打透心脏的1/2处 2022-09-09 06:28 95阅读 0赞

文本介绍如何在C\#程序中使用正则表达式替换PPT幻灯片中的指定文本内容。具体操作步骤如下：

1. 在程序中引用Spire.Presentation.dll。两种方法可参考如下：

（1）直接在程序中通过nuget搜索“Spire.Presentation”下载安装。

（2）将**[Spire.Presentation for .NET 6.8.3][]**包下载到本地，解压，手动将Bin文件夹路径下的Spire.Presentation.dll添加引用至程序。

两种方法均可添加该程序集文件。添加结果如图：

![watermark_type_ZHJvaWRzYW5zZmFsbGJhY2s_shadow_50_text_Q1NETiBARWljZWJsdWU_size_10_color_FFFFFF_t_70_g_se_x_16][]

**C\#**

using Spire.Presentation;
    using System.Text.RegularExpressions;
    
    namespace ReplaceText_PPT
    {
        class Program
        {
            static void Main(string[] args)
            {
                //创建Presentation实例
                Presentation ppt = new Presentation();
                //加载示例文档
                ppt.LoadFromFile("test.pptx");
    
                //获取第1张幻灯片
                ISlide slide = ppt.Slides[0];
    
                //替换该幻灯片中所有“工作”以及其后到行尾的内容为“WORK”
                Regex regex = new Regex("工作.*");
                string newvalue = "WORK";
                foreach (IShape shape in slide.Shapes)
                {
                    shape.ReplaceTextWithRegex(regex, newvalue);
                }
    
                //保存结果文档
                ppt.SaveToFile("ReplaceTextWithRegex.pptx", FileFormat.Pptx2013);
                System.Diagnostics.Process.Start("ReplaceTextWithRegex.pptx");
            }
        }
    }

**Vb.net**

Imports Spire.Presentation
    Imports System.Text.RegularExpressions
    
    Namespace ReplaceText_PPT
    	Class Program
    		Private Shared Sub Main(args As String())
    			'创建Presentation实例
    			Dim ppt As New Presentation()
    			'加载示例文档
    			ppt.LoadFromFile("test.pptx")
    
    			'获取第1张幻灯片
    			Dim slide As ISlide = ppt.Slides(0)
    
    			'替换该幻灯片中所有“工作”以及其后到行尾的内容为“WORK”
    			Dim regex As New Regex("工作.*")
    			Dim newvalue As String = "WORK"
    			For Each shape As IShape In slide.Shapes
    				shape.ReplaceTextWithRegex(regex, newvalue)
    			Next
    
    			'保存结果文档
    			ppt.SaveToFile("ReplaceTextWithRegex.pptx", FileFormat.Pptx2013)
    			System.Diagnostics.Process.Start("ReplaceTextWithRegex.pptx")
    		End Sub
    	End Class
    End Namespace

替换效果对比：

![watermark_type_ZHJvaWRzYW5zZmFsbGJhY2s_shadow_50_text_Q1NETiBARWljZWJsdWU_size_20_color_FFFFFF_t_70_g_se_x_16][]

—End—

[Spire.Presentation for .NET 6.8.3]: https://www.e-iceblue.cn/Downloads/Spire-Presentation-NET.html
[watermark_type_ZHJvaWRzYW5zZmFsbGJhY2s_shadow_50_text_Q1NETiBARWljZWJsdWU_size_10_color_FFFFFF_t_70_g_se_x_16]: /images/20220829/b5c8919c81784a9592128e41d6f59329.png
[watermark_type_ZHJvaWRzYW5zZmFsbGJhY2s_shadow_50_text_Q1NETiBARWljZWJsdWU_size_20_color_FFFFFF_t_70_g_se_x_16]: /images/20220829/8dcab0ce5f3b46918fd3ced62bd97eaf.png