多个表格，在不同页，如何快速调整所有表格

lizheqian168

            在每个页里都有一个表格，这些表格不相连，格式全部相同，现由工作需要，要调整

那么，有什么快速的方法能够调整这些表格呢？不要一个一个地调。

         用VBA也可以

gEGkqlTg.rar (33.12 KB, 下载次数: 451)

2007-10-27 17:18 上传

点击文件名下载附件
多个表格，在不同页，如何快速调整所有表格

[此贴子已经被作者于2007-10-27 17:18:27编辑过]

ruki86

好象很难的样子。。

c81

就你的这个例子，如下查找突出显示后，按下delete键即可。

lizheqian168

如果表格不能连在一起，而中间一定要保留那些空行，那要如何办呢？

还有，我要录制宏，为什么在录制过程中，我的光标不能定位呢？就只是那个唱片的图象

[此贴子已经被作者于2007-10-27 22:34:44编辑过]

northwolves

表格有合并单元格,或许只能逐个设置了:

Sub Macro1()
Dim mytable As Table, i As Long, j As Long
Application.ScreenUpdating = False
For Each mytable In ActiveDocument.Tables
For i = 1 To 4
mytable.Cell(1, i).Width = Choose(i, 32.4, 117, 45, 36)
Next
For j = 2 To mytable.Rows.Count
For i = 1 To 5
mytable.Cell(j, i).Width = Choose(i, 32.4, 36, 81, 45, 36)
Next
Next
Next
Application.ScreenUpdating = True
MsgBox "ok"
End Sub

lizheqian168

夜猫子，晚上都没睡吗？00：44

For i = 1 To 4
mytable.Cell(1, i).Width = Choose(i, 32.4, 117, 45, 36)
Next
For j = 2 To mytable.Rows.Count
For i = 1 To 5
mytable.Cell(j, i).Width = Choose(i, 32.4, 36, 81, 45, 36)
Next
Next

是否还可以麻烦解释这几个代码。我想把它改一改，让他适合其它的表格。因我的表格不一定是这样子的

还有，我那些行可以如何设置呢？

 或者，有没有较快速的方法，可以一次选择整个文件的表格呢/

用ctrl一个一个地选 可以，是否还有其它的

[此贴子已经被作者于2007-10-28 9:15:13编辑过]

lizheqian168

谢谢你的代码，看懂了你的代码之后，改写了一个调整高度的程序

Sub Macro2()
Dim mytable As Table, i As Long, j As Long
Application.ScreenUpdating = False
For Each mytable In ActiveDocument.Tables

For j = 1 To mytable.Rows.Count

mytable.Cell(j, 1).Height = 19.85
Next
Next
Application.ScreenUpdating = True
MsgBox "ok"
End Sub

只要把这句mytable.Cell(j, 1).Height = 19.85放到你的代码中就成了我真正要的了

[此贴子已经被作者于2007-10-28 22:25:23编辑过]

northwolves

QUOTE:

以下是引用lizheqian168在2007-10-28 22:24:22的发言：

谢谢你的代码，看懂了你的代码之后，改写了一个调整高度的程序

Sub Macro2()
Dim mytable As Table, i As Long, j As Long
Application.ScreenUpdating = False
For Each mytable In ActiveDocument.Tables

For j = 1 To mytable.Rows.Count

mytable.Cell(j, 1).Height = 19.85
Next
Next
Application.ScreenUpdating = True
MsgBox "ok"
End Sub

只要把这句mytable.Cell(j, 1).Height = 19.85放到你的代码中就成了我真正要的了

复杂化了.可简化为:

Sub Macro2()
Dim mytable As Table
Application.ScreenUpdating = False
For Each mytable In ActiveDocument.Tables
mytable.Rows.Height = 19.85
Next
Application.ScreenUpdating = True
MsgBox "ok"
End Sub

守柔

请解压缩此附件后在WORD 工具/模板与加载项中加载此模板。

成功加载后，在表格工具栏的选择/全选所有表格命令。

NamrOJRI.zip (8.24 KB, 下载次数: 502)

2007-10-29 08:15 上传

点击文件名下载附件
多个表格，在不同页，如何快速调整所有表格

northwolves

QUOTE:

以下是引用守柔在2007-10-29 8:16:48的发言：

请解压缩此附件后在WORD 工具/模板与加载项中加载此模板。

成功加载后，在表格工具栏的选择/全选所有表格命令。

效果很不错,就是有点慢