Question

vb 获取word光标位置并插入文字

百度知道和搜搜问问的一些相关答案都看过了，不满足要求，不要复制过来。
我想实现的功能是点击Word文档中的某一处，vb自动获取光标位置；点击command按钮，自动切换到Word界面，自动插入“aaa”，form自动结束。

还有是直接插入进去，不是把真个文档的文字都替换，这样效率太低。

十分感谢！

Answer 1

代码如下：

Dim wdapp As Object
Dim wd As Object
Private Sub Command1_Click()
   Set wdapp = CreateObject("Word.Application")    '创建Word运用环境
   Set wd = wdapp.Documents.open(App.Path & "\mi.docx")   '打开Word
   wdapp.Visible = True
End Sub

Private Sub Command2_Click()
   wdapp.selection.insertafter "Hello World!"    '插入相关字符！
   MsgBox wdapp.selection.range.start
End Sub

Private Sub Form_Unload(Cancel As Integer)
   wd.Close True   '关闭Word文件
   wdapp.Quit      '退出word运用环境
End Sub

附件如下：

话说大哥，一分悬赏分都不给吗？专门给你写的代码和测试文件啊，你这个题怎么滴也得50分吧，我觉得！

追问

不好意思，我所有的拿出来只有10分，已经放上来了。

还有请问一下，如果是对于任意Word文档呢？比如我打开了3个Word文档，我已经获取了三个文档的句柄，要怎么将文字插入到窗口在最前面的那个文档中？

追答

试试把wdApp改成ActiveDocument.
ActiveDocument.selection.insertafter "Hello World!"

后面的Msgbox 是弹出现在字符所在的位置，可以删除。
呵呵，关于悬赏，我也就这么一说！！别太介意！！

Answer 2

试一下 SelStar SelLength SelText 属性

追问

这个只能用在form内部啊， richtextbox和textbox用的，
我想的是获取Word中的光标位置和插入文字
而且 SelStar SelLength SelText三个属性和获取光标位置没多大关系

追答

几个用于文件操作的函数呢？