| |
再びこんにちは、さつきと申します。
下記ページに「テキスト 又は リッチテキストでの複数選択方法」という投稿がありましたので、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
|
|
![[未読]](./data/access/image/read_icon.gif){kind=icon}
