Microsoft Office Forums - View Single Post - [Solved] Are all cells in the column empty

macropod · 12-15-2024, 04:46 PM

That depends on how you're going about it. For a designated table & column, you could use something based on:

Code:

Sub CheckTableData()
Application.ScreenUpdating = False
Dim t As Long, c As Long, r As Long, l As Long, bFit As Boolean
With ActiveDocument
  If .Tables.Count = 0 Then Exit Sub
  t = InputBox("Which table?" & vbCr & "Choose from 1 to " & .Tables.Count, , 1)
  c = InputBox("Which column?" & vbCr & "Choose from 1 to " & .Tables(t).Columns.Count, , 1)
  With .Tables(t)
    bFit = .AllowAutoFit
    .AllowAutoFit = False
    For r = 1 To .Rows.Count
      l = l + Len(.Cell(r, c).Range.Text) - 2
    Next
    .AllowAutoFit = bFit
  End With
End With
MsgBox l
Application.ScreenUpdating = True
End Sub

If you know the table # and column #, you could hard-code those.

In each case, the macro returns how may text characters are in the designated cells.