VBA批量生成word(如offer)

最新推荐文章于 2025-08-09 12:00:42 发布

原创最新推荐文章于 2025-08-09 12:00:42 发布 · 1w 阅读

44 ·

CC 4.0 BY-SA版权

文章标签：

#VBA

VBA 专栏收录该内容

10 篇文章

订阅专栏

使用VBA在Excel中批量生成带有客户信息的Offer文档，通过查找并替换模板中的关键词，如名字、身份证号、性别和手机号，实现自动化文档创建。

Excel里面有客户的名字、身份证、性别、手机号，通过批量更新offer的这4个变量批量生成offer。

VBA代码如下：
Sub CreateWord()
Dim mypath, Newname, i, XB, wApp
mypath = ThisWorkbook.Path & “\”
For i = 2 To [a1048576].End(xlUp).Row
Newname = “offer-” & Range(“a” & i) & “.docx” ‘给新生成的表起个名称
FileCopy mypath & “offer.docx”, mypath & Newname ‘将模板复制并重命名
Set wApp = CreateObject(“word.application”)
With wApp
.Visible = False
.Documents.Open mypath & Newname ‘打开我们复制的新文件进行更改
Do While .Selection.Find.Execute(“名字”) ‘寻找客户这个关键词，将其用表格中的姓名来代替
.Selection.Text = Range(“A” & i).Text
.Selection.HomeKey Unit:=6
Loop

Do While .Selection.Find.Execute(“身份证号”)
.Selection.Text = Range(“B” & i).Text ‘替换字符串
.Selection.HomeKey Unit:=6
Loop
Do While .Selection.Find.Execute(“男女”)
.Selection.Text = Range(“C” & i).Text ‘替换字符串
.Selection.HomeKey Unit:=6
Loop
Do While .Selection.Find.Execute(“手机号”)
.Selection.Text = Range(“D” & i).Text ‘替换字符串
.Selection.HomeKey Unit:=6
Loop

.Documents.Save
.Quit

End With
Next
Set wApp = Nothing

End Sub