●★将Excel数据写入Word模板★●

雪豹 · 发表于 2012-10-26 14:17

小嘀咕发表于 2009-9-6 06:26
楼主做的有些太复杂了,实际上这是WORD本身就具有的一项功能,
word-工具-信函和邮件
不用编写代码.

功能相似，各有优势！

雪豹 · 发表于 2012-10-26 14:22

谢谢！这是情况之一。还有一种情况就是winword在运行时，会提示normal.dot保存的问题程序中如何解决，目前我能知道的解决的办法就是手动查看进程，如果有WINWORD进程我就把他结束掉，就没有问题了。

Betty201005 · 发表于 2012-10-26 14:27

{:soso_e179:}{:soso_e179:}{:soso_e179:}

ljw990485 · 发表于 2012-10-28 17:01

热浪2006 发表于 2009-9-1 14:48
你正在打开“授课通知(模板).doc”了吧？::L 关闭了就是。

[ 本帖最后由热浪2006 于 2009-9-27 13:04 编辑 ...

程序有问题，不管是否打开，应该都能操作！

qiufenghuxiao · 发表于 2012-11-6 21:44

感谢啊，正在加班呢！

shimy123 · 发表于 2012-11-9 09:30

好东西，谢谢分享！

雪豹 · 发表于 2012-11-9 14:18

发现这种方法的一个新的问题：在一个大约3M的全是文字的文档中测试，替换几百个值时，速度较慢，没有查找替换的效率高。

xinyingzhijia · 发表于 2012-12-29 19:00

先表示感谢！
对我很有用，先学习学习看看。

非常感谢楼主的奉献！！！！

雪北方 · 发表于 2013-1-14 17:07

非常感谢楼主提供这么好的程序，我从头看到尾，遇到的问题也解决了，按照182楼的方法，135楼的解释我看不明白，有机会再像大家学习

雪北方 · 发表于 2013-1-16 10:58

工程付款申请表中的数据4是多次替换的，可我变了一下怎么替换不了，没有反应
Set Word对象 = CreateObject("word.Application")
   With Word对象
      .Documents.Open 导出路径文件名
      .Visible = False
      With .Selection.Find
         Str1 = "设立公司"
         Str2 = Sheets("sheet1").Cells(2, 1)
         Text = Str1 '查找到指定字符串
            .Replacement.Text = Str2 '替换字符串
            .Execute Replace:=wdReplaceAll '全部替换
   End With
End With

		自动登录	找回密码
密码			免费注册

[原创] ●★将Excel数据写入Word模板★●