咔片PPT · AI自动生成演示文稿,模板丰富、排版精美 讯飞智文 · 一键生成PPT和Word,高效应对学习与办公

内容导航:


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


  1. 首先找到Word里的宏按钮

  2. 弹出宏查看窗口,起一个名字然后选择创建

  3. 在弹出的宏录制窗口内输入宏代码,然后保存,宏代码见下方。

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


宏代码如下:

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

Selection.TypeText Text:=”000″ & i&

Application.PrintOut 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

Selection.TypeText Text:=”00″ & i&

Application.PrintOut 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

Selection.TypeText Text:=”0″ & i&

Application.PrintOut 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

Selection.TypeText Text:=i

Application.PrintOut 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

Selection.TypeBackspace

Selection.TypeBackspace

Selection.TypeBackspace

Selection.TypeBackspace

Next

End Sub



二、Word如何才能自动编号设置


本视频演示机型:联想小新air14,适用系统:Windows10,软件版本:Word 2020;
打开所需的【Word文档】,选中要自动编号的内容,选中之后,点击【开始】菜单栏下方的【编号】,图标右侧的下角标,根据所需选择编号样式,即可完成Word自动编号设置;
此外还可单击【编号】右侧的下角标,选中最下方的【自定义编号】选项卡,点击菜单栏中的【多级编号】,选择编号形式之后,再选中右下方的【自定义】,进行自定义编号,编号完毕单击右下方的【确定】即可;
本视频就到这里,感谢观看。