excel批量生成word合同完整代码

要批量生成word合同，我们需要使用VBA编写Excel宏。以下是一个简单的完整代码示例：

Sub CreateContracts()

'定义变量
Dim i As Integer
Dim Contract As Document
Dim FilePath As String
Dim ContractName As String
Dim ClientName As String
Dim ContractDate As Date
Dim ContractAmount As Double

'设置文件路径和名称前缀
FilePath = "C:\Contracts\"
ContractName = "Contract"

'打开Word
Set WordApp = CreateObject("Word.Application")
WordApp.Visible = False

'循环生成合同
For i = 2 To 11 '这里假设数据在第一列，从第二行开始

'读取数据
ClientName = Cells(i, 1)
ContractDate = Cells(i, 2)
ContractAmount = Cells(i, 3)

'在Word中新建合同
Set Contract = WordApp.Documents.Add

'在合同中插入信息
With Contract.Content
.InsertAfter "合同编号：" & i - 1 & vbCrLf
.InsertAfter "客户名称：" & ClientName & vbCrLf
.InsertAfter "签署日期：" & ContractDate & vbCrLf
.InsertAfter "合同金额：" & ContractAmount & vbCrLf
End With

'保存合同
Contract.SaveAs FilePath & ContractName & i - 1 & ".docx"

'关闭合同
Contract.Close wdDoNotSaveChanges

Next i

'关闭Word
WordApp.Quit

'显示完成提示
MsgBox "批量生成合同完成！"

End Sub

在这个代码中，我们首先定义了一些变量，包括文件路径、合同名称前缀以及需要用到的各种信息。然后我们打开了Word程序，并使用循环，生成了每个合同，并插入了需要的信息。最后我们保存合同文件，关闭文件和Word程序，并显示了一个提示。可以根据实际需要进行修改和调整。