1、背景
我们用工具将数据库或其他的数据导出成word时,表格有的会大于100%,超过了边界。word没有提供全局修改的方法。如果我们想改成100%。
- 一种方式是通过宏,全局改。
- 一种是手动改。
2、宏修改
如果表格多,可以通过这种方式。
- Word的界面本身没有提供直接选择所有表格的功能,但你可以使用VBA宏来实现。
- 按下
Alt + F11
打开VBA编辑器。 - 在“插入”菜单中选择“模块”,在打开的代码窗口中输入以下代码:
Sub SetAllTablesWidthTo100Percent()Dim myTable As TableDim i As Long' 确保文档中至少有一个表格If ActiveDocument.Tables.Count > 0 Then' 遍历所有表格For i = 1 To ActiveDocument.Tables.CountSet myTable = ActiveDocument.Tables(i)' 设置表格宽度为100%With myTable' 计算并设置表格的宽度为页面宽度的100%.PreferredWidth = 100' 如果需要,可以设置表格的宽度类型为百分比' .WidthType = wdPreferredWidthPercentEnd WithNext iElseMsgBox "没有找到表格。"End If
End Sub
- 关闭VBA编辑器,然后按下
Alt + F8
,选择刚才创建的SelectAllTables
宏,并运行它。
2、手动修改
如果表格少,可以通过这种方式。
- 导航-结果-表格,会自动找到表格
- 通过上下键可以向上、向下查找表格。
- 表布局-自动调整-根据窗口自动调整表格