TextBox中的VBA空行导致错误

Question

当有人在Word 2016 64bit的VBA中的TextBox中输入输入时，如果他们在文本框的末尾输入一个空行，则程序崩溃并抛出此错误。我无法弄清楚如何解决这个问题，不知道该尝试什么。

TextBox：

代码：

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)