你好,我想编一个VB程序,就是向已经存在的WORD2003文档的指定位置插入文字,这个应该如何做?QQ836838880
展开全部
'工程>引用>Microsoft Word 11.0 Object Library
Dim oWordApp As New Word.Application
Dim oWordDoc As Word.Document
Set oWordDoc = Documents.Open(FileName:="D:\ABC.DOC")
oWordDoc.Content.InsertAfter Text:="请输入你要输入的内容" '插入文字,请使用这种格式
'oWordDoc.Shapes.AddPicture FileName:="D:\a.jpg" '插入图片
oWordDoc.Save
oWordDoc.Close
oWordApp.Quit
Dim oWordApp As New Word.Application
Dim oWordDoc As Word.Document
Set oWordDoc = Documents.Open(FileName:="D:\ABC.DOC")
oWordDoc.Content.InsertAfter Text:="请输入你要输入的内容" '插入文字,请使用这种格式
'oWordDoc.Shapes.AddPicture FileName:="D:\a.jpg" '插入图片
oWordDoc.Save
oWordDoc.Close
oWordApp.Quit
追问
我的QQ是836838880,能加你好友吗,想和你在线交流一下,请教咯~
追答
放到程序里跑一下
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询