Se hai un documento che contiene alcune tabelle, potresti cercare un modo per modificare la larghezza di tutte le tabelle nel documento. Ad esempio, gli standard della tua azienda potrebbero richiedere che tutte le tabelle abbiano la stessa larghezza, dal margine sinistro al margine destro.

Se si hanno quaranta o più tabelle in un documento, modificarne la larghezza singolarmente può essere molto noioso.

La seguente macro, ResizeAllTables, farà rapidamente ciò che dice: ridimensionare tutte le tabelle. Le larghezze delle tabelle vengono regolate per riempire i margini disponibili.

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

Dopo aver completato la macro, dovresti comunque esaminare ogni tabella per assicurarti che le larghezze delle colonne siano appropriate per i tuoi dati, ma la larghezza complessiva delle tabelle sarà quella prevista.

_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 (1382) si applica a Microsoft Word 97, 2000, 2002 e 2003. È possibile trovare una versione di questo suggerimento per l’interfaccia a nastro di Word (Word 2007 e più tardi) qui:

Expanding Width of All Tables.