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

Question

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

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

关于 .Text

的结果是 'invalid qualifier'

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

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

Answer 1

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

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

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

How to convert a multi line string input from an textbox (in a userform) to a single line input string (vba word)

vba

textbox

ms-word

userform

multilinestring