如何将多行字符串输入从文本框（在userform中）转换为单行输入字符串（vba word）

Question

我在VBA（word）上创建了一个用户表单，用户将多行文本正文输入到TextBox1中。我希望将其转换为单行字符串。我尝试过以下方法：

'Replace method 
TextBox1.Text = TextBox1.Text.Replace what:=vbFl replacement:=""

这导致了无效的限定符＆＃39;关于.Text

'Replace function
TextBox1.Text = Replace(TextBox1.Text, vbLf, "")

这不会产生错误，但不会执行所需的转换。

Answer 1

在Word中，您还必须考虑回车。有三种方法可以按照自己的方式进行：

'Replace function
TextBox1.Text = Replace(TextBox1.Text, vbCr + vbLf, "")
TextBox1.Text = Replace(TextBox1.Text, Chr(10) + Chr(13), "")
TextBox1.Text = Replace(TextBox1.Text, vbCrLf, "")