問題タブ [word-2016]

Microsoft Word (2016、64 ビット、Windows 10) で Visual Basic for Applications プログラムを作成しました。

これは、約 30 の TextBoxes と送信ボタンを持つユーザー フォームで構成されます。各 TextBox には、一意の名前とタグがあります。

また、Word 文書には同じ数の ContentControl テキスト ボックスがあり、それぞれに対応する UserForm TextBox と同じタイトルとタグがあります。

私が求めているのは、ユーザーが [送信] をクリックしたときに、UserForm TextBoxes からドキュメント テキスト ボックスを作成するより良い方法です。

現在、TextBox ごとに 3 行のコードを入力してこれを行っていますが、これは面倒です。毎回 3 行のコードをコピーして貼り付けますが、毎回各行の小さな部分を編集する必要があります。

以下のコードに示すように、変数を使用して TextBox を名前でコピーするループを使用することを考えましたが、x続行する方法がわかりません。

前もって感謝します！

次のように、ドキュメントの最後までループする検索と置換のマクロを作成しました。

問題は、ドキュメントに脚注があり、検索が脚注に移動した場合、「コレクションの要求されたメンバーが存在しません」というエラーが発生することです。どうやら、選択/カーソルが脚注内にあり、ドキュメントに脚注のページに続くページがある場合、マクロはドキュメントの最後を見つけることができません。

とにかくそれを修正することはありますか？脚注を検索から除外する方法はクールですが、私は他の代替ソリューションを受け入れます。