Метод Columns.AutoFit (Word)

Статья
04/07/2023

Изменяет ширину столбца таблицы в соответствии с шириной текста, не изменяя способ переноса текста в ячейки.

Синтаксис

выражение. AutoFit

выражение (обязательно). Переменная, представляющая коллекцию Columns.

Замечания

Если таблица уже так широка, как расстояние между левым и правым полями, этот метод не влияет.

Пример

В этом примере создается таблица 3x3 в новом документе, а затем изменяется ширина первого столбца в соответствии с шириной текста.

Dim docNew as Document 
Dim tableNew as Table 
 
Set docNew = Documents.Add 
Set tableNew = docNew.Tables.Add(Range:=Selection.Range, _ 
 NumRows:=3, NumColumns:=3) 
With tableNew 
 .Cell(1,1).Range.InsertAfter "First cell" 
 .Columns(1).AutoFit 
End With

В этом примере создается таблица 3x3 в новом документе, а затем изменяется ширина всех столбцов в соответствии с шириной текста.

Dim docNew as Document 
Dim tableNew as Table 
 
Set docNew = Documents.Add 
Set tableNew = docNew.Tables.Add(Selection.Range, 3, 3) 
With tableNew 
 .Cell(1,1).Range.InsertAfter "First cell" 
 .Cell(1,2).Range.InsertAfter "This is cell (1,2)" 
 .Cell(1,3).Range.InsertAfter "(1,3)" 
 .Columns.AutoFit 
End With

См. также

Объект коллекции Columns

Поддержка и обратная связь

Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.

Поделиться через