用含有链接的文本替换PPT文件中含有链接的文本

最新推荐文章于 2024-03-12 10:43:17 发布

Edward_S

最新推荐文章于 2024-03-12 10:43:17 发布

阅读量992

点赞数

CC 4.0 BY-SA版权

分类专栏： OfficeDev 文章标签： PPT 文本链接

本文链接：https://blog.youkuaiyun.com/u010018069/article/details/44259727

OfficeDev 专栏收录该内容

5 篇文章

订阅专栏

本文介绍了一种在PPT文件中替换带有链接的文本的方法，包括获取文本对象、替换显示文本及重新设置链接的具体步骤。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

用含有链接的文本替换PPT文件中含有链接的文本

替换PPT中带有链接的文本不能直接修改其文本和链接，当用Replace替换文本时，其原来的链接会转移到该行前面的文本中（Note 如果只是修改其链接，其文本不变，可以直接对其.Address赋值）

可以采取如下的步骤实现：

1. 获取到该链接文本的文本对象TextRange
2. 先替换其显示的文本，（这一步中，原有的链接也会丢失掉）
3. 对步骤一种的文本对象添加MouseClick 事件，即添加链接

具体的实现代码如下：

        public void test()
        {
            //实例PowerPoint.Application
            Microsoft.Office.Interop.PowerPoint.Application ap = new Microsoft.Office.Interop.PowerPoint.Application();
            Microsoft.Office.Interop.PowerPoint.Presentation pre = null;
            //获取到PPT文件对象
            pre = ap.Presentations.Open(@"D:\OfficeDev\PPT\Test.pptx", Microsoft.Office.Core.MsoTriState.msoFalse, Microsoft.Office.Core.MsoTriState.msoFalse, Microsoft.Office.Core.MsoTriState.msoFalse);
            //遍历获取所有的幻灯片
            foreach (Microsoft.Office.Interop.PowerPoint.Slide mSlide in pre.Slides)
            {

                Microsoft.Office.Interop.PowerPoint.Hyperlinks links = mSlide.Hyperlinks;
                //获取要替换文本的所在幻灯片的区域
                Microsoft.Office.Interop.PowerPoint.Shape textShape = mSlide.Shapes[2];
                //遍历所有的链接
                for (int i = 1; i <= links.Count; i++)
                {
                    //获取含有链接的文本对象
                    Microsoft.Office.Interop.PowerPoint.Hyperlink mLink = links[i];
                    Microsoft.Office.Interop.PowerPoint.TextRange range1 = textShape.TextFrame.TextRange;
                    TextRange oTxtRng = range1.Find(mLink.TextToDisplay, After: range1.Start, WholeWords: Microsoft.Office.Core.MsoTriState.msoTrue);
                    //替换文本
                    oTxtRng.Replace(((Microsoft.Office.Interop.PowerPoint.Hyperlink)mLink).TextToDisplay, "NewLink");    
                    //替换链接
                    oTxtRng.ActionSettings[Microsoft.Office.Interop.PowerPoint.PpMouseActivation.ppMouseClick].Hyperlink.Address = "http://www.microsoft.com";
                }
            }
        }