, Есть файл Excel, там с помощью макроса на одном листе появляется таблица с необходимыми данными, нужно скопировать её полностью и перенести в Word.
Есть такой код:
Код |
---|
Dim wdapp As Object, wddoc As Object, filepath As String
On Error Resume Next
Set wdapp = GetObject(, "Word.Application")
If wdapp Is Nothing Then
Set wdapp = CreateObject("Word.Application")
wdapp.Visible = True
End If
filepath = ThisWorkbook.Path
Range("E1:H" & lastPos).Copy
wdapp.Activate
Set wddoc = wdapp.Documents(filepath & "\название файла.docx")
If wddoc Is Nothing Then
Set wddoc = wdapp.Documents.Open(filepath & "\название файла.docx")
End If
wddoc.Activate
|
Ворд открывается, таблица копируется, и сейчас мне нужно понять, как в определенное место (строку/абзац) вставить эту таблицу аналогично сочетанию клавиш ctrl+v (например по метке или закладке) не удаляя другой текст и другую информацию в этом файле Word.