如何用word制作复制100次的宏?

Question

如题所述

Answer 1

　　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、效果如下图：