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

本文介绍了一种在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";
                }
            }
        }


评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值