vba - 如何将文本框（在用户表单中）的多行字符串输入转换为单行输入字符串（vba word）

Question

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

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

这会导致 .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, "")