problemas con vba y word (Hector Miguel?)

Hola! les cuento un poco mi problema. Debo ingresar un textbox o una
etiqueta con un valor del tipo '00000001' que se debe ir incrementando de
página en página pero como dicho valor debe estar dentro del documento
necesito hacerlo mediante una etiqueta o un cuadro de texto. El problema
que
tengo es que no encuentro la forma de poder agregarlo a otra hoja que no
sea
la primera, me pueden ayudar por favor? Les paso el código que he hecho
hasta ahora (que agrega el cuadro de texto en la primera página)
Gracias por todo,

Alejandro

Sub Macro1 ()

Dim docNew as document
Dim newtextbox as shape


set docNew = ThisDocument
set newtextbox > docNew.Shapes.AddTextbox(Orientation:=msoTextOrientationHorizontal,
Left:@0, Top:P, Width:‰, Height:))
newtextbox.select
with selection.shaperange
.fill.visible = msofalse
.fill.solid
.fill.transparency = 0#
.line.weight = 0.75
.line.dashstyle = msoLineSingle
.line.transparency = 0#
.line.visible = msoFalse
end with
selection.typetext text:="000000001"

End Sub