可以试试这个步骤:
1、在Word里面打开那个中英混在的文档;
2、键入Alt+F11打开VBA编辑器,选择菜单“插入-模块”;
3、粘贴如下代码:
Option Explicit
Sub 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 Sub
4、F5运行,看到“完成!”结束。
5、Alt+Q关闭VBA窗口,回到Word主窗口;
6、观察生成的单词表是否合乎要求。
复制粘贴到excel,前或后加一列编号,按内容扩展排序,把中文分连带编号放到英文右边,然后两列两列按编号排序,删除编号,复制粘贴到word里。
全选
工具-转换-文字转换表格
自己调表格就中了
建立一个行数为20或30,列数为2或4的表格
按住ctrl键选择英文1-10,10-20或再加上20-30(看你表格行数定),粘贴到表格里第一列,再同样将汉字粘贴到表格里,这样你可以节省20倍或30倍的时间
你把原文件发给我,我试试看看能弄好吗?wangtonggangwtg@126.com