Access VBA質問箱 IV

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

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


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

1373 / 9994

←次へ　｜　前へ→


	【11919】エディットコントロールを使った検索方法

さつき - 11/1/18(火) 0:18 -


	引用なし

	パスワード

再びこんにちは、さつきと申します。
下記ページに「テキスト　又は　リッチテキストでの複数選択方法」という投稿がありましたので、VBではありますが、コードを貼り付けて、DHTMLエディットコントロールを追加し、動かしてみたら、上手くいきました。
h tp://www.gizcollabo.jp/vbtomo/log/archive/vbqanda_33322_0.html#Num33333-0
でも、検索用のフォームですので、
kensaku = "プログラム"　を kensaku = テキスト5.Text
などというふうに変えたところ、
コントロールがフォーカスを取得していないときに、コントロールのプロパティまたはメソッドを参照することはできません。
というエラーが　kensaku = テキスト5.Text　のところで出ます。
どのように直したらよいでしょうか？
どなたかご教示お願いいたします。

Private Sub コマンド7_Click()
　　Dim Doc As Object　　　 'MSHTML.HTMLDocument
　　Dim Body As Object　　　'MSHTML.HTMLBody
　　Dim objRange As Object　'MSHTML.IHTMLTxtRange
　　Dim BMK As String
　　Dim kensaku As String
　　
　　kensaku = "プログラム"
　　If LenB(kensaku) = 0 Then Exit Sub
　　Set Doc = DHTMLEdit8.DOM
　　Set Body = Doc.Body
　　Set objRange = Body.createTextRange
　　
　　Do While objRange.findText(kensaku)
　　　　If Len(BMK) = 0 Then BMK = objRange.getBookmark
　　　　objRange.ExecCommand "BackColor", False, "YELLOW"
　　　　objRange.collapse False
　　Loop

　　If Len(BMK) Then
　　　　objRange.moveToBookmark BMK
　　　　objRange.scrollIntoView
　　End If

　　Set objRange = Nothing
　　Set Body = Nothing
　　Set Doc = Nothing
　
End Sub

617 hits

▼

【11919】エディットコントロールを使った検索方法 さつき 11/1/18(火) 0:18