Thread: [Solved] Macro to remove blank column
View Single Post
 
Old 03-04-2013, 01:45 PM
macropod's Avatar
macropod macropod is offline Windows 7 64bit Office 2010 32bit
Administrator
  
Join Date: Dec 2010
Location: Canberra, Australia
Posts: 22,384
macropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond repute
Default
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]
Reply With Quote