Propiedad PageSetup.TextColumns (Word)

Devuelve una colección TextColumns que representa el conjunto de columnas de texto del objeto PageSetup especificado.

Sintaxis

expresión. TextColumns

expresión Expresión que devuelve un objeto PageSetup .

Comentarios

Siempre habrá, como mínimo, una columna de texto en la colección. Al crear nuevas columnas de texto, se agregan a una colección de una columna.

Para obtener información sobre cómo devolver un solo miembro de una colección, vea Returning an object from a collection.

Ejemplo

En este ejemplo se crean cuatro columnas de texto de espaciado uniforme que se aplican a la sección dos del documento activo.

With ActiveDocument.Sections(2).PageSetup.TextColumns 
 .SetCount NumColumns:=3 
 .Add EvenlySpaced:=True 
End With

En este ejemplo se crea un documento con dos columnas de texto. La primera columna tiene 1,5 pulgadas de ancho y la segunda 3 pulgadas.

Set myDoc = Documents.Add 
With myDoc.PageSetup.TextColumns 
 .SetCount NumColumns:=1 
 .Add Width:=InchesToPoints(3) 
End With 
With myDoc.PageSetup.TextColumns(1) 
 .Width = InchesToPoints(1.5) 
 .SpaceAfter = InchesToPoints(0.5) 
End With

Vea también

Objeto PageSetup

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.