사용자 양식의 텍스트 상자에서 여러 줄 문자열 입력을 한 줄 입력 문자열 (VBA 단어)으로 변환하는 방법

Question

사용자가 여러 줄의 텍스트 본문을 입력하는 VBA (단어)에 사용자 양식을 만들었습니다 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, "")