高手进！！！在word文档里如何把中英文分开排？急！！！

Question

我们老师给我们一份中考英文单词表，但老师说她没时间做，所以给了我们一份ppt,之后我在网上查来查去把它换成了word形式。但那份文件是中英混在一起排的：

1.a (an)
2. able
3. about
4. accept
5. across
6. act
7. action
8. after
9. again
10. against
一（个，件….）
能够；有能力的
大约；到处，四处
接受
横过，穿过
法令，条例；表演，扮演
行动
后来；在后；在…之后
再一次；再；又
对着；反对
11. age
12. ago
13. agree
14. air
15. all
16. allow
17. almost
18. along
19. already
20. also

就象这样！

但我想把它都做成这样的：

1.a (an) 一（个，件….）
2. able 能够；有能力的
3. about 大约；到处，四处
4. accept 接受
5. across 横过，穿过
6. act 法令，条例；表演，扮演
7. action 行动
8. after 后来；在后；在…之后
9. again 再一次；再；又
10. against 对着；反对

就象这样！！！！！！

因为有1600个单词所以我不可能一点点剪切后粘贴！所以请各位高手帮那个忙！！！！！

小弟在此给你们跪下了......

Answer 1

可以试试这个步骤：

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、观察生成的单词表是否合乎要求。

Answer 2

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

Answer 3

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

Answer 4

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

Answer 5

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