文档章节

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
vi和vim编辑器的使用

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

李矮矮
2016/11/24
7
0
Vim的简单用法

Vi是一种常见的文本编辑器 Vim 是Vi iMproved ,是vi文本编辑器的加强 Vi分为3个模式,分别为一般模式,编辑模式与命令行模式。 一般模式 直接用vi命令打开一个文件,就进入了一般模式(默认...

Billy112487983
2014/04/25
0
0

没有更多内容

加载失败,请刷新页面

加载更多

SpringData JPA 在解析实体类字段时驼峰自动添加下划线问题

SpringData JPA 使用的默认命名策略是: ImprovedNamingStrategy 。用下划线转换驼峰名,如 authorId ,转换成 author_id 。这样就遇到了一个问题:实体中驼峰命名的列名转换成下划线后,在M...

Jacktanger
14分钟前
0
0
Android JNI开发系列(十)JNI访问 Java 实例变量和静态变量

JNI访问 Java 实例变量和静态变量 Java 中的实例变量和静态变量,在本地代码中如何来访问和修改。静态变量也称为类变量(属性),在所有实例对象中共享同一份数据,可以直接通过类名.变量名来...

蔡小鹏
19分钟前
0
0
jsapi4加载的首个图层的范围被默认作为地图范围,且不能修改的解决

在map加载的第一个图层的图层范围(fullExtent),会被默认设置为map的全图范围,且不能更改,从一般地图控件角度来说,应该有fullExtent属性,作为地图的全图范围,但很遗憾jsapi4.9还没有 ...

canneljls
19分钟前
0
0
JSON.stringify()

JSON.parse()与JSON.stringify()的区别 JSON.parse()【从一个字符串中解析出json对象】 例子: //定义一个字符串 var data='{"name":"goatling"}' //解析对象 JSON.parse(data) 结果是: na...

废柴
20分钟前
0
0
HashSet

前言 Set的实现类都是基于Map来实现的(HashSet是通过HashMap实现的)。 构造图如下: 蓝色线条:继承 绿色线条:接口实现 正文 对于HashSet而言,它是基于HashMap来实现的,底层采用HashMap来保...

狼王黄师傅
22分钟前
0
0

没有更多内容

加载失败,请刷新页面

加载更多

返回顶部
顶部