在MS Word表格中插入换行符

Question

我想在表格单元格中插入换行符。目前我一直在尝试操作单元格的范围，但要么出现错误，要么导致文本进入后续行或超出表格之外。

如何在表格单元格中插入换行符？

（使用宏，似乎可以通过选择来实现，但如果可能的话，我宁愿避免使用宏）

（不起作用的东西：range.InsertParagrah，range.InsertParagraphAfter，range.Text =“\r\n”，range.InsertBreak(wdLineBreak)）

- Jamie

---

你有什么东西是不工作的？ - Eddy

Answer 1

尝试使用 shift + enter - 我认为这会有所帮助。

- Ed Heal

Answer 2

这在Word 2010中有效，您需要选择正确的单元格等：

Selection.TypeText Text:=Chr(11)

/edit/

如何？请原谅我使用了Selection来获取范围，我知道你不喜欢它，但这是我测试的最快方法。您可以使用自己的方法来获取范围。

Sub Macro3()

Dim oRange As Range
    ' Add your own range selection code here!
    Set oRange = Selection.Range
    oRange.InsertAfter (Chr(11))


End Sub

- Phil

---

这是我计划采用的备选方案，如果没有更好的解决办法的话。但是如果有可能的话，我宁愿不去处理选择。尽管如此，这仍然是一个解决方案。 - Jamie

奇怪的是，它们都会导致剩余的输出在下一行或表格外部输出。 - Jamie

实际上，事实证明这个方法是有效的，还有很多其他方法也是有效的。我只是无意中看到了另一个字符（我认为是行结束字符或段落结束字符），导致出现错误。基本上，我以前使用的是“range = cell.Range”，但我必须添加一行“range.SetRange(range.Start, range.End - 1)”。自己注意：学会阅读文档... - Jamie

谢谢你的提示。我刚刚成功地在我的代码中应用了这个修复方法。但是我想指出，当单元格中已经有文本时，应该插入Chr(11)。如果文本包含Chr(11)并且被转换为表格（例如使用Range.ConvertToTable），那么它会被视为新的行分隔符。 - oleksa