使用文本框值

Question

我目前正在制作一个包含多个文本框的VBA用户表单。我的目标是创建一个启用宏的单词模板，在启动时弹出用户表单，包含多个文本框，用户可以在其中输入值。

我一直在寻找一种方法来更改word文档的默认保存标题。我想将文本框中的输入值传递给标题，以便它看起来像这样：

  

“Textbox1.Value_Textbox2.Value_Combobox1.Value_Textbox3.Value _.....”   （用户个性化文档名称的空间）

下划线分离非常重要。

我尝试用

设置它

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

旨在将所有这些文本框值组合到文本框7中，但我无法让它工作。有没有其他方法可以解决这个问题？

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