excel - 在 Word 文档中从 Excel VBA 插入换行符

Question

从我的 Excel 表中，我打开了一个 Word 文档。 Excel 在文档中生成一些文本。在文本之间我想要一个 LineBreak。
代码导致错误消息指出:参数值超出可接受范围

使用以下 documentation这应该可以使用 InsertBreak 来实现。

Sub InsertLineBreak()
    Set wrd = CreateObject("Word.Application") 'Open Word
    Set objDoc = wrd.Documents.Add 'Add new document
    Set objSelection = wrd.Selection 'Select this document

    objSelection.InsertBreak Type:=wdLineBreak 'Insert Break
End Sub

Answer 1

它对我来说非常好，你确定你添加了正确的引用吗？

试试 objSelection.InsertBreak Type:=6或添加 Microsoft Word 16.0 Object Library引用，或声明一个全局变量 wdLineBreak