批量设置表格列宽（宏）

daibao88 · 发表于 2019-7-26 14:32

Selection影响效率，尽量少用。

ost · 发表于 2019-7-26 18:15

Dim t As Table
运行到这里，提示用户定义类型未定义

413191246se · 发表于 2019-7-27 12:53

Selection影响效率，尽量少用。

谢谢 daibao88 老师提醒！我要注意一下。（您虽然新来不久，但看得出来，水平远高于我，我还不懂函数、数组，更不懂字典、递归、正则等。）

413191246se · 发表于 2019-7-27 13:36

本帖最后由 413191246se 于 2019-8-3 08:02 编辑

* ost 朋友，请试试下楼代码。
* 谢谢 weiyingde 老师，数组不怎么会用，当初还是 loquat 老师把我的《电子印章》宏改了才会用一点点数组，其实到现在还是不大会用一维数组。我把前两年您的代码改了一下，现在看应该没有问题了！

413191246se · 发表于 2019-8-3 08:00

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

复制代码

125675117 · 发表于 2021-11-14 23:06

413191246se 发表于 2016-5-9 10:27
增加了《根据窗口调整表格》两行代码（两行代码一样，是录制宏），似乎可以了！

运行到 Dim t As Table 提示用户定义类型未定义

413191246se · 发表于 2021-11-15 19:53

楼上朋友：Dim t As Table 在我这里没有问题，运行正常！（Word 2019），但不知在你那里为什么会有问题。

还有，我发现在 Word 2019 中设置列宽会出错！不知就里。此问题暂时搁置。。。

413191246se · 发表于 2021-11-23 01:42

*** 各位朋友，今晚我在编程《证书表格合并》宏成功后，在设置列宽时总是不管事，最后，终于搞明白了！第 15 楼《表格列宽》宏，只需把 PreferredWidth 改为 Width 即可正确设置各列的宽度了！

cehuilang · 发表于 2023-10-14 15:54

ost 发表于 2019-7-26 18:15
Dim t As Table
运行到这里，提示用户定义类型未定义

我这里也是提示用户定义类型未定义咋回事呢

413191246se · 发表于 2023-10-15 20:46

楼上朋友，可否截个图？

		自动登录	找回密码
密码			免费注册

[分享] 批量设置表格列宽（宏）

评分