使用文本框值更改 word 文档标题答案

【问题标题】：Changing a word document title with Textbox values使用文本框值更改 word 文档标题
【发布时间】：2016-09-15 14:11:53
【问题描述】：

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

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

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

下划线分隔非常重要。

我尝试用

设置它

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

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

【问题讨论】：

标签： vba ms-word

【解决方案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

【讨论】：

非常感谢！我正在寻找这样的数组。现在我只需要看看我如何修复遇到非字母数字字符时会切断标题其余部分的错误。
不客气。如果您遇到新问题，请发布新问题。