Columns.AutoFit 方法 (Word)

改变表格列宽，使之在单元格文本换行方式不变的情况下，适应文本宽度。

语法

expression. 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

另请参阅

列集合对象

支持和反馈

有关于 Office VBA 或本文档的疑问或反馈？ 请参阅 Office VBA 支持和反馈，获取有关如何接收支持和提供反馈的指南。