Método Tables.Add (Word)
Devuelve un objeto Table que representa una tabla vacía agregada a un documento.
Sintaxis
expresión. Add (Range, NumRows, NumColumns, DefaultTableBehavior, AutoFitBehavior)
expresión requerida. Variable que representa una colección "Tables".
Parameters
| Nombre | Obligatorio/opcional | Tipo de datos | Descripción |
|---|---|---|---|
| Range | Obligatorio | Objeto Range | Intervalo donde desea que aparezca la tabla. La tabla reemplazará al intervalo, si éste no está contraído. |
| NumRows | Obligatorio | Long | Número de filas que desea incluir en la tabla. |
| NumColumns | Obligatorio | Long | Número de columnas que desea incluir en la tabla. |
| DefaultTableBehavior | Opcional | Variant | Establece un valor que especifica si Microsoft Word cambia automáticamente el tamaño de las celdas de las tablas para que se ajusten al contenido de las celdas (Autoajuste). Puede ser una de las siguientes constantes: wdWord8TableBehavior (Autoajuste deshabilitado) o wdWord9TableBehavior (Autoajuste habilitado). La constante predeterminada es wdWord8TableBehavior. |
| AutoFitBehavior | Opcional | Variant | Establece las reglas de Autoajuste para cómo Word cambia el tamaño de las tablas. Puede ser una de las constantes WdAutoFitBehavior. |
Valor devuelto
Tabla
Ejemplo:
En este ejemplo se agrega una tabla vacía con tres filas y cuatro columnas al principio del documento activo.
Set myRange = ActiveDocument.Range(0, 0)
ActiveDocument.Tables.Add Range:=myRange, NumRows:=3, NumColumns:=4
En este ejemplo se agrega una nueva tabla vacía con seis filas y diez columnas al final del documento activo.
Set MyRange = ActiveDocument.Content
MyRange.Collapse Direction:=wdCollapseEnd
ActiveDocument.Tables.Add Range:=MyRange, NumRows:=6, _
NumColumns:=10
En este ejemplo se inserta una tabla de tres filas y cinco columnas en un nuevo documento y, a continuación, se insertan datos en cada celda.
Sub NewTable()
Dim docNew As Document
Dim tblNew As Table
Dim intX As Integer
Dim intY As Integer
Set docNew = Documents.Add
Set tblNew = docNew.Tables.Add(Selection.Range, 3, 5)
With tblNew
For intX = 1 To 3
For intY = 1 To 5
.Cell(intX, intY).Range.InsertAfter "Cell: R" & intX & ", C" & intY
Next intY
Next intX
.Columns.AutoFit
End With
End Sub
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.