Копирование с форматом

[liker125]

добрый день.хочу скопировать документ и вставить его в новый документ.Делаю так

    Me.Select
     Selection.CopyFormat
    Selection.Copy
    Dim doc As Document
    Set doc = Documents.Add
    doc.Range.Select

    Selection.HomeKey
       Selection.PasteFormat
    Selection.Paste


    doc.SaveAs "d:\123.RTF", wdFormatRTF

    doc.Close

но при таком копировании не сохраняется формат текста.что делаю не так?

[Казанский]

Попробовал - сохраняется!

Me.Range.Copy
With Documents.Add
    .Range.Paste
    .SaveAs "d:\123.RTF", wdFormatRTF
    .Close 0
End With

[liker125]

попробовала.почему то не сохраняет.может дело в самом исходном документе?

[Казанский]

Может, какой-то хитрый формат, которого не поддерживает RTF?
Попробуйте другой файл. Приложите фрагмент этого файла (для опытов ).