WPS 宏录制实战：自动批量生成百份个性化聘书或合同

#

在人力资源、行政管理或商务合作中，你是否曾为需要手动制作数十甚至上百份内容相似但细节不同的聘书、合同、录取通知书或邀请函而感到头疼？逐个修改姓名、职位、日期等信息不仅枯燥乏味，而且极易出错。今天，我们将彻底解决这一痛点，通过WPS Office内置的强大“宏录制”功能，实现文档批处理的完全自动化。即使你没有任何编程基础，也能轻松上手，将数小时甚至数天的工作压缩到几分钟内完成。

WPS宏是一系列预先录制或编写的命令与指令的集合，旨在自动执行重复性任务。它就像一位不知疲倦的助手，能精确复现你的操作流程。本文将手把手带你从零开始，完成一个完整的实战项目：利用WPS文字（Writer）的宏功能，结合WPS表格（Spreadsheets）作为数据源，一键批量生成上百份格式规范、内容个性化的正式文档。这不仅是一个技巧分享，更是一套能直接应用于实际工作、显著提升生产力的自动化解决方案。

一、 宏基础：理解自动化工具的核心

#

在深入实战之前，我们有必要夯实基础，理解宏究竟是什么以及它能为我们带来什么。

1.1 什么是宏？

#

宏（Macro）本质上是一个脚本或小程序。在WPS Office中，它通过记录用户对文档的一系列操作（如点击菜单、输入文字、设置格式等），并将这些操作转换为可重复执行的代码（通常是VBA—Visual Basic for Applications的变体或WPS自有的JS宏）。当你再次运行这个宏时，WPS会自动、快速、准确地重新执行所有被记录下来的步骤。

1.2 为何选择WPS宏进行自动化？

#

• 零代码入门：“录制宏”功能让自动化门槛降至最低。你只需要像平常一样操作，WPS会帮你“记住”并生成代码。
• 深度集成：与WPS文字、表格、演示无缝结合，尤其擅长处理Office文档内部的复杂操作。
• 效率倍增：将重复、规则化的任务自动化，解放人力专注于更具创造性和决策性的工作。
• 准确无误：避免人工操作带来的疏忽和错误，确保每份产出文档格式统一、数据准确。

1.3 实战项目概述

#

目标：我们有100位新员工需要发放聘书。所有聘书模板相同，但每份聘书中的“员工姓名”、“入职岗位”、“入职日期”和“员工编号”因人而异。我们将：

1. 在WPS文字中制作一份精美的聘书模板。
2. 在WPS表格中建立包含所有变量信息（姓名、岗位等）的数据源。
3. 录制并编写一个宏，让WPS自动读取表格中的每一行数据，并填充到文字模板的对应位置，生成100份独立的聘书文档。

二、 前期准备：构建模板与数据源

#

自动化流程的基石是一个设计良好的模板和一个结构清晰的数据源。

2.1 创建WPS文字聘书模板

#

1. 打开WPS文字，设计一份正式的聘书。包含公司抬头、正文、落款（公司盖章、日期）等所有固定内容。
2. 关键步骤：插入“书签”。
   • 在需要替换的变量位置（如“__________”处），不要留空，可以先输入一个占位符如[姓名]。
   • 更专业的方法是使用“书签”。选中占位符[姓名]，点击顶部菜单栏【插入】→【书签】，在弹出的对话框中输入书签名，如EmployeeName，然后点击【添加】。这将在该位置创建一个不可见的标记点，宏可以精准定位到这里。
   • 同理，为“岗位”、“日期”、“编号”等变量位置也设置好书签，例如：EmployeePosition， JoinDate， EmployeeID。
   • 优点：书签定位比文本搜索更精确、稳定，不受格式轻微变动影响。

2.2 创建WPS表格数据源

#

1. 打开WPS表格，新建一个工作表。
2. 在第一行创建列标题，它们应与文字模板中的变量一一对应。例如：

   A列: 姓名	B列: 岗位	C列: 入职日期	D列: 员工编号
   张三	高级软件工程师	2023-10-27	E001
   李四	市场推广经理	2023-10-28	E002
   …	…	…	…
   （填充至第101行，共100条记录）

3. 确保日期等数据格式正确。保存此表格文件，例如命名为员工数据源.xlsx，并记住其存放路径。

三、 宏录制实战：从录制到编辑的完整流程

#

这是最核心的部分。我们将先通过录制学习基础操作，再通过编辑赋予其智能批处理能力。

3.1 启用开发工具与信任中心设置

#

默认情况下，WPS的宏功能可能未显示。你需要：

1. 点击WPS文字左上角【文件】→【选项】。
2. 在【自定义功能区】中，勾选右侧的【开发工具】复选框，然后确定。顶部菜单栏即会出现【开发工具】选项卡。
3. 进入【开发工具】选项卡，点击【宏安全性】。建议在学习和开发阶段，选择“中”或“低”（信任所有来源），以便运行自己的宏。完成后务必根据安全指南调整回更安全的设置。

3.2 录制第一个基础宏：学习单个替换

#

我们的目标是先学会如何用宏将一份模板中的变量替换成具体数据。

1. 打开之前保存的聘书模板文件。
2. 进入【开发工具】选项卡，点击【录制新宏】。
3. 为宏起一个名字，如SingleReplace，点击确定。此时，你的所有操作都将被记录。
4. 进行手动替换操作（假设我们为第一条记录“张三”生成聘书）：
   • 按Ctrl+H打开“查找和替换”对话框。
   • 在“查找内容”中输入[姓名]。
   • 在“替换为”中输入张三。
   • 点击【全部替换】。
   • 重复以上步骤，将[岗位]替换为高级软件工程师，[日期]替换为2023-10-27，[编号]替换为E001。
5. 替换完成后，点击【开发工具】选项卡下的【停止录制】。

现在，你已经成功录制了一个宏。你可以通过【开发工具】→【宏】，选择SingleReplace并点击【运行】，来验证它是否能自动重复你刚才的替换操作。

3.3 编辑宏：引入循环与外部数据

#

录制的宏只能固定替换为“张三”的信息。我们需要编辑其代码，让它能读取表格数据并循环处理。

1. 在【开发工具】选项卡中点击【宏】，选择刚才录制的SingleReplace宏，点击【编辑】。这会打开WPS宏编辑器（一个独立的编程界面）。
2. 你将看到类似下面的代码（语言可能是VBA或JS，取决于WPS版本和设置，以下以类VBA语法为例）：

   Sub SingleReplace()
       Selection.Find.ClearFormatting
       Selection.Find.Replacement.ClearFormatting
       With Selection.Find
           .Text = "[姓名]"
           .Replacement.Text = "张三"
           .Forward = True
           .Wrap = wdFindContinue
           .Format = False
           .MatchCase = False
           .MatchWholeWord = False
           .MatchWildcards = False
           .MatchSoundsLike = False
           .MatchAllWordForms = False
       End With
       Selection.Find.Execute Replace:=wdReplaceAll
       '... 后续是其他字段的替换代码
   End Sub
   

3. 关键改造：我们需要清空这个宏，重写一个更智能的版本。将其替换为以下逻辑清晰的代码（代码已添加详细注释）：

   Sub BatchGenerateDocuments()
       ' 声明变量
       Dim dataSheet As Object ' WPS表格工作表对象
       Dim wordDoc As Object   ' WPS文字文档对象
       Dim i As Integer        ' 循环计数器
       Dim lastRow As Integer  ' 数据最后一行
       Dim empName As String, empPos As String, joinDate As String, empID As String
       Dim templatePath As String, savePath As String
   
       ' 1. 定义路径（请根据实际情况修改！）
       templatePath = "C:\Users\你的用户名\Documents\聘书模板.docx" ' 模板文件完整路径
       savePath = "C:\Users\你的用户名\Documents\生成的聘书\"       ' 保存文件夹路径
   
       ' 2. 连接到WPS表格并获取数据
       Set excelApp = CreateObject("ET.Application") ' ET是WPS表格的内部标识
       excelApp.Visible = False ' 让表格在后台运行，不可见
       Set dataWorkbook = excelApp.Workbooks.Open("C:\Users\你的用户名\Documents\员工数据源.xlsx")
       Set dataSheet = dataWorkbook.Worksheets(1) ' 获取第一个工作表
   
       ' 计算数据有多少行（假设数据从第2行开始，第1行是标题）
       lastRow = dataSheet.Cells(dataSheet.Rows.Count, 1).End(-4162).Row ' -4162代表xlUp，即从下往上找
   
       ' 3. 循环处理每一行数据
       For i = 2 To lastRow ' 从第2行开始，跳过标题行
           ' 从表格中读取当前行的数据
           empName = dataSheet.Cells(i, 1).Value ' A列
           empPos = dataSheet.Cells(i, 2).Value  ' B列
           joinDate = Format(dataSheet.Cells(i, 3).Value, "yyyy年mm月dd日") ' C列，格式化日期
           empID = dataSheet.Cells(i, 4).Value   ' D列
   
           ' 4. 打开聘书模板（每次循环都打开一份新的副本）
           Set wordApp = CreateObject("WPS.Application") ' 启动WPS文字
           wordApp.Visible = False ' 后台运行
           Set wordDoc = wordApp.Documents.Open(templatePath)
   
           ' 5. 在模板中进行替换（使用书签定位法，更优）
           ' 如果使用书签：
           If wordDoc.Bookmarks.Exists("EmployeeName") Then
               wordDoc.Bookmarks("EmployeeName").Range.Text = empName
           End If
           If wordDoc.Bookmarks.Exists("EmployeePosition") Then
               wordDoc.Bookmarks("EmployeePosition").Range.Text = empPos
           End If
           ' ... 其他书签的替换
   
           ' 如果使用查找替换（备选方案）：
           ' With wordDoc.Content.Find
           '     .Text = "[姓名]"
           '     .Replacement.Text = empName
           '     .Execute Replace:=2 ' 2代表wdReplaceAll
           '     .Text = "[岗位]"
           '     .Replacement.Text = empPos
           '     .Execute Replace:=2
           '     ' ... 其他字段
           ' End With
   
           ' 6. 保存为新文档
           Dim newFileName As String
           newFileName = savePath & empName & "_" & empID & "_聘书.docx"
           wordDoc.SaveAs2 newFileName
           wordDoc.Close
           wordApp.Quit ' 关闭WPS文字实例，释放资源
           Set wordDoc = Nothing
           Set wordApp = Nothing
       Next i
   
       ' 7. 清理与完成
       dataWorkbook.Close False ' 关闭表格，不保存更改
       excelApp.Quit
       Set dataSheet = Nothing
       Set dataWorkbook = Nothing
       Set excelApp = Nothing
   
       MsgBox "批量生成完成！共生成 " & (lastRow - 1) & " 份聘书。", vbInformation
   End Sub
   

   重要提示：上述代码是一个概念示例，具体语法可能因你的WPS版本（支持VBA还是JS宏）而异。WPS新版正大力推广JS宏。如果遇到问题，你可以使用WPS宏编辑器中的“对象浏览器”和“录制宏”功能来学习正确的语法。

3.4 运行与调试

#

1. 在宏编辑器中，点击运行按钮（或按F5）。
2. 宏将开始运行。你可能会看到屏幕闪烁（程序在后台打开关闭文档），最终弹出一个提示框，告知生成完成。
3. 前往你设置的savePath文件夹，检查生成的文档是否正确。如果出错，宏编辑器会提示错误行，你可以根据错误信息进行调试（常见问题：路径错误、文件被占用、对象未正确释放等）。

四、 优化与高级技巧

#

一个健壮的宏还需要考虑更多细节。

4.1 错误处理

#

在代码中加入错误处理机制，避免因个别数据问题导致整个流程中断。

On Error Resume Next ‘ 发生错误时继续执行下一行（需谨慎使用）
‘ 或
On Error GoTo ErrorHandler
‘ ... 主代码 ...
Exit Sub
ErrorHandler:
MsgBox “错误号: ” & Err.Number & vbCrLf & “错误描述: ” & Err.Description, vbCritical
Resume Next

4.2 进度提示

#

对于大量数据的处理，可以添加进度条或实时计数提示，让用户感知进度。

‘ 在循环内添加
Application.StatusBar = “正在生成第 ” & (i-1) & “/” & (lastRow-1) & “ 份文档: ” & empName
‘ 循环结束后恢复
Application.StatusBar = “”

4.3 格式保留

#

确保替换内容后，原有的字体、字号、段落格式不被破坏。使用书签Range.Text属性替换通常能更好地保留书签前后的格式。

4.4 扩展应用

#

此模板不仅限于聘书、合同，还可用于：

• 批量制作工资条：从总表拆分数据到个人工资条文档。
• 生成个性化证书：针对培训、竞赛的参与者。
• 创建客户信函：如产品推介信、会议邀请函等。
• 与WPS演示结合：批量生成带有个人姓名和信息的PPT证书页。

五、 安全须知与最佳实践

#

宏功能强大，但也要注意安全。

1. 宏病毒防范：切勿打开来源不明的、包含宏的文档。WPS默认会禁用宏并发出警告。
2. 代码备份：复杂的宏代码应妥善保存（可导出为.bas文件或记录在文本文件中）。
3. 文档备份：运行批量操作前，务必备份原始模板和数据源。
4. 权限管理：如果宏涉及敏感数据操作，应结合《深入了解 WPS Office 的权限控制：如何管理访问权限并确保文档安全性》一文中提到的权限管理策略，确保数据安全。
5. 性能考量：处理超大量数据（如万条以上）时，单一的文档打开/保存循环可能较慢。可考虑优化为邮件合并（WPS文字【引用】选项卡下的【邮件】功能）或更专业的数据库链接方式。对于追求极致自动化的用户，可以进一步学习《WPS宏与Python深度集成：自动化处理复杂报表与数据可视化案例》中的高级方法。

六、 常见问题解答 (FAQ)

#

Q1: 我录制的宏在自己的电脑上运行正常，但发给同事却无法使用？ A1: 这通常是由以下原因导致：① 同事的WPS宏安全性设置更高，阻止了运行；② 宏代码中包含了绝对路径（如C:\Users\你的名字\...），在同事电脑上该路径不存在；③ 缺少必要的引用库。解决方案：将宏保存到WPS的通用模板中，或使用相对路径，并确保同事启用宏。

Q2: WPS提示“无法找到工程或库”错误怎么办？ A2: 这是VBA环境引用缺失所致。在宏编辑器中，点击【工具】→【引用】，检查是否有标记为“丢失”的项，取消其勾选，并勾选正确的WPS对象库（如Kingsoft WPS Application Object Library）。新版WPS JS宏则无此问题。

Q3: 批量生成时，如何让每份文档生成后直接打印？ A3: 在保存文档wordDoc.SaveAs2 newFileName这行代码之后，添加打印命令：wordDoc.PrintOut。但请务必谨慎，最好先测试打印一份，确认格式无误后再启用批量打印。

Q4: 数据源中的图片（如员工照片）也能批量插入到文档中吗？ A4: 可以，但比文本复杂。需要在数据源中存储图片的完整文件路径，然后在宏中使用wordDoc.Bookmarks(“PhotoPosition”).Range.InlineShapes.AddPicture(图片路径)这样的方法来插入。需要预先在模板中为图片预留好书签位置。

Q5: WPS的宏和Microsoft Office的VBA兼容吗？ A5: WPS Office对VBA有很好的兼容性，大部分常见的VBA代码可以直接或稍作修改后运行。但两者在对象模型和一些高级特性上存在细微差异。对于复杂的宏，建议在WPS环境下重新录制或测试关键代码段。

结语：迈向高效办公的智能阶梯

#

通过本篇超过5000字的详细教程，我们不仅完成了一个从数据到文档的全自动批处理流水线搭建，更重要的是掌握了WPS宏这一“办公魔法”的核心思想：将规律性、重复性的操作流程抽象化、代码化、自动化。从简单的文本替换，到结合外部数据源的循环批处理，再到考虑错误处理和性能优化，每一步都是你办公自动化能力的一次升级。

宏录制只是起点。当你熟悉了这种“教导软件工作”的方式后，可以探索更广阔的天地，例如利用WPS的智能模板功能快速初始化文档结构，正如《WPS 智能模板2.0：如何利用AI生成符合你行业与文风的专属模板》所介绍的，将模板的固定部分与宏的动态生成部分结合，打造出真正属于你个人或企业的智能文档生产系统。

不要再将生命耗费在机械的复制粘贴上。立即打开你的WPS Office，从录制第一个简单的格式调整宏开始，逐步构建起你的自动化武器库。当你看到上百份文档在瞬间完美生成时，所收获的不仅是时间，更是对工作流程的掌控感和迈向更高阶生产力的自信。自动化不是取代人力，而是赋能于人，让你专注于那些真正需要人类智慧与创造力的领域。

本文由wps下载站提供，欢迎浏览wps官网了解更多资讯。