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

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

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

十分感谢!
展开
 我来答
unsamesky
2014-08-21 · TA获得超过2735个赞
知道小有建树答主
回答量:859
采纳率:100%
帮助的人:434万
展开全部

代码如下:

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 是弹出现在字符所在的位置,可以删除。
呵呵,关于悬赏,我也就这么一说!!别太介意!!
雨归___木兰殇
2014-08-20 · TA获得超过165个赞
知道答主
回答量:22
采纳率:0%
帮助的人:17.9万
展开全部
试一下 SelStar SelLength SelText 属性
追问
这个只能用在form内部啊,  richtextbox和textbox用的,
我想的是获取Word中的光标位置和插入文字
而且 SelStar SelLength SelText三个属性和获取光标位置没多大关系
追答
几个用于文件操作的函数呢?
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
推荐律师服务: 若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询

为你推荐:

下载百度知道APP,抢鲜体验
使用百度知道APP,立即抢鲜体验。你的手机镜头里或许有别人想知道的答案。
扫描二维码下载
×

类别

我们会通过消息、邮箱等方式尽快将举报结果通知您。

说明

0/200

提交
取消

辅 助

模 式