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

guzhen9315 · 发表于 2010-11-2 18:14

原帖由 iamtheman 于 2010-10-21 16:35 发表
如果有重复的数据，需要以新的数据填入哦！不过这样已经足够用了

把以下代码替代一下，就行了。

If .Selection.Find.Execute(Str1) Then
.Selection.Font.Color = wdColorAutomatic
.Selection.Text = Str2
End If

Do While .Selection.Find.Execute(Str1)
.Selection.Font.Color = wdColorAutomatic
.Selection.Text = Str2
.Selection.HomeKey Unit:=wdStory
Loop

kingbird · 发表于 2010-11-2 20:55

感谢楼主的辛勤工作

huaimiao781 · 发表于 2010-11-2 21:20

你那个有什么用怎么感觉放一个公式就可以了啊.
没你说的那么复杂啊!

korti · 发表于 2010-11-28 18:09

lz你好，能不能自动生成目录以及标题呢？

korti · 发表于 2010-11-28 18:12

想生成带有目录的报告，该怎么做呢？

dhb_168 · 发表于 2011-3-30 23:23

非常优秀的老师，非常优秀的教例，谢谢了非常优秀的老师，非常优秀的教例，谢谢了非常优秀的老师，非常优秀的教例，谢谢了非常优秀的老师，非常优秀的教例，谢谢了

sina14 · 发表于 2011-4-21 16:45

我是菜鸟，要请教的问题是，假如模版有好几页组成，如何定位。比如，授课时间同时出现在第3页，第31页，第49页。VBA语句如何实现，请赐教。

gjb_zjf · 发表于 2011-4-21 22:34

谢谢楼主，辛苦了，顶！！！

hc2266116 · 发表于 2011-5-16 14:48

非常实用,谢了!

西门吹水 · 发表于 2011-5-16 20:35

好文章，学习了

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

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

谢谢楼主的代码

回复 37楼 liangsihong 的帖子

非常优秀的老师，非常优秀的教例，谢谢了

热浪老师独步江湖。