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

我正在制作具有多个文本框的VBA用户窗体。我的目标是创建一个启用宏的词模板，在启动时弹出一个用户窗体，其中包含多个用户可以输入值的文本框。使用文本框值更改Word文档标题

我正在寻找一种方法来更改我的Word文档的默认保存标题。我想从文本框传递值输入标题，这样它看起来是这样的：

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

下划线分离非常重要。

我试着用

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

设置它，目的是所有这些文本框值组合成文本框7，但我只是不能得到它的工作。有没有其他方法可以解决这个问题？

来源

2016-09-15 Tob

你可以试试这个：

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

来源

2016-09-15 14:37:29 user3598756

太谢谢你了！我正在寻找这样的数组。现在，我只需要看看我是如何修复错误的，在它遇到非字母数字字符时，它将标题的其余部分切掉。 – Tob

不客气。如果您遇到新问题，请发帖提问。 – user3598756

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

回答

相关问题