Método Cells.AutoFit (Word)

Cambia el ancho de la columna de una tabla de modo que se ajuste al ancho del texto sin cambiar la manera en que el texto se ajusta en las celdas.

Sintaxis

expresión. AutoFit

expresión obligatoria. Variable que representa una colección "Cells".

Comentarios

Si la tabla ya es tan ancha como la distancia entre los márgenes izquierdo y derecho, este método no tiene efecto.

Ejemplo

En este ejemplo se crea una tabla de 3x3 en un documento nuevo y luego se cambia el ancho de la primera columna para que se ajuste al ancho del texto.

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

En este ejemplo se crea una tabla de 3x3 en un documento nuevo y luego se cambia el ancho de todas las columnas para que se ajusten al ancho del texto.

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

Vea también

Objeto de conjunto de celdas

Soporte técnico y comentarios

¿Tiene preguntas o comentarios sobre VBA para Office o esta documentación? Vea Soporte técnico y comentarios sobre VBA para Office para obtener ayuda sobre las formas en las que puede recibir soporte técnico y enviar comentarios.