Creating VBA Code to Delete Empty Column in Table

		Microsoft Office Forums > Microsoft Word > Word VBA
Creating VBA Code to Delete Empty Column in Table

FAQ

Thread Tools

Display Modes

08-07-2014, 03:29 PM

macropod

Windows 7 32bit Creating VBA Code to Delete Empty Column in Table

Office 2010 32bit

Administrator

Join Date: Dec 2010

Location: Canberra, Australia

Posts: 22,467

You could use:

Code:

Sub Demo()
Application.ScreenUpdating = False
Dim Tbl As Table, i As Long
For Each Tbl In ActiveDocument.Tables
  With Tbl.Range
    For i = .Cells.Count To 1 Step -1
      .Cells(i).Range.Select
      If Len(.Cells(i).Range.Text) = 2 Then .Columns(.Cells(i).ColumnIndex).Delete
      If i > .Cells.Count Then i = .Cells.Count
    Next
  End With
Next
Application.ScreenUpdating = True
End Sub

__________________
Cheers,
Paul Edstein
[Fmr MS MVP - Word]

« Previous Thread | Next Thread »

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

Other Forums: Access Forums

All times are GMT -7. The time now is 01:49 PM.