как можно расширить range при вставке из excel в word
мне надо, чтобы в word вставлялась таблица на всю ширину страницы, а не размера excel

делаю примерно так:
Dim rng As Range
Dim WA, WD As Object

Set WA = CreateObject("Word.Application")
Set WD = WA.Documents.Add(ThisWorkbook.Path & Application.PathSeparator & "Template.dot")

With WD
Set rng = Worksheets("Sheet1").Range("B30:E44")
rng.Copy 'copy the range
Set t = WD.Bookmarks("O_ZAEM").Range

With t
.Select
.Paste
<----- видимо, тут нужно что-то написать, чтобы расширить ????
End With
end With