Dim i As Integer For i = 1 To Selection.Tables.Count Selection.Tables(i).Columns(9).Delete Selection.Tables(i).AutoFitBehavior (wdAutoFitContent) Selection.Tables(i).AutoFitBehavior (wdAutoFitContent) Next End Sub 上面宏的作用是遍历选中内容中的所有表格,把所有表格的
不解释,直接上代码... 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.
下面将展示如何使用Openxm向Word添加表格. 代码中表头和数据我用的同一个TableRow来添加,其实可以通过TableHeader来,其实都一样.后面教程我会给出如何设置单元格样式.表头那一行可以自己通过设置样式来控制 代码如下: using System; using System.Collections.Generic; using System.Linq; using System.Text; using System.Threading.Tasks; using Document