Creating VBA Code to Delete Empty Column in Table

Faugs · #5 08-07-2014, 02:01 PM

Thank you very much for your response, Cosmo! I also appreciate your response too, macropod!

I was able to get it to work with the following VBA:

Code:

Sub DeleteEmptyTablerowsandcolumns()
Application.ScreenUpdating = False
    Dim Tbl As Table, cel As Cell, i As Long, n As Long, fEmpty As Boolean
    
    With ActiveDocument
        For Each Tbl In .Tables
        n = Tbl.Columns.Count
            For i = n To 1 Step -1
                fEmpty = False
                For Each cel In Tbl.Columns(i).Cells
                    If Len(cel.Range.Text) <= 2 Or IsNull(cel.Range.Text) Or IsEmpty(cel.Range.Text) Or cel.Range.Text = "" Then
                        fEmpty = True
                    End If
                    Next cel
                    If fEmpty = True Then Tbl.Columns(i).Delete
                Next i
        Next Tbl
    End With
End Sub

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Macro to delete all empty rows from all tables	braddgood	Word VBA	15	10-02-2015 01:54 PM
Delete row when 2 column has no value	Rok	Word VBA	1	11-26-2013 01:59 AM
Unable to open or delete an empty folder	Zimm	Windows	4	11-19-2013 05:07 PM
Delete lots of empty space between paragraphs.	FieldTechnician	Word	4	10-25-2013 01:14 PM
Macro to delete rows with all empty cells	ubns	Excel Programming	2	08-14-2012 02:01 AM