Le tabelle sono un ottimo modo per presentare molti tipi di informazioni. In effetti, ho visto alcuni documenti che consistono quasi interamente di tabelle. Se lavori molto con le tabelle, potresti (ad un certo punto) voler copiare tutte le tabelle da un documento a un documento nuovo di zecca. Questo potrebbe essere utile se hai informazioni tabulari che devono essere disponibili nel nuovo documento, ma non hai bisogno del resto delle informazioni del documento originale.

Il modo più semplice per eseguire questo tipo di copia è utilizzare una macro.

Fortunatamente, tutte le tabelle in un documento sono rese disponibili a VBA tramite la raccolta di tabelle. Ciò significa che puoi scorrere ogni elemento della raccolta (ogni elemento sarà una singola tabella) e quindi 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 volta eseguita, crea un documento nuovo di zecca (Target) e copia le tabelle dal documento originale (Sorgente) in quello nuovo. (Il documento sorgente è qualunque documento fosse attivo quando hai eseguito la macro.)

La macro inserisce una riga vuota tra ogni tabella nel documento di destinazione.

Se non vuoi la riga vuota, rimuovi o commenta la riga appena prima dell’istruzione Next.

_Nota: _

Se desideri sapere come utilizzare le macro descritte in questa pagina (o in qualsiasi altra pagina dei siti WordTips), ho preparato una pagina speciale che include informazioni utili.

Fare clic qui per aprire quella pagina speciale in una nuova scheda del browser.

WordTips è la tua fonte di formazione economica su Microsoft Word.

(Microsoft Word è il software di elaborazione testi più popolare al mondo.) Questo suggerimento (13338) si applica a Microsoft Word 2007, 2010, 2013, 2016, 2019 e Word in Office 365.