wpsvba怎么批量生成word

wpsvba怎么批量生成word：

1、将以下内容复制进excel的宏模块点击保存。

Dim a, b, zhs

zhs = Sheet 1. Range("c"& Rows.Count).nd(xlUp).Row

p = ThisWorkbook. Path &""

If Sheet 1.Range("c5").Value = "" Then

wjj="新文书"

Else

wjj = Sheet1.nge("c5").Value

End If

If zhs < 3 Then

CreateObject ("Wscript.shell").popup "没有数据可以录入，请输入数据后再点击生成新文档！"，1,"提示！ "，0 + 32

Exit Sub

End If

If Sheet1.Range("F1") <> "修改本级文档"Then

On Error Resume Next

2、这个方式是用EXCEL的表格对多个内容进行界面管理。

3、之后在用Excel的VBA调用word文件进行查找更改。