各位好，请问如把我输入的值添加到word中？

[EL_Nino_dx]

大家好，我是新来的，本人是个菜的很的！
请问我想把lable.caption的值写入到word 或者是txt 中，要如何做啊？
还有就是写入后，怎么打开这个文件

[jam021]

set wordApp = CreateObject("Word.Application")
''打开这个文件
wordApp.Documents.Open "D:\aaa.doc"
''写值到word
wordApp.Selection.TypeText "as111"

其他的操作你可以在word中通过录制宏的方式来得到代码

[pyf1027]

可以采用定义标签的方式来写入，比较方便。book

[luxingyu329]

aa = "欢迎查看本地信息：" & vbCrLf & vbCrLf
aa = aa & Label1.Caption & Text1.Text & vbCrLf & vbCrLf
aa = aa & Label2.Caption & Text2.Text & vbCrLf & vbCrLf
aa = aa & Label6.Caption & Text6.Text & vbCrLf & vbCrLf
aa = aa & Label3.Caption & Text3.Text & vbCrLf & vbCrLf
aa = aa & Label4.Caption & Text4.Text & vbCrLf & vbCrLf
aa = aa & Label5.Caption & Text5.Text & vbCrLf & vbCrLf
aa = aa & Label7.Caption & Text7.Text & vbCrLf & vbCrLf
aa = aa & Label8.Caption & Text8.Text & vbCrLf & vbCrLf

Open "d:/zl.zl" For Append As #1
Write #1, aa
Close #1
End Sub

我是通过这样的方法实现的,请各位高手指点一下,如果我想用新写入zl.zl里面的内容把zl.zl里原有的内容覆盖掉怎么实现呀?谢谢,