跪求~ 利用Access把 Exce转换成Word

tonycj

跪求~

我已经做了一个初步的转换，但是有两个栏无法转换进去，请大侠帮忙一下，
被诉方名称就是品牌名称、还有商铺电话 无法放入，请看附件。

感谢帮忙，万分感激！

tonycj

感谢 不用上传了 问题已经解决了 感谢！

tonycj

能否帮忙改一下 上传 谢谢！！

sgrshh29

这一段里添加二句就可以：
    With objApp.Selection.Find
        .Execute "[受理人员]", ReplaceWith:=Me.受理人员, Replace:=1, Wrap:=1 'wdFindContinue
        .Execute "[投诉方式]", ReplaceWith:=Me.投诉方式, Replace:=1, Wrap:=1 'wdFindContinue
        .Execute "[受理日期]", ReplaceWith:=Me.受理日期, Replace:=1, Wrap:=1 'wdFindContinue
        .Execute "[投诉方]", ReplaceWith:=Me.投诉方, Replace:=1, Wrap:=1 'wdFindContinue
        .Execute "[联系方式]", ReplaceWith:=Me.联系方式, Replace:=1, Wrap:=1 'wdFindContinue
        .Execute "[投诉人地址]", ReplaceWith:=Me.投诉人地址, Replace:=1, Wrap:=1 'wdFindContinue
        .Execute "[商铺号]", ReplaceWith:=Me.商铺号, Replace:=1, Wrap:=1 'wdFindContinue
        .Execute "[商品类别]", ReplaceWith:=Me.商品类别, Replace:=1, Wrap:=1 'wdFindContinue
        .Execute "[被诉方名称]", ReplaceWith:=Me.被诉方名称, Replace:=1, Wrap:=1 'wdFindContinue        
        .Execute "[商户负责人姓名]", ReplaceWith:=Me.商户负责人姓名, Replace:=1, Wrap:=1 'wdFindContinue
        .Execute "[商户负责人电话]", ReplaceWith:=Me.商户负责人电话, Replace:=1, Wrap:=1 'wdFindContinue
        .Execute "[商铺电话]", ReplaceWith:=Me.商铺电话, Replace:=1, Wrap:=1 'wdFindContinue        
        .Execute "[涉案金额]", ReplaceWith:=Me.涉案金额, Replace:=1, Wrap:=1 'wdFindContinue
        .Execute "[投诉内容]", ReplaceWith:=Me.投诉内容, Replace:=1, Wrap:=1 'wdFindContinue
        .Execute "[完成情况]", ReplaceWith:=Me.完成情况, Replace:=1, Wrap:=1 'wdFindContinue
        .Execute "[责任方]", ReplaceWith:=Me.责任方, Replace:=1, Wrap:=1 'wdFindContinue
'       objApp.Selection.HomeKey Unit:=6 'wdStory
    End With

[ 本帖最后由 sgrshh29 于 2011-2-22 16:31 编辑 ]

sgrshh29

同时再word模板里的那二栏里分别添上：
[被诉方名称]
[商铺电话]