word打印编号增加

第一步

首先找到Word里的宏按钮，如图

然后，会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

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

第三步

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

导入

你下载pages之后 先在电脑上安装itunes 数据线连接电脑和ipad 打开itunes 应用程序当中 你能看见 pages应用 点击添加 就可以添加文档 之后再点同步 添加之后在ipad中打开pages 左上角有个小加号 点开 有个拷贝自itunes 点一下就行

导出

用数据线连接电脑和ipad 电脑上打开你的itunes 之后在ipad上打开pages 点击打开你编辑完文档 停留在编辑页面 右上角有个问号 问号左边那个图标 点一下 你会看见有个发送副本的选项 点一下 你会看见很多方式 你选择最下边的itunes 就行了 之后打开电脑上itunes 应用文档 和你添加文档的同一位置 你会看见你编辑的文档 选择 点击保存就行

---