[求助]中英文文件怎么和成一个（段与段对应）

sylun

将文档按章节拆分处理后再合并成整篇材料不行吗

wuzhuo007ren

可每章也很大啊，那样也很费时啊，来不急了！！！

守柔

QUOTE:

以下是引用wuzhuo007ren在2007-1-3 16:08:03的发言：

可每章也很大啊，那样也很费时啊，来不急了！！！

打开“中文.doc"和“英文.doc”文档，把下列代码粘贴于“中文.doc”的ThisDocument代码窗口中，运行即可：

Sub MergeChinese_English()
    Dim c_Doc As Document, e_Doc As Document
    Dim i As Paragraph, n As Integer, myRange As Range
    Dim thatRange As Range, newRange As Range
    On Error GoTo ErrHandle
    Application.ScreenUpdating = False
    Set c_Doc = Documents("中文.doc")
    Set e_Doc = Documents("英文.doc")
    Set newRange = c_Doc.Content
GN:     For Each i In newRange.Paragraphs
        n = n + 1
        Set myRange = i.Range
        Set thatRange = e_Doc.Content.Paragraphs(n).Range
        With myRange
            If VBA.InStr(i.Style, "标题 3") <> 0 Then
                .SetRange .End - 1, .End - 1
                thatRange.SetRange thatRange.Start, thatRange.End - 1
                .InsertAfter thatRange.Text
            Else
                .InsertAfter thatRange
                .Paragraphs(2).Style = .Paragraphs(1).Style
                .Paragraphs(2).Range.ListFormat.RemoveNumbers
                .Paragraphs(2).LeftIndent = .Paragraphs(1).LeftIndent
                newRange.SetRange myRange.End, c_Doc.Content.End - 1
                GoTo GN
            End If
        End With
    Next
ErrHandle:
    Application.ScreenUpdating = True
End Sub

附代码：

 

6tPruc4v.rar (9.46 KB, 下载次数: 17)

2007-1-3 17:14 上传

点击文件名下载附件

[此贴子已经被作者于2007-1-3 17:14:42编辑过]

wuzhuo007ren

对不起，没找到ThisDocument代码窗口啊，我是个菜鸟，麻烦告诉详细点，谢谢！

wuzhuo007ren

代码会用了，非常感谢大家。我已经弄明白了。

chenai

都交了打嘛.才看倒.我的方法是把中文转换成表格,再把英文转换成表格.把两个表格合成一个.转换成文字就对了.要求是中文跟英文的段落标记一定一一对应.

wuzhuo007ren

但这样好像有些格式不能保留啊，另外，怎么改守柔的那个程序，实现所有的标题都联再一起呢，也就是   If VBA.InStr(i.Style, "标题 3") <> 0 Then
                .SetRange .End - 1, .End - 1
                thatRange.SetRange thatRange.Start, thatRange.End - 1
                .InsertAfter thatRange.Text
所有的标题都适用这段代码，不仅仅是标题3，谢谢，