|
スーザン さん、おはようございます。
>と言うのも、今住所宛名フォームを作成いており、4つの項目というのが、郵便番号、住所、方書、名前なのです。
4つのフォームじゃなくて、ひとつのフォームにテキストボックスを4つ置いたほうが管理しやすそうですね。
Exitのタイミングで順番に表示していくのかな?
>そのフォームに、必要項目を入力後に、コマンドボタンをクリックすることにより、ワード上に転写される方法を考えています。
ということなので、
○ボタンのあるフォームに
Private Sub CommandButton1_Click()
Test UserFormA.TextBox1.Text, 7 'UserForm名とTextBox名を合わせてください
Test UserFormB.TextBox1.Text, 8 ’上に同じ
Test UserFormC.TextBox1.Text, 9 ’上に同じ
Test Me.TextBox1.Text, 10, Me ’上に同じ
End Sub
○標準モジュールを挿入して以下を記述。
Sub Test(arg1 As String, arg2 As Long, Optional arg3 As Object)
'ドキュメントの先頭
ActiveDocument.Range(Start:=0, End:=0).Select
'3行目に移動(下に2つ移動)
Selection.MoveDown wdLine, arg2 - 1, wdMove
'そこに文字を挿入(選択範囲の拡張なし)
With Selection
.InsertBefore arg1
.Collapse Direction:=wdCollapseEnd
End With
'フォームを閉じる
If Not arg3 Is Nothing Then arg3.Hide
End Sub
|
|