Word VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃ホーム

445 / 886

←次へ　｜　前へ→


	【453】Re:フォームで入力したものを文章中の単語...

H. C. Shinopy - 06/7/3(月) 8:24 -


	引用なし

	パスワード

テキストボックスと入力終了ボタンを作ったということですので、
入力終了ボタンに下のマクロを書き込めばでき上がりです。
名前・住所…があるという想像で、下のマクロとなりました。

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() *----*----*　　*----*----*　　*----*----*　　*----*----*

1,136 hits

▼

【452】フォームで入力したものを文章中の単語と置換え方 ケント 06/7/2(日) 5:52