如何阻止Word表格单元格内文本自动换行并适配列宽

要让含空格的文本保持单行显示，同时让表格自动适配列宽，你需要先禁用单元格的自动换行功能，再执行AutoFit操作。修改后的VBA代码如下：

Dim t As Word.Table
Dim cell As Word.Cell

Set t = doc.Tables.Add(doc.Paragraphs(1).Range, 3, 5, AutoFitBehavior:=wdAutoFitContent)

' ... 这里添加向单元格写入文本的代码 ...

' 遍历表格所有单元格，禁用自动换行
For Each cell In t.Range.Cells
    cell.Range.ParagraphFormat.WrapText = False
Next cell

' 执行列宽自动适配
t.Columns.AutoFit

关键说明： #

• WrapText = False会强制单元格内的文本保持单行，即使内容包含空格，也不会自动换行拆分
• 先禁用换行再执行AutoFit，Word会基于单行文本的完整宽度来计算并调整列宽，避免排版错乱

如果只需要针对特定列或单元格设置，不用遍历所有单元格，可以直接指定范围：

' 比如禁用第1列所有单元格的自动换行
t.Columns(1).Cells.Range.ParagraphFormat.WrapText = False

注意：如果文本长度超过页面可容纳的最大宽度，Word仍会强制换行，这属于页面布局限制，无法通过代码完全规避，但只要内容长度在页面范围内，上述方法就能实现预期效果。

内容的提问来源于stack exchange，提问作者DS_London