WPSvba批量生成word步骤教学。1、将以下内容复制进excel的宏模块点击保存。Dima，b，zhs。zhs=Sheet1.Range（“c”&Rows.Count）.nd（xlUp）.Row。p=ThisWorkbook.Path&“”。IfSheet1.Range（“c5”）.Value=“”Then。wjj=“新文书”；Else；wjj=Sheet1.nge（“c5”）.Value。EndIf；Ifzhs&lt；3Then。CreateObject（“Wscript.shell”）.popup“没有数据可以录入，请输入数据后再点击生成新文档。”，1，“提示。”，0+32。ExitSub；EndIf；OnErrorResumeNext。