excel用vba批量生成word合同，如何替换图片

yuyun2013 · 发表于 2022-12-23 16:07

论坛的大神们，大家好！

刚接触宏命令两天，在网上找到的生成带图片的合同，多数都是用邮件合并或用excel批量生成word工具。一直没找到用代码生成的办法。

在网上找到一个我能看懂的，超简单的代码，试着改了一下。

现在有两个问题无法解决。请问各位大佬，我该怎么解决这两个问题
1、不在excel增加一列每日工资的大写的情况下，如何把数字转成大写数字，然后替换到合同中。
2、如何在搜索文件夹中的图片并替换到合同中。

excel文件人员信息如下图

合同模板如图

用的是wps的vb宏，电脑上也装有MicrosoftOfficeLTSC专业增强版2022
代码哪下

Sub 生成合同()
'
Dim mypath, docname, i, wApp
'定义变量
'MkDir ThisWorkbook.Path & "\批量生成合同"
'在当前路径下创建名为“批量生成”的文件夹，用于存放生成的文件
mypath = ThisWorkbook.Path & ""
'指定“mypath”(本例定义的工作路径)为“批量生成”文件夹
For i = 2 To [a1048576].End(xlUp).Row
'指定后面执行的循环范围，从第2行开始，到最后一个非空单元格为止
docname = Range("A" & i) & "劳动合同书" & "（" & Range("B" & i) & "）" & ".docx"
'定义自动生成的文件名为“杆塔基础征地合同-”+“B列i行的值(相应的姓名)”+“C列i行的值(相应的姓名)”+“.docx”
FileCopy ThisWorkbook.Path & "" & "劳动合同书（模板）.docx", mypath & docname
'复制当前路径下的“0劳动合同书（模板）.docx”文件到指定路径(就是“批量生成”文件夹)，并按上述规则重命名
Set wApp = CreateObject("word.application")
'调用word程序打开文件，执行后面操作
With wApp
.Visible = False
.Documents.Open mypath & docname
'打开上面复制并重命名的文件
Do While .Selection.Find.Execute("【姓名】")
'在文件中检索“【姓名】”字符串
.Selection.Text = Range("B" & i).Text
'使用表格C列i行的值(即相应的姓名)替换找到的“【姓名】”字符串
.Selection.HomeKey Unit:=6
'光标置于文件开头
Loop
'循环
'（直到找不到【姓名】为止，当前文档中所有【姓名】字符串都已被替换）
Do While .Selection.Find.Execute("【ID】")
.Selection.Text = Range("D" & 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("J" & i).Text
.Selection.HomeKey Unit:=6
Loop
Do While .Selection.Find.Execute("【地址】")
.Selection.Text = Range("K" & i).Text
.Selection.HomeKey Unit:=6
Loop
Do While .Selection.Find.Execute("【日期】")
.Selection.Text = Range("H" & i).Text
.Selection.HomeKey Unit:=6
Loop
Do While .Selection.Find.Execute("【岗位】")
.Selection.Text = Range("L" & i + 1).Text
.Selection.HomeKey Unit:=6
Loop
Do While .Selection.Find.Execute("【小写】")
.Selection.Text = Range("G" & i).Text
.Selection.HomeKey Unit:=6
Loop
Do While .Selection.Find.Execute("【大写】")
.Selection.Text = Range("G" & i).Text
.Selection.HomeKey Unit:=6
Loop
Do While .Selection.Find.Execute("【卡号】")
.Selection.Text = Range("F" & i).Text
.Selection.HomeKey Unit:=6
Loop
Do While .Selection.Find.Execute("【开户行】")
.Selection.Text = Range("E" & i).Text
.Selection.HomeKey Unit:=6
Loop
Do While .Selection.Find.Execute("【身份证正面】")
.Selection.Text = Range("P" & i).Text
.Selection.HomeKey Unit:=6
Loop
.Documents.Save
.Quit
End With
Next
Set wApp = Nothing
End Sub

复制代码

yuyun2013 · 发表于 2022-12-23 16:10

原来注册的帐号无法更改密码，点击链接是这样，这是新注册的号

3190496160 · 发表于 2022-12-24 09:55

word中插入照片的帖子，十一月份至少回过十个这样的帖子，自己找找看看呀

蓝桥玄霜 · 发表于 2022-12-24 19:40

可以用书签的方式来实现。
这是加了书签的模板文件。
在Excel中抄入代码，执行即可。

yuyun2013 · 发表于 2022-12-24 20:27

3190496160 发表于 2022-12-24 09:55
word中插入照片的帖子，十一月份至少回过十个这样的帖子，自己找找看看呀

谢谢，我好好找找。

yuyun2013 · 发表于 2022-12-24 20:30

蓝桥玄霜发表于 2022-12-24 19:40
可以用书签的方式来实现。
这是加了书签的模板文件。
在Excel中抄入代码，执行即可。

谢谢，没学过代码，只有一些计算机操作基础。
我得下来好好研究一下。
现在看得很懵

yuyun2013 · 发表于 2022-12-24 20:34

今天用摸索了半天，这个替换法里加上红色字体这项也能数值变大写
Do While .Selection.Find.Execute("【大写】")

.Selection.Text = Application.WorksheetFunction.Text(Range("O" & i), "[DBNum2]")

.Selection.HomeKey Unit:=6

Loop

yuyun2013 · 发表于 2022-12-24 20:43

谢谢上面的论坛元老，今天摸索半天发现把代码加了些代码也能大写，感觉我这些方法很蠢，不过自己很容易看懂
下面的代码

Do While .Selection.Find.Execute("【大写】")
.Selection.Text = Range("O" & i).Text
.Selection.HomeKey Unit:=6

复制代码

改成下面就能大写

Do While .Selection.Find.Execute("【大写】")
.Selection.Text = Application.WorksheetFunction.Text(Range("O" & i), "[DBNum2]")
.Selection.HomeKey Unit:=6

复制代码

yuyun2013 · 发表于 2022-12-24 20:50

蓝桥玄霜发表于 2022-12-24 19:40
可以用书签的方式来实现。
这是加了书签的模板文件。
在Excel中抄入代码，执行即可。

正在抄代码，今天工作之余挤时间看了本论坛的VBA入门，刚好记得这些"&%$"代表什么。

yuyun2013 · 发表于 2022-12-24 23:45

边百度边看，看了4个小时，大概算看懂了前20行代码。版主的代码对新手来说太复杂了，明天下班后再抽空看了。

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

[求助] excel用vba批量生成word合同，如何替换图片

评分