怎么用查找替换批量把所有表格外框加粗？

duquancai · 发表于 2016-12-1 13:40

lidejun55 发表于 2016-12-1 13:31
那麻烦给说一下怎么能批量调整表格外框？谢谢

Sub shishi()
Dim tb As Table, i As Integer
For Each tb In ActiveDocument.Tables
For i = 1 To 4
tb.Range.Borders(-i).LineWidth = 12
Next
Next
End Sub

复制代码

duquancai · 发表于 2016-12-1 13:44

lidejun55 发表于 2016-12-1 13:31
那麻烦给说一下怎么能批量调整表格外框？谢谢

我不是只说了一下，而是说了很多下。自己去折腾吧！

lidejun55 · 发表于 2016-12-1 13:46

duquancai 发表于 2016-12-1 13:44
我不是只说了一下，而是说了很多下。自己去折腾吧！

谢谢，vba的方式已经找到源码了，能否只靠word本身批量设置表格外框？

duquancai · 发表于 2016-12-1 13:53

本帖最后由 duquancai 于 2016-12-1 14:05 编辑

lidejun55 发表于 2016-12-1 13:46
谢谢，vba的方式已经找到源码了，能否只靠word本身批量设置表格外框？

前面说了啊！不纠缠了。VBA你歧视不愿用，样式呢你又不会！样式呢要给你说清楚我又闲麻烦！你非得想用查找替换，但是查找替换我又不会！还说什么呢？

413191246se · 发表于 2016-12-1 20:58

杜先生好！楼主好！——两个代码均OK！我录制宏对付单个表格还要22行代码，杜先生的代码只须 6 行！
杜先生太厉害了！我反馈给杜先生三个问题：一是变量 i 为什么不用 Long 而用 Integer 类型？是为了省内存吗？据说 LONG 类型快。二是边框线是 12 是什么意思？（12*1.5=18）我设的是 1.5磅的外框线。三、杜先生的代码看来没对齐，都是缩进 3 个字符，要想对齐缩进 4 个字符的话，最好是按 TAB制表键才好，杜先生要是稍稍注意一下就更完美了。谢谢！（代码我略改了一下）

Sub BoldBorder()
Dim t As Table, i As Long
For Each t In ActiveDocument.Tables
For i = 1 To 4
t.Range.Borders(-i).LineWidth = 12
Next
Next
End Sub

复制代码

anmoyou · 发表于 2016-12-2 15:45

413191246se 发表于 2016-12-1 20:58
杜先生好！楼主好！——两个代码均OK！我录制宏对付单个表格还要22行代码，杜先生的代码只须 6 行！
...

快速、好用！赞一个

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

[求助] 怎么用查找 替换 批量把所有表格外框加粗？

[求助] 怎么用查找替换批量把所有表格外框加粗？