文档章节

word删除最后一个表格的行

china008
 china008
发布于 2014/06/14 09:32
字数 184
阅读 12
收藏 0
  '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

© 著作权归作者所有

共有 人打赏支持
china008
粉丝 5
博文 286
码字总数 30406
作品 0
海淀
私信 提问
word分节符与分页符的区别与用法

word分节符与分页符的区别与用法 分页符 当文字或图形填满一页时,Microsoft Word 会插入一个自动分页符 (分页符:上一页结束以及下一页开始的位置。Microsoft Word 可插入一个“自动”分页...

52PiggySky
2014/02/26
0
0
Aspose.Words对Word的操作

对于word操作一般是对已有word模板的操作,直接新建的不考虑,网上教程很多,自己看吧一般有以下几种办法(忘了具体几种了,一般情况下以下就够了)1、通过书签替换顾名思义,就是先定义一个...

wen1512
2016/09/20
99
0
vim命令总结

vim 共分为三种模式,分别是『一般模式』、『编辑模式』与『指令列命令模式』。 表格是对vim常用命令的总结: 第二部份:一般模式切换到编辑模式的可用的按钮说明 第三部份:一般模式切换到指...

喵来个鱼
2017/12/10
0
0
Word报告自动生成(例如 导出数据库结构)

将很早之前写的一个小组件重新整理优化一下,做成一个通用的功能。适用于导出数据库的结构(表、字段等)到Word或将体检数据自动生成Word版的体检报告等。代码:Github 一、主要需要完成功能...

FlyLolo
11/16
0
0
vi和vim编辑器的使用

常用命令 O 开启新的一行 0 跳到本行的头部 b, B 以单词为单位往前跳动光标,小写包含标点 w, e, W, E 跳到单词的后面,小写包括标点 h,j,k,l h表示往左,j表示往下,k表示往上,l表示往右 ...

李矮矮
2016/11/24
7
0

没有更多内容

加载失败,请刷新页面

加载更多

深入解析react关于事件绑定this的四种方式

这篇文章主要介绍了详解react关于事件绑定this的四种方式,写的十分的全面细致,具有一定的参考价值,对此有需要的朋友可以参考学习下。如有不足之处,欢迎批评指正。 在react组件中,每个方...

前端攻城小牛
8分钟前
1
0
JS正则表达式

url的正则表达式:包括IP,域名(domain),ftp,二级域名,域名中的文件,域名加上端口!用户名等等信息 `function` `IsURL(str_url) {``var` `strRegex =``"^((https|http|ftp|rtsp|mm...

前端小攻略
12分钟前
1
0
shell习题_2

find /root/ceshi1/ -type f -name "*.txt"|xargs -i mv {} {}.bak find /root/ceshi1/ -type f -name "*.txt" -exec mv {} {}.bak \; 1、批量修改文件名: n1=`echo $f|sed '#.bak##'` [ro......

芬野de博客
14分钟前
1
0
JavaScript面向对象的程序设计相关知识小结

面向对象的语言有一个标志,即拥有类的概念,抽象实例对象的公共属性与方法,基于类可以创建任意多个实例对象,一般具有封装、继承、多态的特性!但JS中对象与纯面向对象语言中的对象是不同的...

peakedness丶
17分钟前
1
0
教你React Native使用fetch实现图片上传

这篇文章主要介绍了详解react关于事件绑定this的四种方式,写的十分的全面细致,具有一定的参考价值,对此有需要的朋友可以参考学习下。如有不足之处,欢迎批评指正。 在react组件中,每个方...

前端攻城老湿
19分钟前
1
0

没有更多内容

加载失败,请刷新页面

加载更多

返回顶部
顶部