Есть следующий макрос.
1)Копируется в буфер некоторый диапазон заданного листа Excel
2)На основе некоторого шаблона создается WORD-ий документ , окно с этим документом становится активным.
Необходимо скопированную в 1-ом шаге информацию вставить в то место WORD-ого документа, где находится последний(он же и первый) символ абзаца. Можно, конечно, сделать это вручную с помощью команды «Вставить из буфера», но хотелось бы иметь полностью законченную процедуру переноса информации из Excela в Word.
Первые 2 пункта сделаны.
Спасибо
Макрос EXCELa- вставка в Ворд-ий документ буфера
Модератор: Naeel Maqsudov
Может быть, станет яснее задача, если будет виден код того, что сделано (спасибо Aent за помощь написания этой части)
Sub ИзEXCEL_Word()
Dim WordObj As Object
Dim WordDoc As Object
On Error Resume Next
Range("A1:B8").Copy
Set WordObj = GetObject(, "Word.Application")
If Err.Number <> 0 Then
Err.Clear
Set WordObj = CreateObject("Word.Application")
End If
WordObj.Visible = True ' Показываем Word
Set WordDoc = WordObj.Documents.Add("С:\Шаблоны\Образец1.dot", False)
If Err.Number <> 0 Then
MsgBox "Ошибка при открытии шаблона. "
End If
WordObj.Activate ‘Активируем окно с Word-им документом
???????????????? -нужно вставить код, который помещает скопированный в первом операторе диапазон листа в первый абзац образованного Word-ого документа
Set WordDoc = Nothing
End Sub
Sub ИзEXCEL_Word()
Dim WordObj As Object
Dim WordDoc As Object
On Error Resume Next
Range("A1:B8").Copy
Set WordObj = GetObject(, "Word.Application")
If Err.Number <> 0 Then
Err.Clear
Set WordObj = CreateObject("Word.Application")
End If
WordObj.Visible = True ' Показываем Word
Set WordDoc = WordObj.Documents.Add("С:\Шаблоны\Образец1.dot", False)
If Err.Number <> 0 Then
MsgBox "Ошибка при открытии шаблона. "
End If
WordObj.Activate ‘Активируем окно с Word-им документом
???????????????? -нужно вставить код, который помещает скопированный в первом операторе диапазон листа в первый абзац образованного Word-ого документа
Set WordDoc = Nothing
End Sub