Nella mia linea di lavoro, ho bisogno di creare documenti che contengono molte tabelle.

Queste tabelle devono seguire una struttura rigida, incluso il requisito che nessuna cella può essere vuota. (Se una cella sarebbe altrimenti vuota, deve contenere i caratteri “N / A”.)

Per aiutare a lavorare con questo requisito per le tabelle, ho creato una macro che esamina la tabella per me e aggiunge i caratteri N / A, dove appropriato. Tutto quello che devo fare è posizionare il punto di inserimento all’interno della tabella di destinazione, quindi eseguire questa macro:

Sub AddTableNA()

Dim NumRows As Integer     Dim NumCols As Integer     Dim J As Integer     Dim K As Integer     Dim ChkTxt As String

If Not Selection.Information(wdWithInTable) Then         Exit Sub     End If

NumRows = Selection.Tables(1).Rows.Count     NumCols = Selection.Tables(1).Columns.Count

'Loop to select each row in the current table     For J = 1 To NumRows         'Loop to select each cell in the current row         For K = 1 To NumCols             'Select the cell to check             Selection.Tables(1).Rows(J).Cells(K).Select             'Copy any text in the cell             ChkTxt = Selection.Text             'Strip off the last 2 characters (removes end of cell marker)

ChkTxt = Left(ChkTxt, Len(ChkTxt) - 2)

'If empty, add "n/a" text             If (ChkTxt = "") Then Selection.TypeText ("N/A")

Next K     Next J End Sub

La macro verifica innanzitutto se il punto di inserimento si trova all’interno di una tabella.

In caso contrario, la macro viene chiusa anticipatamente. In tal caso, le variabili NumRows e NumCols vengono impostate rispettivamente sul numero di righe e colonne nella tabella.

La macro quindi passa attraverso ogni cella di ogni riga, determinando se la cella contiene qualcosa. A causa del modo in cui Word costruisce le tabelle, una cella conterrà sempre qualcosa, l’indicatore di fine cella, anche se non contiene nient’altro. La soluzione era sottrarre due caratteri dalla fine del testo nella cella, quindi vedere se era rimasto qualcosa. In caso contrario, i caratteri “N / A” vengono digitati nella cella.

_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 (13265) 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:

Mettere qualcosa in ogni cella di una tabella.