使用文本框值更改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