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

hpw

For Each i In Me.Tables

请问这句中的me.tables中的ME作何解??

守柔

在这个模块中（THISDOCUMENT），ME 作为ACTIVEDOCUMENT解。

hpw

呵呵,这样啊.不过我还是不会使用.

我现在是想将文件中所有的表格都设为列表型 4,怎么来设置循环呢?[em04][em04]

.Style = "列表型 4"

hpw

我的代码是这样滴,但不能执行,请柔MM帮我看看

Dim i As Table Application.ScreenUpdating = False For Each i In ActiveDocument With i.Tables .Style = "列表型 4" .ApplyStyleHeadingRows = False .ApplyStyleLastRow = False .ApplyStyleFirstColumn = False .ApplyStyleLastColumn = False End With Next Application.ScreenUpdating = True

守柔

以下是引用hpw在2004-11-2 17:29:00的发言：

我的代码是这样滴,但不能执行,请柔MM帮我看看

Dim i As Table Application.ScreenUpdating = False For Each i In ActiveDocument With i.Tables .Style = "列表型 4" .ApplyStyleHeadingRows = False .ApplyStyleLastRow = False .ApplyStyleFirstColumn = False .ApplyStyleLastColumn = False End With Next Application.ScreenUpdating = True

请参：

Sub settables()

Dim i As Table

Application.ScreenUpdating = False

For Each i In ActiveDocument.Tables

With i

.Style = "列表型 4"

.ApplyStyleHeadingRows = False

.ApplyStyleLastRow = False

.ApplyStyleFirstColumn = False

.ApplyStyleLastColumn = False

End With

Next

Application.ScreenUpdating = True

End Sub

你的代码中有一个明显的问题，就是集合对象与集合之间没有搞清楚，比如本例，table是每一个表，单张表；而tables则是所有表的集合（前提是活动文档或者指定文档），所以应该是每个表（i)在所有表的集合（tables)中循环.

hpw

哈哈,柔MM这么早就来帮我解决问题了,心里真是过意不去.你真是一位伟大的女性!向你致敬!

我试运行了一番,效果真是好呀!也明白了你说的集合的问题乐!

接下来我再接着改我的表,我想把表做的好看一点,到时还要向你请教!

[em02][em02][em02][em02]

如意

以下是引用hpw在2004-11-3 19:01:00的发言：

哈哈,柔MM这么早就来帮我解决问题了,心里真是过意不去.你真是一位伟大的女性!向你致敬!

我试运行了一番,效果真是好呀!也明白了你说的集合的问题乐!

接下来我再接着改我的表,我想把表做的好看一点,到时还要向你请教!

[em02][em02][em02][em02]

楼主，看到你的帖子，我真的笑的肚子都痛了。

守柔，以后我是叫你GG呢还是叫你MM呀。

还在大笑中　我真的忍不住哦。

如意

另外就楼主所提的这个问题，我有另外一种不用VBA的方法，不知你合不合意。

1、在“样式和格式”中按下图中的选项做，将会选中文档中的表格所有表格要。

2、“表格→表格自动套用格式”选一个你满意的样式确定。或者“格式→边框和底纹”随你怎么设。

hyc

以下是引用如意在2004-11-4 23:09:00的发言：

另外就楼主所提的这个问题，我有另外一种不用VBA的方法，不知你合不合意。

1、在“样式和格式”中按下图中的选项做，将会选中文档中的表格所有表格要。

2、“表格→表格自动套用格式”选一个你满意的样式确定。或者“格式→边框和底纹”随你怎么设。

这种方法不行的，这种方法是将表格一个一个的改，斑竹的方法是一次性成批的改！！你想想我的文档很大，去年的两本书共计220万字，今年修订，我想给所有的表样式都统一，大约有1500个表，这样手工改实在太麻烦！还是守柔斑竹的方法好！！！输入代码，1分钟搞定！

tcsooy

我也是一种在寻找相关的内容，WORD版主的方式解决了此类问题，下次有问题单M版本了。