文本框中的VBA空白行導致錯誤

如果某人在Word 2016 64位中的VBA中的文本框中輸入了輸入，如果它們在文本框的末尾輸入空行，則該程序崩潰並拋出此錯誤。我無法弄清楚如何解決這個問題，不知道該怎麼嘗試。文本框中的VBA空白行導致錯誤

文本框：

代碼：

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

我再拿到5844錯誤，但只要有一個空行末的文本框。否則，它的作品。

我應該使用什麼代碼來自動取出空白行，這樣不會丟出錯誤？

2017-08-10 James

是否有與生成文本關聯的任何代碼？ – Cyril

不是。它不是。 – James

https://stackoverflow.com/questions/10024402/how-to-remove-line-break-in-string應該可以幫助你正確的方向。 – Sorceri

您可以試試：

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

2017-08-10 16:50:11

回答