Question

我想改变焦点TextBox＆lt; - ＆gt; PDF-web浏览器。这两个元素都是用户形式，基本上我想从TextBox复制文本并在PDF上搜索它，但为此我需要更改元素之间的焦点。

我使用接下来的两个函数，1st用于显示PDF，第二个用于将文本搜索到文本中：

    Private Sub UserForm_Activate()
        Me.WebBrowser1.Navigate "about:blank"
        Me.WebBrowser1.Document.write "<HTML><Body><embed src=""E:\Test.pdf"" width=""100%"" height=""100%"" /></Body></HTML>"
    End Sub

    Private Sub find_pdf()
        Me![WebBrowser1].SetFocus   'Set Focus to the Web Browser Control (WebBrowser1)
        SendKeys "^f", True         'CTRL+F will place Cursor in Find Box
        SendKeys text_to_find       'txtFind: String with the text to find
        SendKeys "{ENTER}"          'Simulate pressing the ENTER Key
    End Sub

在简历中，我想将焦点从TextBox跳转到PDF，从PDF跳到文本框。

提前致谢！

WebBrowser PDF设置焦点

0 个答案: