文件如何英文分组

建立一个行数为20或30，列数为2或4的表格按住ctrl键选择英文1-10，10-20或再加上20-30（看你表格行数定），粘贴到表格里第一列，再同样将汉字粘贴到表格里，这样你可以节省20倍或30倍的时间

复制粘贴到excel,前或后加一列编号，按内容扩展排序，把中文分连带编号放到英文右边，然后两列两列按编号排序，删除编号，复制粘贴到word里。

你把原文件发给我，我试试看看能弄好吗？

全选工具-转换-文字转换表格自己调表格就中了

右键 查看 详细信息

可以试试这个步骤：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、观察生成的单词表是否合乎要求。

在空白处点击鼠标右键选着分组——》名称，在点击右键选着排序——》名称就行了