Word中使用宏处理表格内容 小记

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

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