1.求教word中100多张表格怎么批量修改格式

第一步，先用宏将所有表格选中：Sub 宏1() Dim mytable As Table Application.ScreenUpdating = False For Each mytable In ActiveDocument.Tables mytable.Range.Editors.Add wdEditorEveryone Next ActiveDocument.SelectAllEditableRanges (wdEditorEveryone) ActiveDocument.DeleteAllEditableRanges (wdEditorEveryone) Application.ScreenUpdating = TrueEnd Sub第二步，设置格式。

先设置好字体字号，再设置表格属性：右键——表格属性（或者点菜单栏的表格——表格属性）——行，选中“指定高度”，在“行高值是”中选择“固定值”，设定一个适当值。

2.word表格怎么自动调整

步骤如下：

1.打开word文档后，选中图表，鼠标右键，在自动调整中有三个选项；

2.“根据内容调整表格”命令，Word将根据表格中的内容来调整表格的大小；

3.“根据窗口调整表格”命令，Word将根据当前文档页面的大小调整表格的大小，使表格与页面等宽；

4.如果不需要列宽自动调整，选择表格并右击，选择快捷菜单中的“自 动调整”一“固定列宽”命令即可。

3.WORD中如何批量修改表格的格式：

WORD中批量修改表格的格式：

第一步，先用宏将所有表格选中：

Sub 宏1()

Dim mytable As Table

Application.ScreenUpdating = False

For Each mytable In ActiveDocument.Tables

mytable.Range.Editors.Add wdEditorEveryone

Next

ActiveDocument.SelectAllEditableRanges (wdEditorEveryone)

ActiveDocument.DeleteAllEditableRanges (wdEditorEveryone)

Application.ScreenUpdating = True

End Sub

第二步，设置格式。先设置好字体字号，再设置表格属性：右键——表格属性（或者点菜单栏的表格——表格属性）——行，选中“指定高度”，在“行高值是”中选择“固定值”，设定一个适当值。

4.如何批量修改EXCEL文档里面的格

做一个排版格式处理的宏记录，用这个宏处理其他的表格数据。

设A列是姓名，从A2:A1000是三个一组的姓名，则在F2输入 =INDEX($A$2:$A$1000,ROW()*3-4,1） 设B列是班级，从B2:B1000是三个一组的班级名，则在G2输入 =INDEX($B$2:$B$1000,ROW()*3-4,1） 设D列是姓名，从D2:D1000是三个科目的成绩，则 在H2输入 =INDEX($D$2:$D$1000,ROW()*3-4,1） 为语文成绩 在I2输入 =INDEX($D$2:$D$1000,ROW()*3-4,1） 为数学成绩 在J2输入 =INDEX($D$2:$D$1000,ROW()*3-4,1） 为英语成绩 下拉B334，生成后再插入表头即可。

转载请注明出处51数据库 » word表格批量自动调整