文档章节

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

没有更多内容

加载失败,请刷新页面

加载更多

下一页

python3.6 取整除法

python3.6 中取整除法运算逻辑如下: d 非零,那么商 q 满足这样的关系: a = qd + r ,且0 ≤ r n1=7//3#7 = 3*2 +1n2=-6.1//3#-7 = 3*(-3)+2'{},{}'.format(n1,n2) 从运行结果可以...

colinux
20分钟前
3
0
阶段总结——用虚拟机搭建一个高可用负载均衡集群架构

[toc] linux基本知识已经介绍完,现有一个业务需要操作,通过对这个项目的操作,可以复习、总结、巩固之前的知识点; ** 用13台虚拟机搭建一个高可用负载均衡集群架构出来,并运行三个站点,...

feng-01
23分钟前
0
0
mysql 设置utf8字符集 (CentOS)

1.查看数据库及mysql应用目前使用的编码方式 (1)链接mysql 客户端 (2)执行:status 结果: 2.修改mysql 应用的字符编码(server characterset ) (1)打开配置文件:vim /etc/mysql/my...

qimh
24分钟前
0
0
windows无法格式化u盘解决方法

1。点开始-运行-输入cmd-format f: /fs: fat32 (这里f:是指U盘所在盘符) 这个格式化会很慢 请耐心等待

大灰狼wow
35分钟前
0
0
MySql 8.0连接失败

原来,MySql 8.0.11 换了新的身份验证插件(caching_sha2_password), 原来的身份验证插件为(mysql_native_password)。而客户端工具Navicat Premium12 中找不到新的身份验证插件(caching_s...

放飞E梦想O
52分钟前
1
0

没有更多内容

加载失败,请刷新页面

加载更多

下一页

返回顶部
顶部