石景山激光去痣的医院:那个哥哥给我解释一下转化成WORD各式的代码?谢谢!
来源:百度文库 编辑:中科新闻网 时间:2024/09/30 20:01:11
Private Sub Command1_Click()
Dim objwd As Word.Application
Dim objdoc As Word.Document
Dim re As Integer
If rs.State = 1 Then
rs.Close
End If
If cmbbh.Text <> "" Then
Set objwd = New Word.Application
objwd.Visible = True
Set objdoc = objwd.Documents.Add(App.Path & "\JJCX.dot")
rs.Open "select * from 接警 where 编号='" & cmbbh.Text & "'", db, adOpenKeyset, adLockOptimistic
objdoc.Bookmarks("bh").Range.Text = rs.Fields("编号")
objdoc.Bookmarks("jjr").Range.Text = rs.Fields("接警人")
objdoc.Bookmarks("bjrq").Range.Text = rs.Fields("报警日期")
objdoc.Bookmarks("bjsj").Range.Text = rs.Fields("报警时间")
objdoc.Bookmarks("bjrxm").Range.Text = rs.Fields("报警人姓名")
objdoc.Bookmarks("xb").Range.Text = rs.Fields("性别")
objdoc.Bookmarks("lxdh").Range.Text = rs.Fields("联系电话")
objdoc.Bookmarks("dw").Range.Text = rs.Fields("单位或住所")
objdoc.Bookmarks("afrq").Range.Text = rs.Fields("案发日期")
objdoc.Bookmarks("afsj").Range.Text = rs.Fields("案发时间")
objdoc.Bookmarks("afdd").Range.Text = rs.Fields("案发地点")
objdoc.Bookmarks("banr").Range.Text = rs.Fields("报警内容")
rs.Close
re = Dialogs(wdDialogFileSaveAs).Display
If re = 0 Then
objdoc.Activate
Else
objwd.Visible = False
objdoc.SaveAs
objdoc.Close False
End If
objwd.Quit False
Else
MsgBox "请选择编号", vbInformation, "提示"
End If
End Sub
Dim objwd As Word.Application
Dim objdoc As Word.Document
Dim re As Integer
If rs.State = 1 Then
rs.Close
End If
If cmbbh.Text <> "" Then
Set objwd = New Word.Application
objwd.Visible = True
Set objdoc = objwd.Documents.Add(App.Path & "\JJCX.dot")
rs.Open "select * from 接警 where 编号='" & cmbbh.Text & "'", db, adOpenKeyset, adLockOptimistic
objdoc.Bookmarks("bh").Range.Text = rs.Fields("编号")
objdoc.Bookmarks("jjr").Range.Text = rs.Fields("接警人")
objdoc.Bookmarks("bjrq").Range.Text = rs.Fields("报警日期")
objdoc.Bookmarks("bjsj").Range.Text = rs.Fields("报警时间")
objdoc.Bookmarks("bjrxm").Range.Text = rs.Fields("报警人姓名")
objdoc.Bookmarks("xb").Range.Text = rs.Fields("性别")
objdoc.Bookmarks("lxdh").Range.Text = rs.Fields("联系电话")
objdoc.Bookmarks("dw").Range.Text = rs.Fields("单位或住所")
objdoc.Bookmarks("afrq").Range.Text = rs.Fields("案发日期")
objdoc.Bookmarks("afsj").Range.Text = rs.Fields("案发时间")
objdoc.Bookmarks("afdd").Range.Text = rs.Fields("案发地点")
objdoc.Bookmarks("banr").Range.Text = rs.Fields("报警内容")
rs.Close
re = Dialogs(wdDialogFileSaveAs).Display
If re = 0 Then
objdoc.Activate
Else
objwd.Visible = False
objdoc.SaveAs
objdoc.Close False
End If
objwd.Quit False
Else
MsgBox "请选择编号", vbInformation, "提示"
End If
End Sub
这个不全,还需要Project里的其他都习(比如说Form之流)最好把整个文档放上要不然,不好办
这不是 VB 的编程代码吗?下载并安装 Visual Basic 6.0,再在代码输入窗口(Visual Basic 6.0 刚启动时会弹出一个“新建”对话框,直接点按“确定”按钮;然后单击“视图”菜单,在弹出的菜单中选择“代码窗口”命令即可弹出代码输入窗口)输入上面的代码就可以了。