用VBA将excel中的不同字段转换为一个没有表格的word文档

Sub ExportToWord()
    Dim wb As Workbook
    Dim ws As Worksheet
    Dim wdApp As Object
    Dim wdDoc As Object
    Dim rng As Range
    Dim i As Integer
    
    ' 打开Excel文件
    Set wb = ThisWorkbook
    ' 选择要导出的工作表
    Set ws = wb.Worksheets("Sheet1")
    ' 设置要导出的字段范围
    Set rng = ws.Range("A1:C10")
    
    ' 创建一个Word应用程序对象
    Set wdApp = CreateObject("Word.Application")
    ' 创建一个新的Word文档
    Set wdDoc = wdApp.Documents.Add
    
    ' 循环遍历字段范围，将每个字段的值写入Word文档
    For i = 1 To rng.Rows.Count
        ' 将字段值写入Word文档
        wdDoc.Content.InsertAfter rng.Cells(i, 1).Value & " - " & rng.Cells(i, 2).Value & " - " & rng.Cells(i, 3).Value
        ' 插入换行符
        wdDoc.Content.InsertParagraphAfter
    Next i
    
    ' 保存Word文档
    wdDoc.SaveAs "C:\Path\To\Your\Word\Document.docx"
    
    ' 关闭Word文档和应用程序对象
    wdDoc.Close
    wdApp.Quit
    
    ' 释放对象变量
    Set rng = Nothing
    Set ws = Nothing
    Set wb = Nothing
    Set wdDoc = Nothing
    Set wdApp = Nothing
End Sub