word中有分页符，怎么设置连续的页码？

1、打开word文档，在“页面布局”选项卡上，找到分隔符旁边的下拉三角，可以看到有两种类型分页符和分节符；

2、查看分节符，在“视图”选项卡的“文档视图”组当中，选择“普通视图”；

3、将鼠标放到第一页，在“插入”选项卡的“页眉页脚”组中选择“页码”，接着选择在页面顶端插入；

4、将鼠标移动到第四页，再次找到页码选项，在下拉三角选项当中选择“设置页码格式”即可。

5、d出“页码格式”窗口，在页码格式选项中，不要勾选“续前节”，选择起始页码即可。

Sub 分页()

For i = 61 To 200 Step 60 ' [Step 60]的意思就是60行就执行一次分页

ActiveSheet.HPageBreaks.Add Before:=Cells(i, 1)

Next

End Sub

========================

还有，你可以访问我百度空间，我的一个工个或许可以帮你

批量套打报表助手——一键完成工资条、成绩单

http://hi.baidu.com/yes_no_ok/blog/item/bac119da62fc68d0b6fd482c.html

.net的自己的控件就可以了，不用自己写

asp的话要自己写：

<%

MMaxPerPage=16

rs.PageSize=MMaxPerPage

if trim(request("Page"))<>"" then

CurrentPage=CInt(request("Page"))

if CurrentPage>rs.PageCount then

CurrentPage=rs.PageCount

end if

else

CurrentPage=1

end if

'if rs.EOF then

' Response.Write "<p align='center'>ERROR!<BR>No record found!</p>"

'else

ttotalPut=rs.RecordCount

if CurrentPage<>1 then

if (CurrentPage-1)*MMaxPerPage<ttotalPut then

rs.Move(CurrentPage-1)*MMaxPerPage

bookmark=rs.Bookmark

end if

end if

'end if

if (ttotalPut mod MMaxPerPage)=0 then

mm=ttotalPut\MMaxPerPage

else

mm=ttotalPut\MMaxPerPage+1

end if

if (ttotalPut mod (MMaxPerPage*10))=0 then

nn=ttotalPut\(MMaxPerPage*10)

else

nn=ttotalPut\(MMaxPerPage*10)+1

end if

%>

<%

k=0

for y=(page-1)*16+1 to (page-1)*16+16

if not rs.EOF then

if (k mod 2)=0 then

%>

if (CurrentPage mod 10)=0 then

kk=CurrentPage\10-1

else

kk=CurrentPage\10

end if

代码不是很规范，你可以大概参造下

---