Cambiar el título de un documento de Word con valores de cuadro de texto: vba, ms-word, word-vba

Actualmente estoy haciendo un formulario de usuario VBA con múltiplescajas de texto. Mi objetivo es crear una plantilla de palabras habilitada para macros que muestre un formulario de usuario en el inicio, que contenga varios cuadros de texto donde el usuario pueda ingresar valores.

Estaba buscando una manera de cambiar el título de guardado predeterminado de mi documento de Word. Quería pasar los valores de entrada de los cuadros de texto al título para que se vea así:

"Textbox1.Value_Textbox2.Value_Combobox1.Value_Textbox3.Value _....." (Espacio para que el usuario personalice el nombre del documento)

La separación de subrayado es muy importante.

Traté de configurarlo con

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

Con el objetivo de combinar todos esos valores de cuadro de texto en el cuadro de texto 7, pero no puedo hacer que funcione. ¿Hay alguna otra forma de solucionar este problema?

Respuestas

puedes probar esto

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