如何修改一下word导出的代码

 '向Word中对应表格单元格写入数据
    With objTable
        .Cell(1, 2).Range = Nz(Me.案由)
        .Cell(2, 2).Range = Nz(Me.当事人违法事实)
        .Cell(3, 2).Range = Nz(Me.立案依据)
        .Cell(4, 2).Tables(1).Cell(1, 1).Range = Nz(Me.承办人意见)
        .Cell(4, 2).Tables(1).Cell(2, 2).Range = Nz(Me.承办人签名)
        .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

借用红尘如烟老师word导出中的代码，想问一下，我想换成自己建立的查询中的字段内容，应该怎么修改啊？