试卷制作（十） 设置试卷页码格式，因为试卷一般分成两栏。在每栏下面添加页码，同时在页码前面写上学校等信息。这样看起来更具规范。 '======================================================================================================================== '======================================================================================================================== 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 1 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.Borders(wdBorderBottom).LineStyle = wdLineStyleNone myStyle.AutomaticallyUpdate = True End With End Sub '======================================================================================================================== '======================================================================================================================== 仁寿县黑龙滩镇杨柳小学校 唐希胜 2015-10-29 2 本文来源：https://www.wddqw.com/doc/ab2bb98dfbb069dc5022aaea998fcc22bcd143ed.html