텍스트 상자 값으로 단어 문서 제목을 변경하십시오.

Question

현재 여러 텍스트 상자가있는 VBA 사용자 양식을 작성 중입니다. 내 목표는 사용자가 값을 입력 할 수있는 여러 텍스트 상자를 포함하는 시작시 사용자 폼을 팝업하는 매크로 사용 가능 단어 템플릿을 만드는 것입니다.

내 워드 문서의 기본 저장 제목을 변경하는 방법을 찾고있었습니다.

사용자에 대한 "Textbox1.Value_Textbox2.Value_Combobox1.Value_Textbox3.Value _....." (공간 개인화 : 나는 다음과 같이 보일 것이다 그래야 제목에 텍스트 상자에서 입력 값을 전달하고 싶었다 문서 이름)

밑줄 구분은 매우 중요합니다.

나는 텍스트 상자 7로 모든 텍스트 상자에 값을 결합 할 목적으로

'WORKS' 
With Dialogs(wdDialogFileSummaryInfo) 
    .Title = TextBox7.Value 
    .Execute 
End With 

로 설정을 시도했지만 난 그냥 질수 일하러. 이 문제를 해결할 다른 방법이 있습니까?

Answer 1

이 시도 할 수 있습니다 :

With Me 
    .TextBox7 = Join(Array(.TextBox1.Text, .TextBox2.Text, .ComboBox1.Value, .TextBox3.Text), "_") '<--| list your controls 'name.property' in the desired order 
End With 

With Dialogs(wdDialogFileSummaryInfo) 
    .Title = Me.TextBox7.Text 
    .Execute 
End With