добавить лист в word

[esteem]

макрос выводит таблицу . как мне сделать вывод на новом листе

[GSerg]

with thisdocument
.range(.range.end, .range.end).insertbreak wdPageBreak
end with

[esteem]

With ThisDocument
.Range(.Range.End, .Range.End).InsertBreak wdPageBreak
End With

Set tableNew = ActiveDocument.Tables.Add(Selection.Range, 13, 5)
With tableNew.Borders
.InsideLineStyle = wdLineStyleSingle
.OutsideLineStyle = wdLineStyleDouble
End With

[esteem]

выдает ошибку - значение лежит вне допустимого диапазона

[GSerg]

Иногда нужно - совсем чуть-чуть - включать голову вместо того, чтобы бездумно скопировать и говорить "не работает".

With ThisDocument
.Range(.Range.End - 1, .Range.End - 1).InsertBreak wdPageBreak
End With