Clase Border (Word VBA)

La clase Border representa un borde de un objeto.

Set

Para usar una variable de clase Border, primero debe ser instanciado, por ejemplo

Dim brd as Border
Set brd = Selection.Borders(Index:=1)

Los siguientes procedimientos se pueden usar para establecer variables de clase Border : Borders.Item, Cell.Borders, Cells.Borders, Column.Borders, Columns.Borders, ConditionalStyle.Borders, Font.Borders, Frame.Borders, HTMLDivision.Borders, InlineShape.Borders, Paragraph.Borders, ParagraphFormat.Borders, Paragraphs.Borders, Range.Borders, Row.Borders, Rows.Borders, Section.Borders, Selection.Borders, Style.Borders, Table.Borders y TableStyle.Borders

For Each

A continuación, se muestra un ejemplo de cómo procesar los elementos Border en una colección.

Dim brd As Border
For Each brd In Selection.Borders
	    If brd.Inside = True Then brd.LineStyle = wdLineStyleSingle 
Next brd

Temas

Los siguientes procedimientos de esta clase se han agrupado y se describen en una página temática separada

Enable with its procedures Borders.Enable, Borders.EnableFirstPageInSection y Borders.EnableOtherPagesInSection

Propiedades

ArtStyle Devuelve o establece el diseño de borde de página gráfico de un documento.

Selection.Borders(1).ArtStyle = wdArtApples

ArtWidth Devuelve o establece el ancho (en puntos) del borde de página gráfico especificado.

Selection.Borders(1).ArtWidth =

Color Devuelve o establece el color de 24 bits para el objeto Border especificado.

Selection.Borders(1).Color = RGB(0,0,255)'blue

ColorIndex Devuelve o establece el color del objeto border o font especificado.

Selection.Borders(1).ColorIndex = wdAuto

Inside True si un interior borde puede aplicarse al objeto especificado.

Dim booInside As Boolean
booInside = Selection.Borders(1).Inside

LineStyle Devuelve o establece el estilo de línea de borde para el objeto especificado.

Selection.Borders(1).LineStyle = wdLineStyleDashDot

LineWidth Devuelve o define el ancho de línea del borde de un objeto.

Selection.Borders(1).LineWidth = wdLineWidth025pt

Parent Devuelve un objeto Object que representa el objeto primario del objeto Border especificado.

Dim objParent As Object
Set objParent = Selection.Borders(1).Parent

Visible True si el objeto especificado está visible.

Selection.Borders(1).Visible = True

Borders.AlwaysInFront True si se muestran los bordes de página delante del texto del documento.

Selection.Borders.AlwaysInFront = True

Borders.Count Devuelve el número de elementos de la colección Borders.

Dim lngCount As Long
lngCount = Selection.Borders.Count

Borders.DistanceFrom Devuelve o establece un valor que indica si el borde de página especificado se mide desde el borde de la página o desde el texto que rodea.

Selection.Borders.DistanceFrom = wdBorderDistanceFromPageEdge

Borders.DistanceFromBottom Devuelve o establece el espacio (en puntos) entre el texto y el borde inferior.

Selection.Borders.DistanceFromBottom =

Borders.DistanceFromLeft Devuelve o establece el espacio (en puntos) entre el texto y el borde izquierdo.

Selection.Borders.DistanceFromLeft =

Borders.DistanceFromRight Devuelve o establece el espacio (en puntos) entre el borde derecho del texto y el borde derecho.

Selection.Borders.DistanceFromRight =

Borders.DistanceFromTop Devuelve o establece el espacio (en puntos) entre el texto y el borde superior.

Selection.Borders.DistanceFromTop =

Borders.HasHorizontal True si puede aplicarse un borde horizontal al objeto.

Dim booHasHorizontal As Boolean
booHasHorizontal = Selection.Borders.HasHorizontal

Borders.HasVertical True si puede aplicarse un borde vertical al objeto especificado.

Dim booHasVertical As Boolean
booHasVertical = Selection.Borders.HasVertical

Borders.InsideColor Devuelve o establece el color de 24 bits de los bordes interiores.

Selection.Borders.InsideColor = RGB(0,0,255)'blue

Borders.InsideColorIndex Devuelve o establece el color del interior bordes.

Selection.Borders.InsideColorIndex = wdAuto

Borders.InsideLineStyle Devuelve o establece el borde interior del objeto especificado.

Selection.Borders.InsideLineStyle = wdLineStyleDashDot

Borders.InsideLineWidth Devuelve o establece el ancho de línea del borde interior de un objeto.

Selection.Borders.InsideLineWidth = wdLineWidth025pt

Borders.JoinBorders True si los bordes verticales de los párrafos y tablas se eliminan de forma que los bordes horizontales puedan unirse al borde de la página.

Selection.Borders.JoinBorders = True

Borders.OutsideColor Devuelve o establece el color de 24 bits de los bordes exteriores.

Selection.Borders.OutsideColor = RGB(0,0,255)'blue

Borders.OutsideColorIndex Devuelve o establece el color de los bordes exteriores.

Selection.Borders.OutsideColorIndex = wdAuto

Borders.OutsideLineStyle Devuelve o establece el borde exterior del objeto especificado.

Selection.Borders.OutsideLineStyle = wdLineStyleDashDot

Borders.OutsideLineWidth Devuelve o establece el ancho de línea del borde exterior de un objeto.

Selection.Borders.OutsideLineWidth = wdLineWidth025pt

Borders.Parent Devuelve un objeto Object que representa el objeto primario de la colección Borders especificada.

Dim objParent As Object
Set objParent = Selection.Borders.Parent

Borders.Shadow True si el borde especificado tiene el formato de sombreado.

Selection.Borders.Shadow = True

Borders.SurroundFooter True si el borde de la página incluye el pie de página del documento.

Selection.Borders.SurroundFooter = True

Borders.SurroundHeader True si el borde de la página incluye el encabezado del documento.

Selection.Borders.SurroundHeader = True