参考代码

Dim app As New MSWord.Application
try
    Dim fileName = "d:\\test.doc"
    Dim doc = app.Documents.Open(fileName)
    Dim t = doc.Tables(1)
    Dim m As Long, n As Long
    m = t.Rows.Count
    n = t.Columns.Count
   
    t.Cell(m, n).Select
    \'删除列(此语句乃录制宏,点击表格工具栏上的删除列按钮所得)
    app.ActiveWindow.Selection.Columns.Delete
    t.range.copy
    doc.saved = True
    doc.close
    Dim nDoc = App.Documents.Add
    app.ActiveWindow.Selection.Paste
    \'nDoc.SaveAs("d:\\newFile.doc")
    app.visible = True
   
catch ex As exception
    msgbox(ex.message)
    app.Quit
finally
    \'app.Quit
End try