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

用含有链接的文本替换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";                }            }        }