可以試試這個步驟：

1、在Word裡面開啟那個中英混在的文件；

2、鍵入Alt+F11開啟VBA編輯器，選擇選單“插入-模組”；

3、貼上如下程式碼：Option ExplicitSub GenerateVocabularyTable() Dim oOldDoc As Document, oNewDoc As Document Dim oTable As Table Dim oParagraph As Paragraph Dim nIndex As Integer, nMod20 As Integer, nRow As Integer Dim strText As String Set oOldDoc = ActiveDocument Set oNewDoc = Documents.Add Set oTable = oNewDoc.Tables.Add(oNewDoc.Content, (oOldDoc.Paragraphs.Count \ 20) * 10 + 1, 2) oTable.Borders.Enable = True oTable.Cell(1, 1).Range.Text = "英文" oTable.Cell(1, 2).Range.Text = "中文" oTable.Rows(1).Range.Font.Bold = True For nIndex = 1 To oOldDoc.Paragraphs.Count nMod20 = nIndex Mod 20 nRow = 1 + (nIndex \ 20) * 10 + nIndex Mod 20 strText = Replace(oOldDoc.Paragraphs(nIndex).Range.Text, vbCr, "") If (nMod20 > 10) Then oTable.Cell(nRow - 10, 2).Range.Text = strText ElseIf (nMod20 = 0) Then oTable.Cell(nRow, 2).Range.Text = strText Else oTable.Cell(nRow, 1).Range.Text = strText End If Next Set oTable = Nothing Set oNewDoc = Nothing Set oOldDoc = Nothing MsgBox "完成！"End Sub4、F5執行，看到“完成！”結束。5、Alt+Q關閉VBA視窗，回到Word主視窗；6、觀察生成的單詞表是否合乎要求。