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-05-2014, 08:41 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

What you describe could be done with a macro like:

Code:

Sub Demo()
Application.ScreenUpdating = False
Dim Tbl As Table, i As Long
For Each Tbl In ActiveDocument.Tables
  With Tbl
    For i = .Columns.Count To 2 Step -1
      If Len(.Cell(2, i).Range.Text) = 2 Then .Columns(i).Delete
    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.