"The solutions and answers provided on Experts Exchange have been extremely helpful to me over the last few years. I wear a lot of hats - Developer, Database Administrator, Help Desk, etc., so I know a lot of things but not a lot about one thing. Experts Exchange gives me answers from people who do know a lot about one thing, in a easy to use platform." -Todd S.

Sub DeleteLastColoumn()Dim doc As DocumentDim sect As SectionDim tbl As TableSet doc = ActiveDocumentFor Each sect In doc.Sections On Error Resume Next Set tbl = sect.Range.Tables(2) On Error GoTo 0 If Not tbl Is Nothing Then tbl.Columns(tbl.Columns.Count).Delete End If Set tbl = NothingNext sectEnd Sub