word中的表格全部设置宽度100%

1、背景

我们用工具将数据库或其他的数据导出成word时,表格有的会大于100%,超过了边界。word没有提供全局修改的方法。如果我们想改成100%。

  • 一种方式是通过宏,全局改。
  • 一种是手动改。

2、宏修改

如果表格多,可以通过这种方式。

  • Word的界面本身没有提供直接选择所有表格的功能,但你可以使用VBA宏来实现。

  • 按下 Alt + F11 打开VBA编辑器。

  • 在"插入"菜单中选择"模块",在打开的代码窗口中输入以下代码:

    Sub SetAllTablesWidthTo100Percent()
    Dim myTable As Table
    Dim i As Long

    复制代码
      ' 确保文档中至少有一个表格
      If ActiveDocument.Tables.Count > 0 Then
          ' 遍历所有表格
          For i = 1 To ActiveDocument.Tables.Count
              Set myTable = ActiveDocument.Tables(i)
              ' 设置表格宽度为100%
              With myTable
                  ' 计算并设置表格的宽度为页面宽度的100%
                  .PreferredWidth = 100
                  ' 如果需要,可以设置表格的宽度类型为百分比
                  ' .WidthType = wdPreferredWidthPercent
              End With
          Next i
      Else
          MsgBox "没有找到表格。"
      End If

    End Sub

  • 关闭VBA编辑器,然后按下 Alt + F8,选择刚才创建的 SelectAllTables 宏,并运行它。

2、手动修改

如果表格少,可以通过这种方式。

  • 导航-结果-表格,会自动找到表格
  • 通过上下键可以向上、向下查找表格。
  • 表布局-自动调整-根据窗口自动调整表格
相关推荐
bing_15813 小时前
Word 中为什么我的图片一拖就乱跑,怎么精确定位?
word
有什么东东13 小时前
取消office word中的段落箭头标记
word
CodeCraft Studio4 天前
文档处理控件Aspose.Words教程:从 C# 中的 Word 文档中提取页面
c#·word·aspose·aspose.word·word页面提取
索西引擎4 天前
Word 文字编辑状态下按回车换行后是非正文格式
word·办公
bu_shuo4 天前
Word中的批注显示与修订显示
word·批注·修订
流形填表5 天前
AI 助力:如何批量提取 Word 表格字段并导出至 Excel
开发语言·人工智能·word·excel·办公自动化
R-sz6 天前
导出word并且插入图片
开发语言·c#·word
wáng bēn6 天前
【java17】使用 Word 模板导出带替换符、动态表格和二维码的文档
java·word·itextpdf
小杨爱学习zb6 天前
如何将公式图片转换为公式格式到wps/word里面
word
干净的坏蛋6 天前
Microsoft Word 中 .doc 和 .docx 的区别
microsoft·word