word中如何进行相同内容一百页的复制

Question

我在论坛中看到如下答案：
“具体的方法如下：打开只有一页的word文件，先通过编辑全选，复制所有内容然后，点 工具 菜单，选 宏 ，选录制新宏。在出来那个宏录制的按钮后：点 插入 菜单 ，选 分页符 ，然后粘贴刚才复制的内容到新的页面。并点击 停止录制按钮，完成宏的录制接着设置宏的运行次数：点 工具 菜单，选 宏 ，再选 宏，选中刚才录制的宏，点 编辑。在代码的上面添加for i=1 to 98 ，在代码的后面添加 next i，然后关闭编辑，运行 宏。你会看到，word会自动生成98页和前两页一页的内容 。如果你只是打印，没特殊要求，打印的时候，选择打印100份即可 ”
我操作到“在代码的上面添加for i=1 to 98 ，在代码的后面添加 next i，然后关闭编辑，”这里就不会了，因为我不知道是什么意思，代码是哪里的，最好有图解！谢谢。我是2003版本的word!

Answer 1

word中进行相同内容一百页的复制的具体步骤如下：

我们需要准备的材料分别是：电脑、Word文档。

1、首先我们打开需要编辑的Word文档，之后点击打开视图中的“宏”。

2、然后我们在弹出来的窗口中点击“宏名”，输入想要设置的名字，点击创建，之后输入：

Sub 复制100()

Selection.copy

Selection.PasteAndFormat (wdFormatOriginalFormatting)

For i = 1 To 99

Selection.InsertBreak Type:=wdPageBreak

Selection.PasteAndFormat (wdFormatOriginalFormatting)

Next i

End Sub，之后回车确定

3、然后我们在弹出来的窗口中全选需要复制的内容，之后点击打开视图中的“宏”，点击运行即可。

Answer 2

1、首先，在打开要复制的Word文档，点击顶部菜单工具中的视图，再点击右侧宏下面的查看宏。

2、然后，在弹出的宏的窗口中输入复制100，再点击创建的按钮。

3、然后，在新的窗口中输入下面的代码：

Sub 复制100()

Selection.copy

Selection.PasteAndFormat (wdFormatOriginalFormatting)

For i = 1 To 99

Selection.InsertBreak Type:=wdPageBreak

Selection.PasteAndFormat (wdFormatOriginalFormatting)

Next i

End Sub

4、之后，关闭步骤3中的新窗口，返回到Word的编辑主界面全选第一页的内容，再点击宏下面的查看宏。

5、如图所示，在弹出的查看宏的窗口选中刚刚创建成功的复制100，再点击右侧的运行按钮。

6、最后，等运行完后就可以看到word中成功的进行了相同内容一百页的复制。

本回答被网友采纳

Answer 3

　　word2010操作步骤如下：

　　1、打开word，编辑第一页；

　　2、点击视图选项卡，宏按钮；

　　3、输入宏名：复制100，点击创建；

　　4、vbe窗口中输入以下代码：

　　Sub 复制100()

　　Selection.copy

　　Selection.PasteAndFormat (wdFormatOriginalFormatting)

　　For i = 1 To 99

　　Selection.InsertBreak Type:=wdPageBreak

　　Selection.PasteAndFormat (wdFormatOriginalFormatting)

　　Next i

　　End Sub

　　5、回到word窗口，ctrl+a全选第一页，点击视图选项卡宏按钮，弹出对话框选中复制100，点击运行；

　　6、效果如下图：

　　

Answer 4

还兄弟 我也是要同一个页面的内容复制500多页。。。看到你这个以后我在去找了一下结果无意中发现了这个：这是你写的《“具体的方法如下：打开只有一页的word文件，先通过编辑全选，复制所有内容然后，点 工具 菜单，选 宏 ，选录制新宏。在出来那个宏录制的按钮后：点 插入 菜单 ，选 分页符 ，然后粘贴刚才复制的内容到新的页面》到这个步骤的时候你应该像我一样只粘贴了一次，我发现 （重点开始）粘贴的时候不要用 编辑---粘贴 直接用 ctrl+v 按住不要松手 （重点结束）会有不断新页面出现并且跟我原有的页面一样（速度灰常快500多页不到10秒就ok）然后关掉 宏 保存就好了 不会再交流本回答被提问者采纳

Answer 5

1、打开word文档，将需要复制的内容编辑在文本编辑处。

2、在页面右上角，点击“视图”，进入视图的操作页面。

3、在视图页面中，点击右上角“宏”。

4、在弹出的菜单中，输入“复制一百”。点击右下角“创建”按钮。

5、在代码页面中，输入以下的运作代码：

Sub 复制100()

Selection.copy

Selection.PasteAndFormat (wdFormatOriginalFormatting)

For i = 1 To 99

Selection.InsertBreak Type:=wdPageBreak

Selection.PasteAndFormat (wdFormatOriginalFormatting)

Next i

End Sub

6、回到word窗口，ctrl+a全选第一页，点击视图选项卡宏按钮，弹出对话框选中复制100，点击运行。

7、运行结束后便成功复制了100页的内容。

本回答被网友采纳