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