当前位置:编程学习 > VB >>

高手请帮忙:我想使用VB6自动填写word中相应位置的内容,如何操作啊?

例如我要做一个大的客户发货单。同时包括很多信息,包括客户单位,地址,联系人,货品名称,价格。这些都是从数据库里面调取的,然后用word做一个模板,把相应的信息填写如word里面相应的位置。

考虑过使用excel,但是excel的文本排版能力太差,无法完成我的工作。求高手指点一下。在此先谢过 --------------------编程问答-------------------- 呵呵,我前兩天剛做過。。
在Word建書簽 aaa/ bbb 
然後即可寫入。


Private Sub Command1_Click()
'  Save Word BookMarks
On Error Resume Next
Dim app As Word.application
Dim doc As Word.Document
Set app = CreateObject("Word.application")
app.Visible = False
app.Documents.open "d:\doc\x.doc"
app.activedocument.bookmarks.Item("aaa").Select

app.selection = "測試系統"
app.activedocument.bookmarks.Item("bbb").Select
app.selection = "中華人民共和國"
app.Documents(1).saveas "d:\doc\temp.doc"
app.Documents.Close
End Sub

--------------------编程问答-------------------- 2楼的能说的详细点吗?
代码不太懂.
我也有同样的问题.
补充:VB ,  数据库(包含打印,安装,报表)
CopyRight © 2012 站长网 编程知识问答 www.zzzyk.com All Rights Reserved
部份技术文章来自网络,