查看完整版本: 如何通过word进行打印修改?

如何通过word进行打印修改?

我要做一个试卷生成系统,目前试卷已经能够在TEXT文本框里生成了,那我怎么样才能将TEXT中的内容转到WORD中,然后对其进行修改和打印呢?

调用WORD就可以了

可以在窗体上直接放入WORD

VB窗体上能直接放入WORD吗?
能不能帮我讲的详细些
最好能有个例子
源代码什么的

在工程->引用中选中 Microsoft Word XX.XX Object Library
即可引用Word

Dim AppWord As New Word.Application
即可使用WORD
例如
   Dim xDoc As Document
    Dim xRange As Range
    AppWord.ShowMe
    AppWord.Visible = True
    Set xDoc = AppWord.Documents.Open(App.Path + "doc1.doc")

比方说:我想再按下command按钮后,text1文本中的内容都粘贴到WORD中，那我怎么写程序阿？
用不用在窗体上添加WORD?

我是新手
不好意思!

已经举了例子了，你自己要多想想，多试试

xDoc.Words.Last.Text = "asdfsdf"

Private Sub cmddy_Click()
Dim mWord As Word.Application   
Dim mDoc As Word.Document   
Set mWord = New Word.Application        
mWord.Visible = True   
Set mDoc = mWord.Documents.Open("D:试卷.doc")    mDoc.ActiveWindow.Selection.InsertAfter txtFile.Text
End Sub
我的程序是这样就的能出来
但是本次生成的试卷还累加有上次生成的试卷
InsertAfter txtFile.Text是插入的吧
我想在插入本次试卷之前把Word文档中上次的试卷清空
怎么操作啊

自己多想想吧，多试试吧，你离成功就差一点点了。
你的方法已经对了，就是多试两次就可以了。