如何设置中英文对照排版？

wxj_bse

经常看到有些中英文对照读物，有2种方式，一种是在一个页码上出现2列，一列中文，另一列英文；另一种方式是一页中文，另一页英文。请问这是如何实现的。我见过一种方法，就是利用链接文本框的方法开实现，但是这种方式在页码比较少的时候还可以，但是页码一多就麻烦了，而且据说超过32页链接文本框就不起作用了。不知还有没有其他方式，word可以实现吗？

谢谢！

守柔

方法很多,文本框链接是一个方法;使用表格也可以,分栏也可以,使用制表位也行.

建议先按照正常的文本录入方式,即第一段为英文,第二段为中文……

全选，表格/文字转为表格，以段落标记为分隔符，两列。

wxj_bse

以下是引用守柔在2005-9-11 17:28:46的发言：

方法很多,文本框链接是一个方法;使用表格也可以,分栏也可以,使用制表位也行.

建议先按照正常的文本录入方式,即第一段为英文,第二段为中文……

全选，表格/文字转为表格，以段落标记为分隔符，两列。

非常感谢守柔的回复！不知通过分栏和制表位如何实现？而且如果是现成的中文和英文，不需录入，只需拿来拍板即可，这种实现方式是不是复杂了点。谢谢！

守柔

请上传你的附件（必须压缩），我看一下，如何才是捷径。

关于如何上传附件，可参：

http://club.excelhome.net/viewthread.php?tid=45649

hpw

这种应视不同情况区别对待,版主可要多举几个例子才行噢???

wxj_bse

以下是引用守柔在2005-9-11 18:40:30的发言：

请上传你的附件（必须压缩），我看一下，如何才是捷径。

关于如何上传附件，可参：

http://club.excelhome.net/viewthread.php?tid=45649

守柔，这是中英文附件：

IMPB1XkA.rar (33.31 KB, 下载次数: 76)

2005-9-11 19:46 上传

点击文件名下载附件
如何设置中英文对照排版？

谢谢守柔的回复。

对于第一种方式，我是这样解决的： “一种是在一个页码上出现2列，一列中文，另一列英文”对这种方式，解决方法：在英文word中，将英文正文转化为表格，一列——〉在中文word中，将中文正文转化为表格，一列——〉另建word文档A，插入表格，3列，中间一列宽约一个字符即可，准备放英文的列宽应大一点——〉将转化好的英文和中文表格复制到word文档A，注意各自对应关系。——〉将表格边框去掉旧可以了.

但是，对于第二种方式：一页中文，另一页英文。又该如何解决呢？

对于这两种排版方式，用其他方法（守柔所讲的制表位、分栏）又该如何解决？

谢谢！

[此贴子已经被作者于2005-9-12 10:22:56编辑过]

守柔

象楼主6楼提供的附件，是不适合用于这类文档的（段落文字数量过多），我做了一个代码，可以生成中英对照（隔段翻译）的代码和附件，供楼主以后参考。

'* ＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋ '* Created By I Love You_Word!@ExcelHome 2005-9-13 09:31:54 '仅测试于System: Windows NT Word: 10.0 Language: 2052 '№ 00018^The Code CopyIn [ThisDocument-ThisDocument]^' '* －－－－－－－－－－－－－－－－－－－－－－－－－－－－－

Option Explicit Sub MergeCE() Dim DocA As Document, DocB As Document, ParA As Paragraph, i As Integer Dim PasteRange As Range '定义两个文档对象 Set DocA = Documents("兽药管理条例.Doc") Set DocB = Documents("Regulations on Administration of Veterinary Drugs.Doc") With ThisDocument For Each ParA In DocA.Paragraphs '在文档A段落中循环 i = i + 1 '累加 ParA.Range.Copy '段落RANGE对象的复制 '始终是文档结束标记前一个字符位置 Set PasteRange = .Range(.Content.End - 1, .Content.End - 1) '保留源格式的粘贴 PasteRange.PasteAndFormat (wdFormatOriginalFormatting) Set PasteRange = .Range(.Content.End - 1, .Content.End - 1) DocB.Paragraphs(i).Range.Copy '复制文档B中的RANGE对象 PasteRange.PasteAndFormat (wdFormatOriginalFormatting) Next End With End Sub '----------------------

tJSM7fV2.zip (49.29 KB, 下载次数: 69)

2005-9-13 09:37 上传

点击文件名下载附件

[此贴子已经被作者于2005-9-13 9:37:24编辑过]

wxj_bse

谢谢守柔的及时回答。

对于中英对照（隔段翻译）的方法，我昨天想到了一下方法：在6楼解决方法（“一种是在一个页码上出现2列，一列中文，另一列英文”对这种方式，解决方法：在英文word中，将英文正文转化为表格，一列——〉在中文word中，将中文正文转化为表格，一列——〉另建word文档A，插入表格，3列，中间一列宽约一个字符即可，准备放英文的列宽应大一点——〉将转化好的英文和中文表格复制到word文档A，注意各自对应关系。——〉将表格边框去掉就可以了.）的基础上，再将表格内容转化成文本内容即可（分隔符号采用段落标记）。

wxj_bse

但是对于第二种方式（一页中文，下一页英文），不知有何解决办法。

我不会使用代码，但是有一个想法：能不能将奇数页码链接，把偶数页码链接，当奇数页中文字排满后自动跳过它后面的偶数页，到达下一个奇数页，偶数页业同样。当然不能手动输入使用文本框链接，否则太复杂了。不知可否编一段代码。