标题: 如何通过word进行打印修改? [打印本页]

---

作者: 飞翔的叶子    时间: 2005-5-18 19:47     标题: 如何通过word进行打印修改?

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

---

作者: Nothing    时间: 2005-5-18 23:21

调用WORD就可以了

---

作者: Nothing    时间: 2005-5-19 00:22

可以在窗体上直接放入WORD

---

作者: 飞翔的叶子    时间: 2005-5-19 11:54

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

---

作者: Nothing    时间: 2005-5-19 12:29

在工程->引用中选中 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")

---

作者: 飞翔的叶子    时间: 2005-5-25 21:48

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

---

作者: 飞翔的叶子    时间: 2005-5-25 21:57

我是新手
不好意思!

---

作者: Nothing    时间: 2005-5-25 21:59

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

---

作者: Nothing    时间: 2005-5-25 22:08

xDoc.Words.Last.Text = "asdfsdf"

---

作者: 飞翔的叶子    时间: 2005-5-26 18:52

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文档中上次的试卷清空
怎么操作啊

---

作者: Nothing    时间: 2005-5-26 20:06

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

---

欢迎光临 编程开发论坛 (http://bbs.lihuasoft.net/)

Powered by Discuz! 6.0.0