vb 把用户输入的数据以“计算过程及其计算结果”输出到word中。

Question

如：用户输入数据到控件text1和text2，结果显示在text3中。想一键出word文档。
word文档第一行标题为为“计算书”，第二行显示内容为
“结果=text1.text*text2.text=text3”。关键是第二行显示代码不知道怎么写。
word中显示格式如下
计算书
结果=3*6=18

Answer 1

要在DOC文档写入“结果=text1.text*text2.text=text3”，这样直接写入是不行的，首先在doc的第二行中添加标签，为标签命名，例如：结果，在程序中设置一个程序级变量，例如：JG，给JG赋值：JG = "结果=" & Text1.Text & "*" & Text2.Text & "=" & Text3.Text ，最后在doc中标签处将变量JG输入即可（注意必须在程序中打开doc，由程序写入）。

Answer 2

第二行显示代码可以这样写：
text3=“结果=“ & text1.text & ”*“ & text2.text & ”=“ & text1.text * text2.text
那么，你就能在 text3中看到结果的内容了

追问

关键是需要把 第二行显示 输出到word文档中，怎么实现？在word文档中显示的是：
*************************************************************
计算书
结果=3*6=18

*************************************************************
我直接写在窗体里面，成功了。我想以 模块 的方式调用。应该注意什么或该怎么写代码。

Answer 3

myfile="c:\xxx.doc"'是你的doc文件地址，呵呵自己改
dim temstr,str1 as string
open myfile for input as #1
for i=1 to 10
line input #1,temstr
if i=3 then temstr="5"
str1=str1 & temstr & vbcrlf
next i
close #1
open myfile for output as #2
print #2,str1
close #2