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 自动调整所有表格() ' ' 自动调整所有表格 宏 ' 'Application.Browser.Target = wdBrowseTable For i = 1 To ActiveDocument.Tables.Count With ActiveDocument.Tables(i) .AutoFitBehavior (wdAutoFitWindow) '根据窗口调整内容 .Range.ParagraphFormat.Alignment = wdAlignParagraphCenter
不解释,直接上代码... 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.