在TextBox中的VBA空行导致错误

如果有人在Word 2016 64位的VBA中的文本框中input一个input，如果他们在文本框的末尾input一个空行，程序崩溃并抛出此错误。 我不知道如何解决这个问题，不知道该怎么做。

文本框：

码：

Set ccs = ActiveDocument.SelectContentControlsByTag("CreditNotes") Set cc = ccs(1) cc.Range.Text = CreditNotes.Text' 

然后我得到5844错误，但只有在文本框的末尾有一个空行。 否则，它的作品。

我应该使用什么样的代码来自动取出空行，这样不会抛出错误？

Answer 1

你可以尝试：

 cc.Range.Text = Replace(CreditNotes.Text, vbCrLf, vbNullString)