如何使用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 

在新頁面中的文本將被格式化爲前