Sub Macro1()
Dim MyTable As Table
For Each MyTable In ActiveDocument.Tables
MyTable.PreferredWidthType = wdPreferredWidthPercent
MyTable.PreferredWidth = 100
If MyTable.Columns.Count = 4 Then
MyTable.Columns(4).PreferredWidth = CentimetersToPoints(1.29)
End If
Next
End Sub
这里判断有四列的表格，才操作
类推，也可以通过判断单元格的标题内容符合要求，才操作
Sub 获取表格表头()
Dim tbl As Table
Dim colIndex As Integer
Dim 表头内容 As String
' 遍历文档中所有表格
For Each tbl In ActiveDocument.Tables
Debug.Print "表格 " & tbl.Index & " 的表头："
' 遍历第一行的所有单元格（表头）
For colIndex = 1 To tbl.Rows(1).Cells.Count
' 获取单元格文本（去除多余的段落标记）
表头内容 = Replace(tbl.Rows(1).Cells(colIndex).Range.Text, Chr(13) & Chr(7), "")
Debug.Print "第 " & colIndex & " 列表头：" & 表头内容
Next colIndex
Debug.Print "-------------------------"
Next tbl
MsgBox "表头信息已输出到立即窗口（按Ctrl+G查看）"
End Sub
