Использования VBA для удаления форматирования, но сохранить жирный текст

Question

Я использую этот макрос, чтобы очистить весь текстовый формат и вставить его в другой документ:

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