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