vbaを使ってパワーポイントでコピー＆ペーストアクションを実行しているときにテキストを整形する方法は？

Question

私の最後の質問で "Find number from text in powerpoint using vba?"と書かれたコード&が完成しました。（Tony Dallimore）私のテキストボックスが弾丸&サブ箇条書きとテキストが含まれている場合

1. ：しかし、この過程で私のようないくつかの予期しないものに直面しています。
2. フォントにhttpのリンクが含まれている場合。

次にコードを実行した後。上記のようなテキストの書式設定なしのデータが表示されます。指定されたテキスト書式は消えます。

なぜこれが起こるのか知っています。私のコードでは、すべてのテキストを1つの変数&に集めてから、アクションを実行して、それを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 

新しいページ内のテキストが