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