如何在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 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 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 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 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在打印时自动加上打印分数编号 这个具体怎么操作求赐...
点视图,选页眉和页脚,然后点下面这个图切换到页脚然后在这里面选你要的
【word】已经自动编号的文档如何自动生成目录
利用Word自动编号功能,先录入文字,每段以回车结束,选中所有文字,点击按钮栏中“编号”钮。
如果想调整文字与编号之间的距离,先选中所有文字,然后拖动标尺上的左对齐符号(黑色的L形符号)到合适的位置。
word自动编号格式三种方法:1、利用Word自动编号功能,可以先录入文字,每段以回车结束,然后选中所有文字,点击按钮栏中“编号”钮。
如果想调整文字与编号之间的距离,先选中所有文字,然后拖动标尺上的左对齐符号(黑色的L形符号)到合适的位置。
2、利用制表符,标尺左边那个黑色的L形符号就是左对齐制表符,先录入编号和文字,编号与文字之间加入一个制表符(比如输入1,再按“Tab”键),全部输完后全选,在标尺适当位置单击加入一个左对齐制表符就可以了。
调整编号与文字之间的距离方法同上,别忘了全选。
3、利用表格,先插入一个2列若干行的表格,第一列写编号,第二列写文字,这样绝对能够对齐,只是最后别忘了把表格设置成虚框。
怎么把word里表格里编号自动编号
p>这个叫制表符,打印的时候不出现的。
消除方法:打开word选项.hiphotos.baidu.com/zhidao/wh%3D600%2C800/sign=014c30a1ab345982c5dfed943cc41d95/8b13632762d0f703071e31090efa513d2797c5b3,在显示选项卡中把制表符取消即可.baidu://g.hiphotos.baidu.com/zhidao/wh%3D450%2C600/sign=46339d1137adcbef01617602999f02eb/8b13632762d0f703071e31090efa513d2797c5b3。
展开追问 追问 制表符我知道,前面的数字也是自己出现的,不知道怎么取消 回答 删了不就结,这个很复杂么? 有问题在万能的百度上搜一下就解决了,不用问。
office按钮”—“word选项”—“校对”——“自动更正选项”命令,在打开的“自动更正”对话框中,切换到”键入时自动套用格式“选项卡,取消“自动编号列表”的选项即可。
feixue1... 推荐于:2016-10-08 1 0 分享
word文档表格怎样自动编号
如果你是希望在WORD中每创建一个新表格时软件自动创建表格编号,可按下列步骤操作:(1)在创建表格时先设定软件:【插入】>【引用】>【题注】,(2)弹出对话框后,在【标签】后的列表框是中选【表格】,那【标签】上方的【题注】框中会出现自动编号样式。
如果希望不出现“表格”二字则在“题注不出现标签”前的方框中打“√”。
(3)点击对话框左下方的“自动插入题注”按钮,在新弹出的对话框中选择“Microsoft Word 表格”,“使用标签”选“表格”,“位置”选“项目上方”(或“项目下方”)。
(4)确定。
按上述步骤设置后,在WORD中每创建一个表格系统都为表格自动编号。
上述操作在Office 2003中测试正常。
如使用的是Office 2007可能有些小变化。
如何在Word中让合同编号在打印时自动按顺序生成
首先找到Word里的宏按钮弹出宏查看窗口,起一个名字然后选择创建在弹出的宏录制窗口内输入宏代码,然后保存,宏代码见下方。
把输入光标放在你想要添加打印份数编号的地方,然后运行宏,会弹出如下窗口,第一个窗口是输入打印份数,第二个窗口是输入起始数字 宏代码如下: 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) And (i = 100) And (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
转载请注明出处51数据库 » word 打印 自动编号