word删除最后一个表格的行
博客专区 > china008 的博客 > 博客详情
word删除最后一个表格的行
china008 发表于4年前
word删除最后一个表格的行
  • 发表于 4年前
  • 阅读 6
  • 收藏 0
  • 点赞 0
  • 评论 0

标题:腾讯云 新注册用户域名抢购1元起>>>   

摘要: word删除最后一个表格的行
  '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

共有 人打赏支持
粉丝 5
博文 182
码字总数 30406
×
china008
如果觉得我的文章对您有用,请随意打赏。您的支持将鼓励我继续创作!
* 金额(元)
¥1 ¥5 ¥10 ¥20 其他金额
打赏人
留言
* 支付类型
微信扫码支付
打赏金额:
已支付成功
打赏金额: