关于word穿插合并的问题

lrsh1985

请教高手，如图，想将两个word合并，假设合并之前两个word分别为A和B，合并以后的word为C，想让C的P1=A的P1，C的P2=B的P1，C的P3=A的P2，C的P4=A的P2，……以此类推，这个应该如何操作？

lrsh1985

Sub 复制粘贴()
For x = 1 To 46
Windows("文档A.docx").Activate
i = ActiveDocument.BuiltInDocumentProperties(wdPropertyPages)
ActiveWindow.View.Type = wdPageView
ActiveDocument.Repaginate
Selection.GoTo What:=wdGoToPage, Which:=wdGoToNext, Name:=i
Selection.EndKey Unit:=wdStory, Extend:=wdExtend
Selection.Cut
Windows("合并.docx").Activate
Selection.GoTo What:=wdGoToPage, Which:=wdGoToNext, Name:=i * 2 + 1
Selection.PasteAndFormat (wdFormatOriginalFormatting)

Windows("文档B.docx").Activate
i = ActiveDocument.BuiltInDocumentProperties(wdPropertyPages)
ActiveWindow.View.Type = wdPageView
ActiveDocument.Repaginate
Selection.GoTo What:=wdGoToPage, Which:=wdGoToNext, Name:=i
Selection.EndKey Unit:=wdStory, Extend:=wdExtend
Selection.Cut
Windows("合并.docx").Activate
Selection.GoTo What:=wdGoToPage, Which:=wdGoToNext, Name:=i * 2
Selection.PasteAndFormat (wdFormatOriginalFormatting)

Next
End Sub

lrsh1985

1. Sub 复制粘贴()
   
2. For x = 1 To 46
   
3. Windows("文档A.docx").Activate
   
4. i = ActiveDocument.BuiltInDocumentProperties(wdPropertyPages)
   
5. ActiveWindow.View.Type = wdPageView
   
6. ActiveDocument.Repaginate
   
7. Selection.GoTo What:=wdGoToPage, Which:=wdGoToNext, Name:=i
   
8. Selection.EndKey Unit:=wdStory, Extend:=wdExtend
   
9. Selection.Cut
   
10. Windows("合并.docx").Activate
    
11. Selection.GoTo What:=wdGoToPage, Which:=wdGoToNext, Name:=i * 2 + 1
    
12. Selection.PasteAndFormat (wdFormatOriginalFormatting)
    
13. 
    
14. Windows("文档B.docx").Activate
    
15. i = ActiveDocument.BuiltInDocumentProperties(wdPropertyPages)
    
16. ActiveWindow.View.Type = wdPageView
    
17. ActiveDocument.Repaginate
    
18. Selection.GoTo What:=wdGoToPage, Which:=wdGoToNext, Name:=i
    
19. Selection.EndKey Unit:=wdStory, Extend:=wdExtend
    
20. Selection.Cut
    
21. Windows("合并.docx").Activate
    
22. Selection.GoTo What:=wdGoToPage, Which:=wdGoToNext, Name:=i * 2
    
23. Selection.PasteAndFormat (wdFormatOriginalFormatting)
    
24. 
    
25. Next
    
26. End Sub

复制代码