常用脚本
常用脚本 批量处理word中表格的宽度 Sub 表格列宽设置() '若干表格,每表7列 On Error Resume Next Dim t As Table For Each t In ActiveDocument.Tables t.Select Selection.Cells.DistributeWidth Selection.Columns.PreferredWidthType=wdPreferredWidthPoints Selection.Columns(1).PreferredWidth=CentimetersToPoints(3.85) Selection.Columns(2).PreferredWidth=CentimetersToPoints(4.66) Selection.Columns(3).PreferredWidth=CentimetersToPoints(2.26) Selection.Columns(4).PreferredWidth=CentimetersToPoints(1.78) Selection.Columns(5).PreferredWidth=CentimetersToPoints(1.41) Selection.Columns(6).PreferredWidth=CentimetersToPoints(1.41) Next Selection.HomeKey Unit:=wdStory End Sub 合并