форматирование таблиц word из excell

[Rak]

Испробывал все комбинации ключевых слов в поиске не нашел ответа. Прошу прощения если получится дубль.
Из Excell вставляется несколько таблиц в Word в места отмеченные метко в шаблоне Word {табл1} и т.п. Таблицы не вписываются в ширину документа и внутри ячеек надо убрать отступ. В ручную быстро, но хочется автоматом. Делал так:

Set Appl = CreateObject("Word.Application")
Set oDot = Appl.Documents.Open(s) 's-документ ворд с метками
.....
Worksheets(ImList).Range(DiList).Co py ' копируется нужный диапазон в Excell
Set myRange = oDot.Content
myRange.Find.Execute FindText:=PName, Forward:=True, Wrap:=wdFindContinue 'ищем метку
If myRange.Find.Found = True Then myRange.Paste 'метка нашлась вставляем
.......
For Each aTable In oDot.tables
aTable.Select 'это работает, все что ниже нет
aTable.Selection.tables(1).AutoFitB ehavior (wdAutoFitWindow)
aTable.tables(1).AutoFitBehavior (wdAutoFitWindow)
aTable.AutoFitBehavior (wdAutoFitWindow)
aTable.Add AutoFitBehavior:=wdAutoFitWindow
ActiveDocument.Tables.Add Range:=myRange, NumRows:=3, NumColumns:=4
Next aTable

я не програмер, мне просто надоело нудная работа по оформлению документов и хочу немного упростить себе жизнь.

[Rak]

спасибо, разобрался сам, оказывается это свойство колонок:

aTable.Columns.AutoFit