Word中使⽤宏处理表格内容⼩记
不解释，直接上代码。。。
Sub 删除表格列WT0818()
'此符号是注释
' 删除表格列WT0818 宏
'
For Each tb In ActiveDocument.Tables  //word⽂件中的表格集合delete删除表格还是内容
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

版权声明：本站内容均来自互联网，仅供演示用，请勿用于商业和其他非法用途。如果侵犯了您的权益请与我们联系QQ:729038198，我们将在24小时内删除。