VBA - Преобразование таблицы Excel в текст в Слове

Question

Моя цель состоит в том, чтобы преобразовать таблицу Excel в текст

Я скопировал диапазон в Excel, а затем приходит следующий код ...

'=== ============ 'CONVERT в слове ' ===============

Dim wApp As Word.Application 
Dim wDoc As Word.Document 

Set wApp = CreateObject("word.application") 
wApp.Visible = True 

Set wDoc = wApp.Documents.Add 

With wDoc.Content 
    .PasteExcelTable False, False, False 
    .Tables(1).Select 
    .Rows.ConvertToText Separator:=wdSeparateByDefaultListSeparator, NestedTables:=True 
End With 

Эта последняя строка кода не помогает метание время работы ошибка 5907 ... В этом месте нет таблицы.

---

Это макрос, который был написан в самом и работает Слово без ошибок после того, как я вручную вставить в слово, но я хочу использовать выше решение, как я также работаю код этой таблицы в Excel до приведения его в Слово и попытка использовать одну рутину против двух.

With Selection 
    .WholeStory 
    .PasteExcelTable False, False, False 
    .Tables(1).Range.Select 
    .Rows.ConvertToText Separator:=wdSeparateByDefaultListSeparator, _ 
     NestedTables:=True 
End With 

Спасибо за вашу помощь ... grinnZ

Answer 1

With wDoc.Content 
    .PasteExcelTable False, False, False 
    .Tables(1).Rows.ConvertToText _ 
       Separator:=wdSeparateByDefaultListSeparator, _ 
       NestedTables:=True 
End With