不解释，直接上代码。。。

Sub 删除表格列WT0818()

'此符号是注释

' 删除表格列WT0818 宏

'

For Each tb In ActiveDocument.Tables  //word文件中的表格集合

For r = tb.Rows.Count To 1 Step -1

　'tb.Rows(r).Delete  //删除指定的行

　　　　If InStr(tb.Cell(r, 3), "char") > 0 Then tb.Cell(r, 3) = Replace(tb.Cell(r, 3).Range.Text, Chr(13), "") + "(" + Replace(tb.Cell(r, 4).Range.Text, Chr(13), "") + ")"   //将第三个单元格的内容为指定内容

　　　　If InStr(tb.Cell(r, 7), "是") > 0 Then tb.Cell(r, 7) = "PK"

　　　　If InStr(tb.Cell(r, 8), "是") > 0 Then tb.Cell(r, 7) = Replace(tb.Cell(r, 7).Range.Text, Chr(13), "") + " FK"

Next

　　　tb.Columns(4).Delete  //删除第4列，列的索引从1开始

　　　tb.Columns(1).Width = 25     //设置第一列的宽度为25

　Next

MsgBox "完成"

End Sub

最新文章

1. 开启Apache mod_rewrite模块完全解答
2. android:layout_gravity和android:gravity属性的区别（转）
3. SQL常用代码收集
4. 气球或者泡泡向上飘动 jQuery插件
5. spark加载hadoop本地库的时候出现不能加载的情况要怎么解决呢？
6. 【Network】一张图看懂 Reactor 与 Proactor 模型的区别
7. python argparse模块解析命令行选项简单使用
8. MFC之MessageBox用法
9. html 商品展示框
10. string与stringbuilder的区别
11. 基于java callable及future接口解决生产者消费者问题
12. 拉电流（source current）与灌电流（sink current）
13. Session（）
14. [Node.js] 2、利用node-git-server快速搭建git服务器
15. lambda expressions
16. Finance财务软件（引入业务系统凭证专题）
17. xlwt 写sheet xls 文件
18. 068 Oozie任务调度框架
19. Python3的__new__进行构造类的实例化
20. JAVA常见算法题(三十四)---计算加密之后的电话号码

热门文章

1. 【sed】增加一列【shell文本处理】
2. ColumnStore完整验证指南之安装与启动停止
3. tcp config
4. Android Studio3.1.2运行模拟器出错Emulator:emulator:ERROR:x86 emulation currently requires hardware acceleration!
5. 解决一次git问题
6. Economics degrees
7. 导航栏中各按钮在点击当前按钮变色其他按钮恢复为原有色的实现方法（vue、jq、原生js）
8. [Linux]安装pyenv
9. [Basics] 递归
10. opencv的一些功能代码