如何批量设置列宽

菜菜行者

多个表，每个表都是7列，要求宽度都一样，怎样才能快速设定？

不经意的回头

选中所有表格，表格属性-列-指定宽度，可以同时设置列宽，如果表格太多，选择表格是个问题

菜菜行者

300多页分了很多个表，你的方法不能全选查看表格属性

413191246se

楼主，如果你会用宏，请用下面的小宏即可：

1. Sub 多表列均等()
   
2.     On Error Resume Next
   
3.     Dim t As Table
   
4.     For Each t In ActiveDocument.Tables
   
5.         t.Select
   
6.         Selection.Cells.DistributeWidth
   
7.     Next
   
8.     Selection.HomeKey Unit:=wdStory
   
9. End Sub

复制代码

413191246se

表格一次全部选中是能办到，但无法设置列宽相等，不妨循环遍历设置所有表格即可。

菜菜行者

413191246se 发表于 2016-4-22 10:10
表格一次全部选中是能办到，但无法设置列宽相等，不妨循环遍历设置所有表格即可。

希望能对各列设置不同的宽度

菜菜行者

很需要，没人有招吗？

413191246se

1. Sub 表格列宽()
   
2. '假设有一组7列规则表格，循环设置7列表格列宽
   
3. 'A4默认总列宽=15.03厘米/但最后一列列宽应该多0.01厘米/这样右边框线才对齐
   
4.     Dim t As Table, arr, i&
   
5.     arr = Array(1.1, 0.8, 2.4, 1.3, 0.9, 1.8, 6.74)
   
6.     For Each t In ActiveDocument.Tables
   
7.         With t
   
8.             For i = 0 To UBound(arr)
   
9.                 .Columns(i + 1).PreferredWidth = CentimetersToPoints(arr(i))
   
10.             Next
    
11.         End With
    
12.     Next
    
13. End Sub

复制代码

cassiel_

413191246se 发表于 2020-7-27 13:08

大神，请问对于不规则表格，例如一个表第一行2列、第二行7列，如何分别设置第一行和第二行列宽？