使用VBA将单词列表转换为Word表格中的单元格

Sub ConvertToTable()
    Dim wordDoc As Document
    Dim wordTable As Table
    Dim wordRange As Range
    Dim wordCell As Cell
    
    ' 设置文档对象
    Set wordDoc = ActiveDocument
    
    ' 创建表格对象
    Set wordRange = wordDoc.Range
    Set wordTable = wordDoc.Tables.Add(wordRange, 1, 1)
    
    ' 获取单词列表
    Dim words() As String
    words = Split("单词1,单词2,单词3,单词4,单词5", ",") '替换成你的单词列表
    
    ' 将单词列表填充到表格中
    For i = 0 To UBound(words)
        wordTable.Rows.Add
        Set wordCell = wordTable.Cell(i + 1, 1)
        wordCell.Range.Text = words(i)
    Next i
    
    ' 格式化表格
    wordTable.AutoFitBehavior wdAutoFitContent
    wordTable.Borders.Enable = True
    wordTable.AllowAutoFit = True
    
    ' 清除文档对象
    Set wordCell = Nothing
    Set wordTable = Nothing
    Set wordDoc = Nothing
End Sub