在word中如何建立一个宏让页码打印一张加一个数

在word的工具-宏-宏....中新建名为 MyPrint 的宏命令，然后单击创建，把代码框中的内容全部清空后，将如下代码原样粘贴进来保存即可,然后运行该宏即可实现你的目的(注意：如果你以后打印时，不是默认打印3张，而是其他张数，你得再次打开宏命令对话框，选择MyPrint宏名，然后单击编辑，打开代码窗口，将For后面的数字3修改为你本次所希望的打印份数后保存即可。注意：本宏的适用条件是——该Word文档只有一页，且在执行该宏之前得必须先人工在页脚处插入页码不然打印出来的第一页是没有页码的但随后的就自动有页码了。）

Sub MyPrint()

For i = 1 To 3 '这里的3指的是你本次打印希望打印多少张，如果需要打印100张，将3改成100即可，其他不用动，依次类推。

ActiveDocument.PrintOut '向打印机发送打印内容和指令

waitTime = TimeSerial(Hour(Now()), Minute(Now()), Second(Now()) + 3) '获得本次打印指令发送的时刻加上延时秒数作为参照

'由于打印一份需要几秒钟时间，每发送一次打印指令，延时3秒，根据打印机速度可调节打印延时数，最多延时6秒，这里延时指定为3秒。

Do While Time <waitTime '空循环，延时未到继续延时的目的

'每打印一张延时3秒

Loop

'以下为打开Word的插入页码对话框和设置页码起始页的对话框对页码进行每打印一页自动将页码加1的设置 *** 作，但是由于采用了VBA来实现，这两个对话框是不显示出来的

With Selection.Sections(1).Headers(1).PageNumbers

.NumberStyle = wdPageNumberStyleArabic

.HeadingLevelForChapter = 0

.IncludeChapterNumber = False

.ChapterPageSeparator = wdSeparatorHyphen

.RestartNumberingAtSection = True

.StartingNumber = .StartingNumber + 1 '每打印一页，页码自动加1

End With

Selection.Sections(1).Footers(1).PageNumbers.Add PageNumberAlignment:= _

wdAlignPageNumberRight, FirstPage:=True

Next i

End Sub

我知道一种就是先打单页,再重放进去打反面的.第一步:启动Excel

2003(其他版本请仿照 *** 作)，执行“工具→宏→Visual

Basic编辑器”命令，进入Visual

Basic编辑状态

第二步:在右侧的“工程资源管理器”区域中，选中“VBAProject(PERNOSAL.XLS)”选项，执行“插入→模块”命令，插入一个新模块

小提示

“PERNOSAL.XLS”叫做“个人宏工作簿”，第一次使用宏功能时，需要进入下述 *** 作，添加“个人宏工作簿”:在Excel中，执行“工具→宏→录制新宏”命令，打开“录制新宏”对话框(如图2)，输入一个名称，然后选择将其“保存在”“个人宏工作簿”中，确定返回，随便做一下编辑 *** 作，然后按“停止录制”工具栏上的“停止录制”按钮，系统即可自动添加“个人宏工作簿”。

第三步:双击“模块1”进入代码输入区域，将下述代码输入其中:

Sub

dy()

On

Error

Resume

Next

x

=

ExecuteExcel4Macro("Get.Document(50)")

For

i

=

1

To

Int(x

/

2)

+

1

ActiveWindow.SelectedSheets.PrintOut

From:=2

*

i

-

1,

To:=2

*

i

-

1

Next

i

MsgBox

"请将打印出的纸张反向装入纸槽中",

vbOKOnly,

"打印另一面"

For

j

=

1

To

Int(x

/

2)

+

1

ActiveWindow.SelectedSheets.PrintOut

From:=2

*

j,

To:=2

*

j

Next

j

End

Sub

第四步:输入完成后，关闭Visual

Basic编辑窗口返回。

添加按钮

第一步:执行“工具→自定义”命令，打开“自定义”对话框

第二步:切换到“命令”标签下，在“类别”下面选中“宏”选项，然后将右侧“命令”下面的“自定义按钮”选项拖到工具栏合适位置上，添加一个按钮。

第三步:单击“更改所选内容”按钮，在随后展开的快捷菜单中，在“命名”右侧的方框中输入按钮名称(如“双面打印”，并选中“总是用文字”选项。

第四步:在不关闭“自定义”对话框的情况下，右击工具栏上刚才添加的“双面打印”按钮(参见图3)，在随后d出的快捷菜单中，选择“指定宏”选项，打开“指定宏”对话框(

第五步:选中上面编辑的宏，确定退出，再关闭“自定义”对话框返回Excel编辑状态。

双面打印

启动Excel，打开需要双面打印的工作簿文件，单击“双面打印”按钮，系统先将奇数页打印出来，然后d出如图5所示的提示框，将打印的纸张反向装入打印机的纸槽中，按下“确定”按钮，即可将偶数页打印到另一面上，达到双面打印的目的。

我就是这样做的,还蛮好的.

（1）创建一个新的工作薄，在其中添加代码。

（2）在“文件”菜单上单击“属性”。在“文件名属性”对话框中，单击“摘要信息”选项卡，然后在“标题”框中为加载宏指定一个您希望在“加载宏”对话框中出现的名称，在“备注”框中输入您希望当用户从“加载宏”对话框选择该加载宏时在“加载宏”对话框下方出现的说明信息。

（3）在“文件”菜单上单击“另存为”。在“另存为”对话框中，从“保存类型”框中选择“Microsoft Office word 加载宏（*.xla）”，然后再选择保存路径，并可在“文件名”框中修改文件名。

---