| |
テキストボックスと入力終了ボタンを作ったということですので、
入力終了ボタンに下のマクロを書き込めばでき上がりです。
名前・住所…があるという想像で、下のマクロとなりました。
Private Sub CommandButton1_Click()
Rem *----*----* *----*----* *----*----* *----*----*
Rem 入力終了ボタン クリック時
Rem *----*----* *----*----* *----*----* *----*----*
'
Rem テキストボックスの入力チェック
Select Case True
Case TextBox1.Text = ""
MsgBox "名前が未入力です。"
Exit Sub
Case TextBox2.Text = ""
MsgBox "住所が未入力です。"
Exit Sub
End Select
Rem *----*----* *----*----* *----*----* *----*----*
'
Rem 文書の先頭にカーソルを置く。
Selection.HomeKey unit:=wdStory, Extend:=wdMove
'
Rem ワイルドカードによる文字列検索の設定
With Selection.Find
.ClearFormatting
.Replacement.ClearFormatting
.Text = "\{" & "*" & "\}" ' 「{*}」を指定
.Replacement.Text = ""
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchByte = False
.MatchAllWordForms = False
.MatchSoundsLike = False
.MatchFuzzy = False
.MatchWildcards = True
Rem 検索・置換の実行
Do While Selection.Find.Execute
With Selection.Range
Select Case .Text
Case "{名前}"
.Characters.Parent.Text = TextBox1.Text ' テキストボックス：名前
Selection.MoveRight unit:=wdCharacter, Count:=.Characters.Count, Extend:=wdMove
.SetRange Selection.End, Selection.End
Case "{住所}"
.Characters.Parent.Text = TextBox2.Text ' テキストボックス：住所
Selection.MoveRight unit:=wdCharacter, Count:=.Characters.Count, Extend:=wdMove
.SetRange Selection.End, Selection.End
End Select
End With
Loop
End With
End Sub ' CommandButton1_Click() *----*----* *----*----* *----*----* *----*----*
後は「閉じる」ボタンを作るだけです。
Private Sub CommandButton2_Click()
Unload UserForm1
End Sub ' CommandButton2_Click() *----*----* *----*----* *----*----* *----*----*
|
|
![[未読]](./data/word/image/read_icon.gif){kind=icon}
