代码制作试卷（十）——设置页码及其样式.doc

试卷制作（十）设置试卷页码格式，因为试卷一般分成两栏。在每栏下面添加页码，同时在页码前面写上学校等信息。这样看起来更具规范。=Sub 设置页码()设置分栏页码与格式代码 Dim myRange As Range, myBK As Bookmark, myStyle As Style Dim myString As String, myTable As Table, myCell As Cell, Lenth As Byte myString = VBA.InputBox(prompt:=请输入你要添加的文字, Title:=添加页码文字, Default:=杨小题库试卷 ) Lenth = Len(CStr(myString) 在页脚中插入表格 Set myRange = ActiveDocument.Sections(1).Footers(wdHeaderFooterPrimary).Range Set myTable = myRange.Tables.Add(Range:=myRange, numrows:=1, NumColumns:=2) 设置第1个单元格的页码(第1栏) Set myCell = myTable.Cell(1, 1) Set myRange = myCell.Range myRange.InsertAfter myString & 第=PAGE*2-1页(共=NUMPAGES*2页) myRange.SetRange myRange.Start + Lenth + 10, myRange.Start + Lenth + 11 Set myBK = myRange.Bookmarks.Add(Name:=myBK, Range:=myRange) Set myRange = myCell.Range myRange.SetRange myRange.Start + Lenth + 14, myRange.Start + Lenth + 22 myRange.Fields.Add myRange, wdFieldEmpty, , False Set myRange = myCell.Range myRange.SetRange myRange.Start + Lenth + 13, myRange.End - 3 myRange.Fields.Add myRange, wdFieldEmpty, , False Set myRange = myCell.Range myRange.SetRange myRange.Start + Lenth + 2, myRange.Start + Lenth + 6 myRange.Fields.Add myRange, wdFieldEmpty, , False Set myRange = myCell.Range myRange.SetRange myRange.Start + Lenth + 1, myBK.Start myRange.Fields.Add myRange, wdFieldEmpty, , False 设置第2个单元格的页码(第2栏) Set myCell = myTable.Cell(1, 2) Set myRange = myCell.Range myRange.InsertAfter myString & 第=PAGE*2页(共=NUMPAGES*2页) myRange.SetRange myRange.Start + Lenth + 8, myRange.Start + Lenth + 9 Set myBK = myRange.Bookmarks.Add(Name:=myBK, Range:=myRange) Set myRange = myCell.Range myRange.SetRange myRange.End - 5, myRange.End - 13 myRange.Fields.Add myRange, wdFieldEmpty, , False Set myRange = myCell.Range myRange.SetRange myBK.End + 2, myRange.End - 3 myRange.Fields.Add myRange, wdFieldEmpty, , False Set myRange = myCell.Range myRange.SetRange myRange.Start + Lenth + 2, myRange.Start + Lenth + 6 myRange.Fields.Add myRange, wdFieldEmpty, , False Set myRange = myCell.Range myRange.SetRange myRange.Start + Lenth + 1, myBK.Start myRange.Fields.Add myRange, wdFieldEmpty, , False myBK.Delete 设置表格格式 With myTable.Range .Fields.Update .ParagraphFormat.Alignment = wdAlignParagraphCenter .Cells.VerticalAlignment = wdCellAlignVerticalCenter .Font.Size = 10 .Font.Name = 华文细黑 End With With ActiveDocument .ActiveWindow.View.TableGridlines = False 隐藏虚框 Set myStyle = .Styles(页眉) 修改页眉样式 myStyle.ParagraphFormat.Bo