如何使用excel vba从行创建多个word文档？

使用Excel VBA可以从行创建多个Word文档的步骤如下：

打开Excel文件，按下Alt + F11打开VBA编辑器。
在VBA编辑器中，插入一个新的模块。
在模块中编写以下VBA代码：

Sub CreateWordDocuments()
    Dim wrdApp As Object
    Dim wrdDoc As Object
    Dim rng As Range
    Dim i As Integer
    
    ' 创建Word应用程序对象
    Set wrdApp = CreateObject("Word.Application")
    wrdApp.Visible = True
    
    ' 设置要操作的Excel工作表和范围
    Set rng = ThisWorkbook.Sheets("Sheet1").Range("A1:A10") ' 修改为你的工作表和范围
    
    ' 循环遍历每一行
    For i = 1 To rng.Rows.Count
        ' 创建新的Word文档
        Set wrdDoc = wrdApp.Documents.Add
        
        ' 将当前行的数据复制到Word文档中
        rng.Rows(i).Copy
        wrdDoc.Range.Paste
        
        ' 保存Word文档
        wrdDoc.SaveAs "路径\文件名" & i & ".docx" ' 修改为你想保存的路径和文件名
        
        ' 关闭Word文档
        wrdDoc.Close
    Next i
    
    ' 关闭Word应用程序
    wrdApp.Quit
    
    ' 释放对象变量
    Set wrdDoc = Nothing
    Set wrdApp = Nothing
End Sub