如何在word文档打印时自动编号？

首先找到Word里的宏按钮

d出宏查看窗口，起一个名字然后选择创建

在d出的宏录制窗口内输入宏代码，然后保存，宏代码见下方。

把输入光标放在你想要添加打印份数编号的地方，然后运行宏，会d出如下窗口，第一个窗口是输入打印份数，第二个窗口是输入起始数字

    宏代码如下：

Sub PrintCopies()

Macro1 Macro

Dim i As Long

Dim lngStart

Dim lngCount

lngCount = InputBox(“Please enter the number of copies you want to print”, “Please enter the number of copies you want to print”, 1)

If lngCount = “” Then

Exit Sub

End If

lngStart = InputBox(“Enter the starting number you want to print”, “Enter the starting number you want to print”, 1)

If lngStart = “” Then

Exit Sub

End If

For i = lngStart To lngCount

If i < 10 Then

SelectionTypeText Text:=”000″ & i&

ApplicationPrintOut FileName:=”", Range:=wdPrintAllDocument, Item:= _

wdPrintDocumentContent, Copies:=1, Pages:=”", PageType:=wdPrintAllPages, _

ManualDuplexPrint:=False, Collate:=True, Background:=True, PrintToFile:= _

False, PrintZoomColumn:=0, PrintZoomRow:=0, PrintZoomPaperWidth:=0, _

PrintZoomPaperHeight:=0

End If

If (i >= 10) And (i < 100) Then

SelectionTypeText Text:=”00″ & i&

ApplicationPrintOut FileName:=”", Range:=wdPrintAllDocument, Item:= _

wdPrintDocumentContent, Copies:=1, Pages:=”", PageType:=wdPrintAllPages, _

ManualDuplexPrint:=False, Collate:=True, Background:=True, PrintToFile:= _

False, PrintZoomColumn:=0, PrintZoomRow:=0, PrintZoomPaperWidth:=0, _

PrintZoomPaperHeight:=0

End If

If (i >= 100) And (i < 1000) Then

SelectionTypeText Text:=”0″ & i&

ApplicationPrintOut FileName:=”", Range:=wdPrintAllDocument, Item:= _

wdPrintDocumentContent, Copies:=1, Pages:=”", PageType:=wdPrintAllPages, _

ManualDuplexPrint:=False, Collate:=True, Background:=True, PrintToFile:= _

False, PrintZoomColumn:=0, PrintZoomRow:=0, PrintZoomPaperWidth:=0, _

PrintZoomPaperHeight:=0

End If

If (i >= 1000) And (i < 10000) Then

SelectionTypeText Text:=i

ApplicationPrintOut FileName:=”", Range:=wdPrintAllDocument, Item:= _

wdPrintDocumentContent, Copies:=1, Pages:=”", PageType:=wdPrintAllPages, _

ManualDuplexPrint:=False, Collate:=True, Background:=True, PrintToFile:= _

False, PrintZoomColumn:=0, PrintZoomRow:=0, PrintZoomPaperWidth:=0, _

PrintZoomPaperHeight:=0

End If

SelectionTypeBackspace

SelectionTypeBackspace

SelectionTypeBackspace

SelectionTypeBackspace

Next

End Sub

1、首先将五张打印纸放置于打印机上。
2、进行打印排序。
3、先进行单面打印，将五张打印纸按顺序打印上前五页内容。
4、将纸张送至双面打印单元内，在其内部完成一次翻转重新送回进纸通道以完成另一面的打印。

房间编号的方法：
1、格式：楼层号+房号。
2、楼层号编法：按规划报建图的楼层号，地上层的层数最大取十位数，用自然数顺号编写。地下层的层数取个位数，并在层数前加B(B代表地下层)，即B1、B2、B3按顺号编写。
3、房号编法：直排布置的商品房由平面图的左边向右边按顺号编号。单元布局的商品房由各单元左下角开始按顺时针顺号编号。
4、复式套间单元号的编法：每套复式以其主入口所在层编一个单元号。

---