困扰了我好长时间的问题，请教大家怎么解决

在word2010中，建立长篇文档，怎么插入页面进度条？在outlook中可以用VBA的方式解决
Sub AddProgressBar()
    On Error Resume Next
        With ActivePresentation
              For X = 2 To .Slides.Count - 1 '第一页和最后一页不加
              .Slides(X).Shapes("PB").Delete
              Set s = .Slides(X).Shapes.AddShape(msoShapeRectangle, _
              0, .PageSetup.SlideHeight - 3, _
              X * .PageSetup.SlideWidth / .Slides.Count, 3) '条高度
              s.Fill.ForeColor.RGB = RGB(246, 202, 5) '设置颜色
              s.Name = "PB"
              Next X:
        End With
End Sub
在word中怎么实现，也想显示这种页面进度条

2010没用过，不知说的对不对。  进度条可以自己做也可以用专门的进度条控件，当然用代码也可实现