Как из excel перенести содержимое ячеек в word?

[Mayka]

Добрый день! Подскажите, пожалуйста, как мне перенести в ворд содержимое ячеек? Мне надо перекинуть каждую ячейку на отдельную строку в ворд. На данный момент у меня есть вот что:
Sub ааа()
Dim WordApp As Object
Set WordApp = CreateObject("Word.Application")
 WordApp.Visible = True
    With WordApp
    .Documents.Add
   With .Selection
   .Font.Size = 14
             .TypeText Text:="ввв" + vbCrLf
           
End With
End With
 

End Sub

ну то есть открывается ворд и пишется слово с переносом на следующую строку, но вот добавить саму ячейку не получается.

Буду очень благодарна!!

[Kivals]

Операция разовая?
1. Скопировать в буфер в экселе
2. Вставить в Ворд через Специальная вставка
3. Заменить все табуляции на перевод строки (в замене спец символы: ^t - табуляция; ^p - перевод строки)

[Sla]

а пробовала вместо тестовой строки подставить параметр  процедуры?


Sub ааа(content)
...
.TypeText Text:= content + vbCrLf

[Mayka]

Операция разовая. Kivals, к сожалению я пока не знаю как пользоваться буфером.
А что мне даст параметр процедуры? я попробовала и ничего не вышло.
Я думала, что здесь нужно применять что-то типа range(cells(i,j)), но сколько искала, корректной записи не нашла.