如何将Word中的表格线条一次性更改？

hyc · 发表于 2004-10-28 13:48

我有一篇长文档，约110万字，里面有很多表格，但各表格的线条设置不一样，如有的表格为线条为1/2磅，有的为1/4磅等，我想将全部文档一次性更改统一？怎么办？

手工一个表一个表的改太麻烦！

谢谢！

hooh · 发表于 2004-10-28 13:55

编辑全选,表格属性里面设置就行了.

守柔 · 发表于 2004-10-28 14:33

使用VBA，在表格中循环，把你需要的表格的框线设置说出来，代码我来帮你写。

二楼的方法在我OFFICEXP中行不通。

hyc · 发表于 2004-10-29 01:37

二楼的方法的确行不通，我试过。

我将我文档的一部分复制后，链接于此，要求也放在文件内。

点击看此文件

请守柔版主帮忙指导！！谢谢！！

我从没用过VBA，更不知道代码，所以还请版主详细点讲解，谢谢！！！再谢谢！

[此贴子已经被作者于2004-10-29 1:39:12编辑过]

守柔 · 发表于 2004-10-29 05:31

以下是引用hyc在2004-10-29 1:37:00的发言：

二楼的方法的确行不通，我试过。

我将我文档的一部分复制后，链接于此，要求也放在文件内。

点击看此文件

请守柔版主帮忙指导！！谢谢！！

我从没用过VBA，更不知道代码，所以还请版主详细点讲解，谢谢！！！再谢谢！

先检查一下,是否为这个结果:

这个文档中包含了一个名为SetBorders的宏.

代码如下:

Sub SetBorders() Dim i As Table Application.ScreenUpdating = False For Each i In Me.Tables With i.Borders If .Enable = False Then Else .InsideLineStyle = wdLineStyleSingle .InsideLineWidth = wdLineWidth025pt .OutsideLineStyle = wdLineStyleSingle .OutsideLineWidth = wdLineWidth025pt End If End With Next Application.ScreenUpdating = True End Sub

ctYA758f.rar (40.11 KB, 下载次数: 68)

详细操作方法:检查并设置WORD程序的工具菜单/宏/安全性: 在宏安全性选项卡中选择安全性为低确定后退出并重启WROD.

在下贴中,将描述如何操作宏的运行.

守柔 · 发表于 2004-10-29 05:43

用ALT+F11,或者点击:工具/宏/Visuar Basic 编辑器,我们就进入了VBE(visuar Basic editor,即VB代码编辑器简称)

如图:注意如示的代码在名为"11111"的工程资源管理器下的THISDOCUMENT的代码窗口中.

选定这段代码(CTRL+A),复制(CTRL+C),再将其粘贴到你的原始文档中的THISDOCUMENT的代码窗口中,如果你能保证当前WORD的活动文档就是你的原始文档的话,点击VBE常用工具栏中的运行按钮(小三角) 或者F5即可(注意此时在VBE中),保险起见,请关闭VBE,关闭其它多余文档,只打开你的原始文档用ALT+F8,(如图二所示),选中名为SetBorders的宏,点运行即可.

攸攸 · 发表于 2004-10-29 15:54

楼主可试下用word的文本框操作。。。。。

hyc · 发表于 2004-10-29 22:49

谢谢！

守柔版主，我按您的方法去做了，出来的表格的确是变了个样，谢谢！但是所有生成的新表格——横线和纵线的磅值（粗细）并不一样，我在WORD 下将“显示比例”调为500%时，发现所有表格的横线的磅值为1/2（但表格底线为1/1），所有纵线的磅值也是1/1。这就是说，这张表的横线、纵线的粗细并不一样！有什么办法使他们都一样呢！（包括表格的底线），最好使横纵线都是1/1（就是最细的那种！）

我知道您离最后的成功已经不远了！再次谢谢！

守柔 · 发表于 2004-10-30 04:39

以下是引用hyc在2004-10-29 22:49:00的发言：

谢谢！

守柔版主，我按您的方法去做了，出来的表格的确是变了个样，谢谢！但是所有生成的新表格——横线和纵线的磅值（粗细）并不一样，我在WORD 下将“显示比例”调为500%时，发现所有表格的横线的磅值为1/2（但表格底线为1/1），所有纵线的磅值也是1/1。这就是说，这张表的横线、纵线的粗细并不一样！有什么办法使他们都一样呢！（包括表格的底线），最好使横纵线都是1/1（就是最细的那种！）

我知道您离最后的成功已经不远了！再次谢谢！

楼主是真细心啊，但被假象迷惑了。请看楼上代码的含义：

Sub SetBorders() Dim i As Table Application.ScreenUpdating = False For Each i In Me.Tables With i.Borders If .Enable = False Then Else .InsideLineStyle = wdLineStyleSingle‘表格的内部边框为细实线型 .InsideLineWidth = wdLineWidth025pt’其线宽为1/4 磅即0.25磅 .OutsideLineStyle = wdLineStyleSingle'表格的外部边框为细实线型 .OutsideLineWidth = wdLineWidth025pt'其线宽为1/4磅即0.25磅 End If End With Next Application.ScreenUpdating = True End Sub

以上代码可知程序运行中已将所有非框线隐藏型的表格中的外部边框内部边框设置成楼主想的格式:

要求：表的线型为：实线、1/1磅（最细的那种）,最细的应该是那种0.25磅的(1/4)磅!

但是用于排版的隐线表不变。

放大倍数后,受显示影响,有部分框线(主要是水平框线)出现同楼主所说一样的情况其实很好判断,选中该表格点击格式边框和底纹看一下是否是"全部" 处于突出状态以及细横线处于选中状态和线宽是否为0.25(1/4).

也可以按照你的想法设置一下再放大看一下还是有?

也可以打印一份当前页看一下?

也可以复制一表格到空白文档中打印一下.

判断一下是否一致不要被假象所迷惑.

hyc · 发表于 2004-10-30 11:51

谢谢守柔斑竹！

正如您所说，问题得到了彻底解决！！一个月以来，我四处求救（我到过许多论坛），都没有找到答案，终于在这得到圆满答复，敬佩！敬佩！第一：敬佩您的技术！第二：敬佩您的热情及认真负责的精神！！

说实话，刚发贴时，我只抱着试试看的心理，并没抱很大希望！因为以前我也在此论坛求救过，但一直到现在也没获得答案，都4、5个月了！如：

http://club.excelhome.net/viewthread.php?tid=54166

再次，谢谢！

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