根据EXCEL数据自动生成WORD文档

鸭梨山大滴

对的  只要你Excel里面有数据，那么可以全部可以输出到Word里面。同时你word模板也需要增加这部分字段。

曾新根

大佬，请问一下控制生成的word文件命名是哪一行代码啊？

梦过岚裳

'通过文件对话框生成另存为文件名
    With Application.FileDialog(msoFileDialogSaveAs)
        .InitialFileName = contact_NO & ".doc"
        If .Show Then strFileName = .SelectedItems(1) Else Exit Sub
    End With

横横小螃蟹

好像懂了，我回去试试

邵蕊蕊

请问那个开发工具里没有插入那个选项怎么办？

吴奉璞

哥，你弄好了吗？可不可以给我发一个模板呀[害羞]

风木木

不可能啊！你是不是安装不完全或者启用功能有问题呢还是哪里有问题呢？按理来说不会的！

夜之哀伤

重装了一下有了，我要是想将excel2007转到word2007里面，需要插入什么控件？还是直接在命令按钮里输大佬你的代码就行了？

不平明

控件的问题解决啦，又出现新的问题了，保存文档的时候提示 对象变量或with块变量未设置  ，这个是哪个地方出现问题了啦？

好的世界

大佬！ 大佬大佬！ 请问在你的代码基础上，想增加用excel内容替换页眉页脚的功能，要怎么写啊。。 我试了好多方法都不行，求指点一下迷津 谢谢！！
我编了如下的代码，但是提示对象不支持该属性或方法   

With objApp
   
    objApp.ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader '设置位置在页脚
      Selection.HomeKey Unit:=wdStory '光标置于文件首
      JN = "数据"
    If Selection.Find.Execute(JN) Then  '查找到指定字符串
    Selection.Text = Cells(i, 6) '替换字符串
    End If