文本框中的 VBA 空白行导致错误答案

【问题标题】：VBA Blank Line In TextBox Causes Error文本框中的 VBA 空白行导致错误
【发布时间】：2017-08-17 02:15:49
【问题描述】：

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

文本框：

代码：

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

然后我得到 5844 错误，但前提是文本框末尾有一个空行。否则它会起作用。

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

【问题讨论】：

标签： vba excel

【解决方案1】：

你可以试试：

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

【讨论】：