将Userform中ListBox内容导入Word表格的VBA代码问题求助

我在Userform中设有一个ListBox，同时有一个与该ListBox行列数一致的Word表格。ListBox的数据来源于Excel的Sheet3，数据源区域为Sheet3(A1:C6)。希望点击命令按钮时，将ListBox中的所有内容导入到Word表格中。

当前使用的VBA代码运行后无反应，代码如下：

Set WordApp = New Word.Application
Set WordDoc = WordApp.Documents.Open(DocFile, False)
Word.Application.Visible = True


For lnglistcount = 0 To ListBox1.List - 1

    WordDoc.Content.InsertAfter Text:=ListBox1.List(lnglistcount)
        
    WordDoc.ExportAsFixedFormat OutputFileName:=FilePath, ExportFormat:=wdExportFormatPDF
    WordDoc.Close saveChanges:=False
    WordApp.Quit
    Set WordApp = Nothing
    Set WordDoc = Nothing

    MsgBox "File Created."
   
Next

1. 循环范围错误：ListBox1.List - 1 写法错误，应使用 ListBox1.ListCount - 1 获取ListBox的行数上限。
2. 定位错误：用InsertAfter把内容插入文档末尾，未定位到目标Word表格，无法实现表格填充。
3. 循环内终止程序：第一次循环就执行WordDoc.Close和WordApp.Quit，导致循环仅执行一次就终止，后续内容无法处理。
4. 未处理多列逻辑：ListBox是3列6行结构，代码未遍历列，直接取整行数据不符合表格填充需求。

Sub ExportListBoxToWordTable()
    Dim WordApp As Word.Application
    Dim WordDoc As Word.Document
    Dim WordTable As Word.Table
    Dim lngRow As Long, lngCol As Long
    Dim DocFile As String, FilePath As String
    
    ' 替换为你的Word文档路径和PDF输出路径
    DocFile = "C:\YourPath\TargetDocument.docx"
    FilePath = "C:\YourPath\Output.pdf"
    
    ' 启动Word并打开目标文档
    Set WordApp = New Word.Application
    Set WordDoc = WordApp.Documents.Open(DocFile)
    WordApp.Visible = True
    
    ' 定位到文档中的目标表格（此处为第一个表格，需根据实际调整索引）
    Set WordTable = WordDoc.Tables(1)
    
    ' 遍历ListBox的行和列，将内容填入对应表格单元格
    For lngRow = 0 To ListBox1.ListCount - 1
        For lngCol = 0 To ListBox1.ColumnCount - 1
            ' 确保表格行列数与ListBox匹配
            If lngRow + 1 <= WordTable.Rows.Count And lngCol + 1 <= WordTable.Columns.Count Then
                WordTable.Cell(lngRow + 1, lngCol + 1).Range.Text = ListBox1.List(lngRow, lngCol)
            End If
        Next lngCol
    Next lngRow
    
    ' 导出PDF并清理资源
    WordDoc.ExportAsFixedFormat OutputFileName:=FilePath, ExportFormat:=wdExportFormatPDF
    WordDoc.Close saveChanges:=True
    WordApp.Quit
    
    Set WordTable = Nothing
    Set WordDoc = Nothing
    Set WordApp = Nothing
    
    MsgBox "内容已导入并生成PDF！"
End Sub

• 需在Excel中引用Word对象库：打开VBA编辑器 → 工具 → 引用 → 勾选Microsoft Word xx.x Object Library。
• 替换代码中DocFile和FilePath为实际文件路径。
• 若目标不是文档第一个表格，修改WordDoc.Tables(1)中的索引为对应表格序号。

内容的提问来源于stack exchange，提问作者Xlacssss