excel编辑一个宏，要删除word里倒数第二行

feifei1982

excel编辑一个宏，要打开c盘下，e1文 件夹内word文档，删除word里倒数第二行，一直未成功，请高手指导下。 Dim wordApp As ObjectDim myword As Object
Dim oTable As Object

Set wordApp = CreateObject("Word.Application")

Set myword = wordApp.Documents.Open(myPath & myFile)
wordApp.Visible = True


Set oTable = myword.Tables(1)

    With myword.Tables(1)
        c = .Columns.Count  '列数

            .Range.Cells(c).Select  '选中最后一列第一个单元格
            Selection.Columns.Delete  '删除列

    End With

          myword.Close True '关闭文档
wordApp.Visible = False

wordApp.Quit

QQ214189912

.....................