к темам из Excel в Word

[serafim09]

Наткнулся в инете на такой код:

Option Explicit
Public WordApp As Object 'Word.Application

Sub CopyToWord(SelectedObject As Object)
    SelectedObject.Copy
    WordApp.Selection.PasteAndFormat 0
    WordApp.Selection.TypeParagraph
End Sub

Sub TransferToWord()
    Set WordApp = CreateObject("Word.Application")
    
    WordApp.Visible = True
    
    WordApp.Documents.Add
    
    Range("E7").CurrentRegion.AutoFormat Format:=xlRangeAutoFormatClassic3, Number:=True, Font _
        :=True, Alignment:=True, Border:=True, Pattern:=True, Width:=True
        
    WordApp.Selection.TypeText Text:=Range("E7").Value
    WordApp.Selection.TypeParagraph
    WordApp.Selection.TypeText Text:=Range("F7").Value
    
    CopyToWord Range("F7").CurrentRegion
    
'    WordApp.Quit
    Set WordApp = Nothing
End Sub

Он здорово переносит из Excel в word. Можно его доработать, чтобы он вставлял определенные ячейки, графики и таблицы? А то в этом варианте я менял ячейки на свои, а выскакивала "ошибка 400

[Клякса]

Конечно, можно. Надо только знать откуда и куда.

[serafim09]

Сообщение от Клякса

Конечно, можно. Надо только знать откуда и куда.

Так для примера любой диапазон (а дальше сам под себя скорректирую).