how to add page index word vba
Sub Demo()
Dim i As Long, Rng As Range, Shp As Shape
With ActiveDocument
For i = 1 To .ComputeStatistics(wdStatisticPages)
Set Rng = .GoTo(What:=wdGoToPage, Name:=i)
Set Rng = Rng.GoTo(What:=wdGoToBookmark, Name:="\page")
Rng.Collapse wdCollapseStart
Set Shp = .Shapes.AddTextbox(Orientation:=msoTextOrientationHorizontal, _
Left:=0, Top:=0, Width:=180, Height:=60, Anchor:=Rng)
With Shp
.RelativeHorizontalPosition = wdRelativeHorizontalPositionMargin
.Left = wdShapeLeft
.RelativeVerticalPosition = wdRelativeVerticalPositionMargin
.Top = wdShapeTop
.Fill.Visible = False
With .TextFrame.TextRange
.Font.Bold = True
.Font.ColorIndex = wdBlue
.Text = "Ref. No.: T" & vbCr & "Signature " & Format(Now, "DDDD, D MMM YYYY")
Set Rng = .Paragraphs.First.Range
With Rng
.Font.ColorIndex = wdRed
.End = .End - 1
.Collapse wdCollapseEnd
End With
.Fields.Add Range:=Rng, Type:=wdFieldEmpty, Text:="PAGE \# 000", PreserveFormatting:=False
End With
End With
Next
End With
End Sub