VBA Word отредактировать таблицы,узнать есть ли переносы строк в ячейках

[bdfy]

Есть документ (программно формируемый) где ряд таблиц выглядят не совсем опрятно.
1. Нужно определить вылазит ли таблица за границы окна. с этим просто

Function GetTablewidth(ByVal myTable As Word.Table)
 
With myTable
     Set tRng = .Cell(1, 1).Range
    sngWdth = -tRng.Information(wdHorizontalPositionRelativeToPage)
    Do While tRng.Cells(1).RowIndex = 1
      tRng.Move unit:=wdCell, Count:=1
    Loop
    tRng.MoveEnd wdCharacter, -1
    GetTablewidth = GetTablewidth + tRng.Information(wdHorizontalPositionRelativeToPage)
  '  Debug.Print sngWdth
End With
 
 
End Function

потом можно сравнить с шириной экрана

With ActiveDocument.PageSetup
    width_max = .PageWidth - .LeftMargin - .RightMargin
End With

а вот теперь нужно уместить таблицу в ширине листа.
"вписывать" текст не хочу (шрифт получается везде разный) и переносы для чисел тоже недопустимы.
собираюсь играть полями и удалять "ненужные" столбцы (те где все значения одинаковые например)
Вопрос как контролировать что в ячейках нет переносов строк ?

Во вложении документ, в нем - две таблицы
одна по ширине окна сделана (но при этом получаются переносы строк)
вторая получается если дважды кликнуть на границе ячейки (курсор при этом еще принимает форму двунаправленной стрелки).
Вот только ни автоподбор по содержимому, ни в макросе .AutoFitBehavior wdAutoFitContent такого эффекта не достигают. Пробовал .AutoFitBehavior wdAutoFitContent и к таблице применять и к колонкам отдельным. Так что за действие такое происходит при двойном клике мышью на границе ячейки ?