Как копировать и вставить форматированный текст макросом?

[Sanek_81]

Здраствуйте. На данный момент имею нехитрый макрос, который разбивает на куски один большой документ и сохраняет их по-отдельности. При этом пропадает всё форматирование текста и он вставляет его простыми строками. Как сделать чтобы форматирование не пропадало?
Допустим мы делаем следующим образом:

Sub Makros-test

Dim obj As New Word.Application, doc As Word.Document
Set doc = obj.Documents.Add

Selection.WholeStory
    
doc.Range = Selection

doc.SaveAs "C:\TestXX.doc"
obj.Quit
Set obj = Nothing

End Sub

Что при таком раскладе нужно поправить?

[shanemac51]

из ворда в ворд достаточно

Sub w110419_1223()
Static kp As Integer
kp = kp + 1
    Selection.Copy
    Documents.Add Template:="Normal", NewTemplate:=False, DocumentType:=0
    Selection.PasteAndFormat (wdUseDestinationStylesRecovery)
       ActiveDocument.SaveAs2 FileName:="C:\TestXX" & Trim(kp) & ".doc", FileFormat:= _
        wdFormatDocument, LockComments:=False, Password:="", AddToRecentFiles:= _
        True, WritePassword:="", ReadOnlyRecommended:=False, EmbedTrueTypeFonts:= _
        False, SaveNativePictureFormat:=False, SaveFormsData:=False, _
        SaveAsAOCELetter:=False, CompatibilityMode:=0
    ActiveWindow.Close
    
End Sub

выделил кусок -вызвал макрос
следующ
..........
можно сделать уникальное имя по дате yyyy-mm-dd-hh-mm-ss

[Sanek_81]

Спасибо, работает. Ещё Application.visible= false добавил чтобы не моргало.