テキストボックスの値をテキストボックスのタイトルに変更する

Question

現在、複数のテキストボックスを持つVBAユーザーフォームを作成しています。私の目標は、ユーザーが値を入力できる複数のテキストボックスを含む、起動時にユーザーフォームをポップアップするマクロを有効にした単語テンプレートを作成することです。

私は自分のワード文書のデフォルトの保存タイトルを変更する方法を探していました。

ユーザーのための「Textbox1.Value_Textbox2.Value_Combobox1.Value_Textbox3.Value _.....」 （スペースをパーソナライズするために：私は、それは次のようになりますようにタイトルにテキストボックスからの入力値を渡したいですドキュメント名）

アンダースコアの分離は非常に重要です。

私は、テキストボックス7にこれらすべてのテキストボックスの値を組み合わせることが目的で

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

でそれを設定してみましたが、私はちょうどそれが仕事を得る傾けます。この問題を解決する他の方法はありますか？

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