'向Word中对应表格单元格写入数据
With objTable
.Cell(1, 2).Range = Nz(Me.职工编号) '表格中第一行第二列位置
.Cell(2, 2).Range = Nz(Me.所在单位)
.Cell(3, 2).Range = Nz(Me.入职日期)
.Cell(1, 4).Range = Nz(Me.职工姓名) '表格中第一行第二列位置
.Cell(2, 4).Range = Nz(Me.所在岗位)
.Cell(3, 4).Range = Nz(Me.学历)
'.Cell(4, 2).Tables(1).Cell(1, 1).Range = Nz(Me.承办人意见) '表格中第4行第2列中的表格的第1行第1列位置
'.Cell(4, 2).Tables(1).Cell(2, 2).Range = Nz(Me.承办人签名) '表格中第4行第2列中的表格的第2行第2列位置
'.Cell(4, 2).Tables(1).Cell(2, 3).Range = Format(Nz(Me.承办人签名日期), "yyyy年mm月dd日")
'.Cell(5, 2).Tables(1).Cell(1, 1).Range = Nz(Me.负责人意见)
'.Cell(5, 2).Tables(1).Cell(2, 2).Range = Nz(Me.负责人签名)
'.Cell(5, 2).Tables(1).Cell(2, 3).Range = Format(Nz(Me.负责人签名日期), "yyyy年mm月dd日")
' .Cell(6, 2).Range = Nz(Me.备注)
End With