如何使用vba在PowerPoint中执行复制粘贴操作时保持文本格式化？

Question

在我最后一个问题“Find number from text in powerpoint using vba?”中，我做了一个代码&它的工作完美（感谢托尼Dallimore）。但在这个过程中我面对一些意想不到的东西，如：

1. 如果我的文本框包含子弹&子子弹文本。
2. 如果它包含某些字体颜色的http链接。

然后运行我的代码后。它显示我没有任何文本格式的数据像上面指定的文本格式一样消失。

现在我知道为什么会发生这种情况。因为在我的代码中，我收集所有文本到一个变量&然后执行操作，然后将其替换为ppt中的旧文件。

所以我的问题“有没有办法在文本框中运行代码，所以提到的问题将得到解决？”

代码请转到the previous question。

感谢

Answer 1

多了一丝比一个答案：

范围内的对象都有一个“.duplicate”属性 - 这副本的格式。看看这是否可以应用到您的方案。

例如。

创建一个新文档。以让您满意的方式格式化第一段。然后：

set dup = ActiveDocument.Paragraph(1).Format.Duplicate 

Documents.Add 
Selection.InsertAfter "This is a new paragraph." 
Selection.Paragraphs.Format = dup 

在新页面中的文本将被格式化为前