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

Question

在我的最后一个问题中“使用vba从powerpoint中的文本中查找数字？”，我做了一个代码&它工作得很好（感谢Tony Dallimore）。但在这个过程中，我遇到了一些意想不到的事情，例如：

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

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

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

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

有关代码，请转到上一个问题。

谢谢

Answer 1

更多的是提示而不是答案：

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

例如。

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

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

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

新页面中的文本将按照以前的格式设置