Cuando inserta una tabla en Word, se crea automáticamente un borde para cada celda de la tabla. Este borde es una sola línea de medio punto de peso. Desafortunadamente, Word no le proporciona ninguna forma de cambiar el ancho de línea predeterminado que usa al crear la tabla. Si bien es cierto que puede elegir un ancho de línea en el cuadro de diálogo Bordes y sombreado, este grosor se restablece a medio punto cuando inserta una nueva tabla.

Si desea algún otro ancho de línea, como tres cuartos de un punto, tiene un problema. Debe seleccionar manualmente cualquier tabla nueva y formatear los bordes para que tengan el ancho deseado. Si trabaja con muchas tablas, esto puede convertirse rápidamente en una molestia. Por supuesto, podría crear un estilo de tabla, pero aplicar un estilo de tabla puede dar resultados desiguales si todo lo que desea hacer es cambiar el ancho de línea o si está trabajando con un documento en el que se ha aplicado mucho formato explícito. las mesas.

Quizás la mejor forma de solucionar este problema es escribir una macro. Aunque esta puede no ser la solución más ideal, ciertamente es más fácil que cambiar manualmente todas las tablas del documento.

La siguiente macro, FixCellBorders, recorre todas las celdas de todas las tablas de su documento y se asegura de que el grosor mínimo de línea sea tres cuartos de punto. Para ello, comprueba la configuración de línea actual y luego realiza el ajuste solo si es necesario.

Sub FixCellBorders()

' Work through all tables in document     For Each objTable In ActiveDocument.Tables         ' Work through all cells in each table         For Each objCell In objTable.Range.Cells             ' Work through all borders in each cell             For Each objBorder In objCell.Borders                 ' Check if line weight is less than 0.75 pt                 If objBorder.LineWidth = wdLineWidth025pt _                   Or objBorder.LineWidth = wdLineWidth050pt Then                     ' too thin, change it                     objBorder.LineWidth = wdLineWidth075pt                 End If             Next objBorder         Next objCell     Next objTable End Sub

Como puede imaginar, la macro no es demasiado rápida, ya que examina los cuatro bordes de cada celda de cada tabla de su documento. Sin embargo, la ventaja es que la macro solo modificará el peso de cualquier borde de celda que se encuentre en un cuarto o medio punto. Esto significa que cualquier formateo manual que haya realizado para diferentes anchos de línea no cambiará.

Si está buscando una macro un poco más rápida, la siguiente (FixTableBorders) funcionará. En lugar de mirar celdas individuales, funciona en tablas completas. Sin embargo, la diferencia es que restablece todos los bordes de cada tabla a tres cuartos de punto, utilizando una sola línea. Sin embargo, si esto se ajusta a sus necesidades, definitivamente es la forma más fácil (más rápida) de hacerlo.

Sub FixTableBorders()

For Each objTable In ActiveDocument.Tables         With objTable             With .Borders(wdBorderLeft)

.LineStyle = wdLineStyleSingle                 .LineWidth = wdLineWidth075pt             End With             With .Borders(wdBorderRight)

.LineStyle = wdLineStyleSingle                 .LineWidth = wdLineWidth075pt             End With             With .Borders(wdBorderTop)

.LineStyle = wdLineStyleSingle                 .LineWidth = wdLineWidth075pt             End With             With .Borders(wdBorderBottom)

.LineStyle = wdLineStyleSingle                 .LineWidth = wdLineWidth075pt             End With             With .Borders(wdBorderHorizontal)

.LineStyle = wdLineStyleSingle                 .LineWidth = wdLineWidth075pt             End With             With .Borders(wdBorderVertical)

.LineStyle = wdLineStyleSingle                 .LineWidth = wdLineWidth075pt             End With         End With     Next objTable End Sub

_Nota: _

Si desea saber cómo usar las macros descritas en esta página (o en cualquier otra página de los sitios WordTips), he preparado una página especial que incluye información útil.

link: / wordribbon-WordTipsMacros [Haga clic aquí para abrir esa página especial en una nueva pestaña del navegador].

WordTips es su fuente de formación rentable en Microsoft Word.

(Microsoft Word es el software de procesamiento de texto más popular del mundo). Este consejo (880) se aplica a Microsoft Word 97, 2000, 2002 y 2003. Puede encontrar una versión de este consejo para la interfaz de cinta de Word (Word 2007 y más tarde) aquí:

link: / wordribbon-Setting_a_Default_Table_Border_Width [Configuración de un ancho de borde de tabla predeterminado].