Macro to remove blank column

		Microsoft Office Forums > Microsoft Word > Word VBA
Macro to remove blank column

FAQ

Thread Tools

Display Modes

03-04-2013, 01:45 PM

macropod

Windows 7 64bit Macro to remove blank column

Office 2010 32bit

Administrator

Join Date: Dec 2010

Location: Canberra, Australia

Posts: 22,385

The following macro will delete whatever column(s) the insertion point is in or cells from which are selected (ie it's not restricted to deleting one column at a time.

Code:

Sub Demo()
With Selection
  If .Information(wdWithInTable) Then
    .Columns.Delete
  End If
End With
End Sub

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

« Previous Thread | Next Thread »

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
how to remove blank box on top-left corner of table in PPT 2010?	dylansmith	PowerPoint	3	10-18-2012 03:59 AM
Need VBA For Macro On How To Remove Specific Words	netchie	Word VBA	6	08-28-2012 03:37 PM
Macro to remove MacroButtons	ilkks	Word VBA	3	05-22-2011 11:03 PM
How to remove blank rows from a specified range?	Learner7	Excel	1	04-19-2011 02:45 AM
Need help on Macro 03- Find text - if text is blank then remove line	simpleonline1234	Word VBA	1	02-25-2011 02:28 AM

Other Forums: Access Forums

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