'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