Неверный вызов процедуры или аргумент vba

Question

Я пытаюсь использовать этот метод в Excel VBA, мне нужно обработать данные и вставить их в шаблон Word, я выполнил форматирование в документе шаблона Word, все, что я хочу, - это скопировать таблицу из excel в word и таблицу изменений в текст и сохранить форматирование слов.

Следующий код выдает мне ошибку в ConvertToText, когда я запускаю это.

Const wdSeparateByDefaultListSeparator as Integer = 3
Set objWord = GetObject(class:="Word.Application")
'Clear the error between errors
Err.Clear
'If MS Word is not already open then open MS Word
If objWord Is Nothing Then Set objWord = CreateObject(class:="Word.Application")
'Handle if the Word Application is not found
If Err.Number = 429 Then
    MsgBox "Microsoft Word could not be found, aborting."
    GoTo SafeExit
End If
On Error GoTo 0

If FileOrDirExists(sPath & "\" & sTplName) Then
    Set objDoc = objWord.documents.Add(sPath & "\" & sTplName)
    objWord.Visible = True
Else
    MsgBox "Cannot find Word template, function aborted.", vbOKOnly + vbCritical, "Function Aborted"
    GoTo SafeExit
End If

rngCopy.Copy
Set objSelection = objWord.Selection

With objSelection
    .PasteExcelTable linkedtoexcel:=False, wordformatting:=True, RTF:=False
    .Tables(1).Rows.ConvertToText _
     Separator:=wdSeparateByDefaultListSeparator, _
     NestedTables:=True
End With

Application.CutCopyMode = False

Единственная ошибка, которую я получаю, находится в этой строке:

.Tables(1).Rows.ConvertToText _
     Separator:=wdSeparateByDefaultListSeparator, _
     NestedTables:=True

Если я удалю эту строку, она скопирует и создаст таблицу в файле Word, но я хочу удалить таблицу и преобразовать ее в текст с форматированием по умолчанию для документа Word-шаблона.

Перед удалением таблицы:

После удаления стола:

Он должен выглядеть точно так же, как на предыдущем изображении, но не в таблице.