vba怎样快速将第一页复制并粘贴到同一个文档中

是玩都不精

附件中的样式一是原稿，只有一页。现在需将第一页全部内容复制（含表格），并自动生成任意页数（如3页），将复制的内容粘贴到新生成的页面中，且版面不乱。结果如样式二。要求用vba。第一次在本板块发帖，请大侠相助。在此先谢过。

413191246se

1. Sub 复制第一页()
   
2.     Dim x As String, y As Long
   
3.     x = InputBox("请输入要复制第一页的份数！", "复制第一页", "3")
   
4.     If x = "" Then Exit Sub
   
5.     If x <= 0 Then End
   
6.     ActiveDocument.Content.Copy
   
7.     Do
   
8.         Selection.EndKey Unit:=wdStory
   
9.         Selection.InsertBreak Type:=wdPageBreak
   
10.         Selection.Paste
    
11.         y = y + 1
    
12.     Loop Until y = x
    
13. End Sub

复制代码

duquancai

你把表格设置成环绕方式，想干嘛呢？呵呵呵

是玩都不精

没想到这么快就得到了回复，且代码运行正确。万分感谢。美中不足的是运行代码后，每页后都多了一页空白页。请问二楼：能否不生成空白页？若困难，能否在生成空白页后再用代码删除？

duquancai

是玩都不精 发表于 2016-12-3 23:27
没想到这么快就得到了回复，且代码运行正确。万分感谢。美中不足的是运行代码后，每页后都多了一页空白页。 ...

在二楼老师的代码 改了一下，你测试一下：

1. Sub 复制模板()
   
2.     Dim x$, y%
   
3.     x = InputBox("请输入要复制第一页的份数！", "复制第一页", "3")
   
4.     If x = "" Then Exit Sub
   
5.     If x <= 0 Then End
   
6.     With ActiveDocument.Content
   
7.         .SetRange .Start, .End - 1: .Copy
   
8.         Do
   
9.             .Collapse 0
   
10.             .InsertBreak Type:=wdPageBreak: .Paste
    
11.             y = y + 1
    
12.         Loop Until y = x
    
13.         .Collapse 0: .Delete
    
14.     End With
    
15. End Sub

复制代码

413191246se

杜先生 代码正确！请楼主运行后自己清除剪贴板，输入份数时要输入正整数。