摘要：怎么样批量更改WORD表格的格式？面对很多的WORD的表格报表, 这应该属于长文档编辑的问题，我不清楚你在排版长文档时严格按照一级标题、二级标题、正文等比较规范的格式，就你提出的问题可以选中你要改变的...

怎么样批量更改WORD表格的格式？面对很多的WORD的表格报表,

这应该属于长文档编辑的问题，我不清楚你在排版长文档时严格按照一级标题、二级标题、正文等比较规范的格式，就你提出的问题可以选中你要改变的格式的正文的其中一段（只选一段即可），然后点右键在快捷菜单的最下面有一行“选择格式相似的文本”，这样凡是应用了同类正文样式的正文就会被选中，而其它的几级标题和表格图片不同级别文本和格式不相同不相似的正文都不会被选中，这样就可以对你要修改的正文部分单独进行格式修改了。

如果不行，可说清楚些，或者发个图过来看看，再说怎么解决！

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 = TrueEnd Sub第二步，设置格式。

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

...

word里批量调整表格

这个问题只有用宏来解决了。

1、打开这个文档，点击窗口上面的菜单“工具”-》“宏”-》“Visoual Basic编辑器”； 2、在弹出的VBE窗口中点窗口上面的菜单“插入”-》“模块”； 3、在VBE窗口的右下侧窗口内粘贴上如下代码： Option Explicit Su 删除所有表格第8列（） Dim tl As Tale Application.SceenUpdating = False Fo Each tl In ActiveDocument.Tales tl.Columns(8).Delete Next Application.SceenUpdating = Tue End Su4、关闭VBE，返回文档窗口，点击窗口上面的菜单“工具”-》“宏”-》“宏”； 5、在弹出窗口中选择“删除所有表格第8列”，运行一下就好了。

友情提醒，代码执行后是不能通过“撤消”来返回操作前的内容的，所以你可以先复制一个副本文件用这段代码做测试，确定好用后再到需要的地方使用。

word中调整表格在画表格时,有的表格内容很多有些行会自动放置到

有几种方法： 第一，如果分到了下一页的内容不多，可以设置页面的页边距，把页边距的空留下小一些，内容自然就上去了。

第二，如果分到了第下页的内容较多，就先设置页面距，把页边的空留小，然后把表格中其它行拉窄，让内容多的行尽量宽，如仍不够，就把这行的内容的段行间设小，这样差不多就行了 如果内容实在太多就没有办法了，除非用大张或者把字改小。

那位高手会在word中录制宏,批量更改表格格式用的...

楼主可以直接写VBA，因为录制的宏其实也是VBA代码。

比如，下面这几个步骤可以批量修改文档中所有表格的字体/字号为12磅黑体。

1、键入Alt+F11打开VBA编辑器，选择菜单“插入-模块”；2、将下面代码粘贴进去：Sub BatchChangeTableStyle()Dim oTable As TableFor Each oTable In ActiveDocument.TablesoTable.Range.Font.Name = ＂黑体＂ " 改变表格字体为“黑体”oTable.Range.Font.Size = 12 " 改变表格字号为12磅NextSet oTable = NothingMsgBox ＂完成！＂End Sub可以根据需要修改上面代码中的字体和字号。

3、键入F5运行看到“完成！”结束；4、切换回Word窗口检查效果。

此外，我不太明白楼主说的“表格页边距”具体是什么意思？是说表格属性窗口里面那个“左缩进”还是其它什么属性？能补充说明一下吗？ ______补充：哦，抱歉原来我可能没有看仔细题目，楼主还有一个重要的要求是需要对“很多文档”批量处理。

下面的代码可以完成完整的需求。

注意需要把代码里面设置文件夹以及设置表格字体/字号和页面边距的那些地方根据你的实际情况修改一下。

Sub BatchChangeTableAndPageMargins()On Error Resume NextConst strRootPath = ＂D:\Temp\Docs\Tables＂ " 存放所有需要调整的文件的目录Dim arrDocFiles As New CollectionDim fso, oFolder, oFileDim oDoc As DocumentDim oTable As TableSet fso = CreateObject(＂Scripting.FileSystemObject＂)Set oFolder = fso.GetFolder(strRootPath)For Each oFile In oFolder.FilesSet oDoc = Documents.Open(oFile.Path)oDoc.PageSetup.TopMargin = CentimetersToPoints(3) " 天头oDoc.PageSetup.BottomMargin = CentimetersToPoints(2.8) " 地脚oDoc.PageSetup.LeftMargin = CentimetersToPoints(2.5) " 切口oDoc.PageSetup.RightMargin = CentimetersToPoints(2) " 订口For Each oTable In oDoc.TablesoTable.Range.Font.Name = ＂黑体＂ " 改变表格字体为“黑体”oTable.Range.Font.Size = 12 " 改变表格字号为12磅NextoDoc.Close TrueNextSet oTable = NothingSet oDoc = NothingMsgBox ＂完成！＂End Sub

如何一次性修改word中的表格格式

WORD中批量修改表格的格式：第一步，先用宏将所有表格选中：Sub 宏1()Dim mytable As TableApplication.ScreenUpdating = FalseFor Each mytable In ActiveDocument.Tablesmytable.Range.Editors.Add wdEditorEveryoneNextActiveDocument.SelectAllEditableRanges (wdEditorEveryone)ActiveDocument.DeleteAllEditableRanges (wdEditorEveryone)Application.ScreenUpdating = TrueEnd Sub第二步，设置格式。

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

...

word表格线上下不齐如何快速调整

① 首先，将光标定位到表格中，单击菜单栏上的 “表格”中“表格属性”，在表格选项卡中选择“文字环绕”的“环绕”，右侧原来被禁止的“定位...”按钮被激活。

②单击“定位...”按钮，打开“表格定位”对话框。

③调整表格的水平位置：在“相对于”组合框中选择一种参照项；在“位置”组合框中选择表格要定位的水平位置，或直接在组合框中输入带单位的具体数值（长度单位是英寸、厘米、毫米、磅或十二点活字）。

④调整表格的垂直位置：在“相对于”组合框中选择一种参照项；在“位置”组合框中选择表格要定位的垂直位置，或直接在组合框中输入带单位的具体数值。

⑤在需要文字环绕表格时可以在“距正文”处设置表格和正文的上下左右距离。

...