Quando si inserisce una tabella in Word, viene creato automaticamente un bordo per ogni cella della tabella. Questo bordo è una singola linea, mezzo punto di peso. Sfortunatamente, Word non fornisce alcun modo per modificare la larghezza della linea predefinita utilizzata durante la creazione della tabella. Sebbene sia vero che puoi scegliere uno spessore della linea nella finestra di dialogo Bordi e ombreggiatura, questo peso viene reimpostato a mezzo punto quando inserisci una nuova tabella.

Se vuoi un altro spessore di linea, come tre quarti di punto, hai un problema. È necessario selezionare manualmente qualsiasi nuova tabella e formattare i bordi, in modo che abbiano la larghezza desiderata. Se lavori con molti tavoli, questo può diventare rapidamente una seccatura. Potresti, ovviamente, creare uno stile di tabella, ma l’applicazione di uno stile di tabella può dare risultati non uniformi se tutto ciò che vuoi fare è cambiare la larghezza della linea o se stai lavorando con un documento a cui è stata applicata molta formattazione esplicita le tavole.

Forse il modo migliore per aggirare questo problema è scrivere una macro. Anche se questa potrebbe non essere la soluzione più ideale, è certamente più facile che cambiare manualmente ogni tabella nel documento.

La seguente macro, FixCellBorders, scorre ogni cella in ogni tabella del documento e si assicura che lo spessore minimo della linea sia tre quarti di punto. Lo fa verificando le impostazioni di linea correnti e quindi apportando la regolazione solo se necessario.

Sub FixCellBorders()

On Error Resume Next     ' 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

Come puoi immaginare, la macro non è molto veloce poiché guarda tutti e quattro i bordi per ogni cella in ogni tabella del tuo documento. Il vantaggio, tuttavia, è che la macro modificherà solo il peso di qualsiasi bordo della cella che si trova a un quarto o mezzo punto. Ciò significa che qualsiasi formattazione manuale eseguita per linee di larghezza diversa non cambierà.

Se stai cercando una macro un po ‘più veloce, il seguente (FixTableBorders) farà il trucco. Invece di guardare le singole celle, funziona su intere tabelle. La differenza, tuttavia, è che reimposta ogni bordo di ogni tabella a tre quarti di punto, utilizzando una singola riga. Se questo soddisfa le tue esigenze, tuttavia, è sicuramente il modo più semplice (più veloce) di procedere.

Sub FixTableBorders()

On Error Resume Next     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: _

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 (13081) si applica a Microsoft Word 2007, 2010, 2013, 2016, 2019 e Word in Office 365. Puoi trovare una versione di questo suggerimento per vecchia interfaccia del menu di Word qui:

Impostazione di una larghezza del bordo della tabella predefinita.