word删除最后一个表格的行

2019独角兽企业重金招聘Python工程师标准>>>

  'Option Base 1
Sub aa()
  Dim s As String
  Dim t As String
  Dim p As String
  Dim path As String
 
  '定义删除的行号
  Dim drow(1 To 3)
 drow(1) = 1
 drow(2) = 2
 drow(3) = 3
 
  'MsgBox UBound(drow) - LBound(drow)
 
 
  p = ThisDocument.path
  s = p & "\s\"
  t = p & "\t\"
 
  path = Dir(s)
 

 While path <> ""
 
    'MsgBox path
    'delete 行
    Call deleterow(s, t, path, drow)
    path = Dir()

  Wend


 
 
 
End Sub

Function deleterow(s As String, t As String, path As String, drow As Variant)
Dim line As Integer
Dim row As Integer
Dim total As Integer
Dim doc As Document
Dim tdoc As Document
Dim spath As String
Dim tpath As String
spath = s & path
tpath = t & path


Set doc = Documents.Open(spath)
doc.SaveAs2 (tpath)
total = doc.Tables.Count
doc.Close (wdDoNotSaveChanges)

Set tdoc = Documents.Open(tpath)
tdoc.Unprotect "111111"
total = tdoc.Tables.Count

For Each x In drow
   'MsgBox x
   tdoc.Tables(total).Rows(1).Delete
  Next
tdoc.Protect wdAllowOnlyFormFields, True, "111111"

tdoc.Close (wdSaveChanges)





End Function

转载于:https://my.oschina.net/china008/blog/279692