在本文中，我们想分享 2 种简单的方法来调整内容以适应 Word 表格中的单元格。
在处理 Word 文档中的表格时，很难确保所有表格单元格都保持固定大小。 通常，在一个单元格中输入的单词越多，它就会自动换行。 下面是一个例子：
这肯定不引人注目。 如何找到固定表格大小但使其内容适合的方法？
以下是 2 种可用方式：
方法一：一次性摆一张桌子
- 首先，单击表格左上角的加号将其选中。
- 然后，右键单击所选表。
- 接下来选择“表格属性”。
- 现在在“表格属性”对话框中，首先单击“单元格”选项卡。
- 然后单击框右下角的“选项”。
- 现在您将打开“单元格选项”对话框。 转到“选项”部分，然后清除“换行”框。
- 并改为选中“适合文本”框。
- 然后单击“确定”。
- 并记得在“表格属性”对话框中也单击“确定”。
现在内容布局将相应改变。 这是您将得到的：
方法 2：使用 VBA 代码
Word 中的 VBA 编辑器允许您键入代码来自定义您自己的 Word 功能，从而以快速、整洁的方式完成工作。 因此，您可以轻松地使用代码来创造奇迹。
- 首先，点击“开发者”选项卡。如果您还没有看到该选项卡，可以参考这篇文章： 如何将背景音乐插入 Word 文档
- 然后，点击“Visual Basic”打开VBA编辑器。
- 在VBA编辑器中，找到文件名后跟的项目，点击“ThisDocument”。
- 接下来，单击工具栏上的“插入”。
- 然后在菜单上选择“模块”。
- 现在您将打开编辑区域，只需将代码粘贴到那里：
Sub AutoFitTextForAllTableCells()
' Check if there are any tables in the document
If ActiveDocument.Tables.Count > 0 Then
Dim objTable As Table
Dim objCell As Cell
' Process each cell in each table and set the options accordingly
For Each objTable In ActiveDocument.Tables
For Each objCell In objTable.Range.Cells
objCell.WordWrap = False
objCell.FitText = True
Next
Next
Else
MsgBox("There is no table in this document!")
End If
End Sub
为即将发生的失败做准备
意外总会让你措手不及。 所以最好的办法就是花时间做好准备。 预防措施可以包括备份文件和花一些钱来获得 损坏的 Word 文档恢复工具. 由于数据丢失可能发生在任何地方的任何人身上，因此是时候做点什么了。
作者简介：
Vera Chen 是一位数据恢复专家 DataNumen, Inc.，它是数据恢复技术领域的世界领先者，包括 Excel数据错误修复工具 和 pdf 修复软件产品。 欲了解更多信息，请访问 datanumen.com