使用文本框值更改Word文档标题

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