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
Consulte también
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.