Las tablas son una excelente manera de presentar muchos tipos de información. De hecho, he visto algunos documentos que consisten casi en su totalidad en tablas. Si trabaja mucho con tablas, es posible que (en algún momento) desee copiar todas las tablas de un documento a un documento nuevo. Esto podría ser útil si tiene información tabular que debe estar disponible en el nuevo documento, pero no necesita el resto de la información del documento original.

La forma más sencilla de realizar este tipo de copia es mediante una macro.

Afortunadamente, todas las tablas de un documento están disponibles para VBA a través de la colección Tables. Eso significa que puede recorrer cada elemento de la colección (cada elemento será una tabla individual) y luego copiarlo.

Sub CopyTables()

Dim Source As Document     Dim Target As Document     Dim tbl As Table     Dim tr As Range

Set Source = ActiveDocument     Set Target = Documents.Add

For Each tbl In Source.Tables         Set tr = Target.Range         tr.Collapse wdCollapseEnd         tr.FormattedText = tbl.Range.FormattedText         tr.Collapse wdCollapseEnd         tr.Text = vbCrLf     Next End Sub

La macro, una vez ejecutada, crea un documento nuevo (Destino) y copia las tablas del documento original (Fuente) en el nuevo. (El documento de origen es cualquier documento que estuviera activo cuando ejecutó la macro).

La macro coloca una línea en blanco entre cada tabla en el documento de destino.

Si no desea la línea en blanco, elimine o comente la línea justo antes de la declaración Siguiente.

_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 (13338) se aplica a Microsoft Word 2007, 2010, 2013, 2016, 2019 y Word en Office 365.