wow变大的玩具:那个哥哥给我解释一下转化成WORD各式的代码？谢谢！

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