Si tiene un documento que contiene bastantes tablas, es posible que esté buscando una forma de modificar el ancho de todas las tablas del documento. Por ejemplo, los estándares de su empresa pueden requerir que todas las tablas tengan el mismo ancho, extendiéndose desde el margen izquierdo al derecho.

Si tiene cuarenta o más tablas en un documento, modificar el ancho de todas ellas, individualmente, puede resultar muy tedioso.

La siguiente macro, ResizeAllTables, hará rápidamente lo que dice: cambiar el tamaño de todas las tablas. Los anchos de las tablas se ajustan para llenar los márgenes disponibles.

Sub ResizeAllTables()

Dim oTbl As Table     For Each oTbl In ActiveDocument.Tables         oTbl.AutoFitBehavior wdAutoFitFixed         With ActiveDocument.PageSetup             oTbl.PreferredWidth = .PageWidth - .LeftMargin - .RightMargin         End With     Next oTbl End Sub

Una vez completada la macro, aún debe examinar cada tabla para asegurarse de que los anchos de las columnas sean los adecuados para sus datos, pero el ancho total de las tablas será el que esperaba.

_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). Esta sugerencia (11487) se aplica a Microsoft Word 2007, 2010, 2013, 2016, 2019 y Word en Office 365. Puede encontrar una versión de esta sugerencia para interfaz de menú anterior de Word aquí:

link: / word-Expanding_Width_of_All_Tables [Expanding Width of All Tables].