[示例]往Word文件中写入指定位置的数据

时　间:2004-05-21 00:00:00
作　者:竹笛   ID：8  城市：上海  QQ：3059255
摘　要:[示例]往Word文件中写入指定位置的数据 
正　文:

Private Sub cmdWord_Click()
'创建Word对象
Set Doc = CreateObject("word.application")
Doc.Visible = True
'打开Word文件
Doc.Documents.Open FileName:=CurrentProject.Path & "\report.doc"
'在Word文件中写入记录
Doc.Documents("report.doc").FormFields(1).Result = Me.日期'1是指第1个窗体域
Doc.Documents("report.doc").FormFields(2).Result = Me.会员姓名'2是指第2个窗体域
Doc.Documents("report.doc").FormFields(3).Result = Me.会员地址
Doc.Documents("report.doc").FormFields(4).Result = Me.会员电话
'释放对象变量
Set Doc = Nothing
End Sub

示例:

点击这里下载