在VB中有办法获取Word中选中的文字吗？

Question

在VB中有办法获取Word中选中的文字吗？谢谢

Answer 1

可以通过Application对象的Selection 属性莱获得

Answer 2

有个简单的方式,利用剪贴板
先切换当前程序,再用CTRL+C这个键
(如何按下,呵呵,看看网上,一堆堆的)
再到你的位置CTRL+C嘻嘻,按键就可以做到

Answer 3

關注--------
www.vicmiao.com
努力就有美好時光！

Answer 4

可以通过Application对象的Selection 属性莱获得

Answer 5

如果这个word是VB创建的一个word.application对象，那么当然可以用selection来获取选中的内容，但是如果这个word是通过运行winword.exe来打开的的话就不好办了，二楼的方法倒值得一试，就是向这个word模拟发送按键ctrl+C，将其选中的内容复制到clipboard，然后从clipboard中获取文字就行了。

Answer 6

關注--------
www.vicmiao.com
努力就有美好時光！

Answer 7

你可以先打开一个word文档，然后对你的操作录宏，然后编辑宏，就可获得你需要的代码！

Answer 8

首先应该在工程中引用microsoft word*.*

Answer 9

Dim myword as word.application
set myword = new word.application 
dim mydoc as word.document
set mydoc =mywdoc.documents.open("文件路径\文件名")
myword.visible=true
这样就打开了word文档！
再加上你录的宏就ok了

Answer 10

我知道你的意思～！！～  好像需要调用API

Answer 11

我的意思是获取的是外部WORD。EXE中选中的内容，不是调用WORD。APP在VB中打开的文件中选中的内容

Answer 12

和WORD进行交互吧，找找有没接口

Answer 13

我手里有个DELPHI程序，带了个DLL好象是鼠标钩子的，我估计他是通过钩子实现的

Answer 14

其实很简单，问题已解决，以下代码调试通过，请楼主给分！Dim objWD As ObjectPrivate Sub form_load()
    On Error Resume Next
    Set objWD = GetObject(, "Word.Application")
    If Err.Number = 0 Then
        MsgBox objWD.Selection
    End If
End Sub

Answer 15

Private Sub Command1_Click()
    MsgBox objWD.Selection
End Sub当word中选中的内容发生变化后以上代码运行结果也相应变化，所以完全可以用timer控件实现实时监控的功能。楼主说要再给500分的哦，激动ing.............