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

Question

在我的上一个问题“Find number from text in powerpoint using vba?”中，我制作了一个代码＆amp;它的工作完美（感谢 Tony Dallimore ）。但在这个过程中，我面临着一些意想不到的事情：

1. 如果我的文本框包含带有项目符号的文本。子弹。
2. 如果它包含具有某种字体颜色的http链接。

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

现在我知道为什么会这样。因为在我的代码中我将所有文本收集到一个变量＆amp;然后执行操作，然后将其替换为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

新页面中的文字将格式化为之前