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

在我的最后一个问题“”中，我编写了一个代码&它工作得非常好（多亏了Tony Dallimore）。但在这个过程中，我面临着一些意想不到的事情，比如：

如果我的文本框包含带项目符号和子项目符号的文本

如果它包含带有某种字体颜色的http链接

然后在运行我的代码之后。它向我显示没有任何文本格式的数据，如上面指定的文本格式为“消失”

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

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

有关代码，请访问

---

谢谢

与其说是回答，不如说是提示：

范围对象有一个“.duplicate”属性，它复制格式。看看这是否可以应用到您的场景中

例如

创建一个新文档。以你喜欢的方式编排第一段的格式。然后：

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

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

---

新页面中的文本格式将与以前一样

请详细说明您的答案是如何工作的？请给我举个例子