在Word文档中插入Excel VBA中的换行符

从我的Excel工作表中，我打开了一个Word文档。Excel在文档中生成一些文本。在文本之间我想要一个换行符。 该代码导致一条错误消息，说明：参数值超出可接受范围

使用以下命令可以使用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

---

它对我来说非常好，你确定你添加了正确的参考资料吗

请尝试

objSelection.InsertBreak Type:=6

或添加

Microsoft Word 16.0对象库

参考，或声明全局变量

wdLineBreak

，以供将来的读者阅读：

在这种情况下，Microsoft Word 16.0对象库丢失。 可以添加

工具

->

参考

并选择相应的库

---

您的Excel VBA是否知道

wdLineBreak

的值？是否已添加对Word对象库的引用？如果没有，您需要在代码中定义任何单词常量。@TimWilliams我怎么知道它丢失了？您建议如何设置引用或定义单词常量？如果您使用

选项Explicit

（您应该始终使用该选项），那么您将收到有关此类问题的警告确实缺少库。将

wdLineBreak

声明为全局的值是多少？很酷，

wdLineBreak

的值是6@JeroenDV将wdLineBreak声明为全局值没有任何价值。它只需要在使用它的例程中是一个常量，假设您使用的是后期绑定。