書式設定を削除しますが

Question

太字のテキストを維持するためにVBAを使用して、私はすべてのテキストの書式をクリアし、別の文書に貼り付けるには、このマクロを使用しています：

Selection.Copy 
Windows(1).Activate 
Selection.PasteAndFormat (wdFormatPlainText) 

それは正常に動作しますが、私は太字に関する情報をプレーンテキストを必要とします文字を赤色にします。言い換えれば - 私はすべてのテキストフォーマットを削除する必要がありますが、太字の文字を赤にする必要があります。 私は選択charをcharで反復しようとしていましたが、成功しませんでした。

Answer 1

すべてのフォーマットを削除するには、不可能ですが、スタイルに通常缶を設定します。

Selection.Copy 
Windows(1).Activate 
Windows(1).Document.Bookmarks.Add ("xx") 
Selection.PasteAndFormat (wdFormatPlainText) 
Windows(1).Document.Bookmarks.Add ("xxx") 
Selection.Start = Windows(1).Document.Bookmarks.Item(1).Start 
Selection.End = Windows(1).Document.Bookmarks.Item(2).Start 
Selection.Style = wdStyleNormal 
Selection.Font.Bold = True 
Selection.Font.Color = wdColorRed 
Windows(1).Document.Bookmarks.Item(1).Delete 
Windows(1).Document.Bookmarks.Item(1).Delete