How to Convert the footers to normal text in same page

[Omer]

I have tried the below code for inserting footer as <a id="page_1"/>...n


Sub addfootaspage()

Dim k As Integer

For k = 0 To ActiveDocument.Sections.Count
k = k + 1
With ActiveDocument.Sections(k)
.Footers(wdHeaderFooterPrimary).Range.Text = "<a id=""page_" & k & "> "
End With
Next k
End Sub

But inserted as <a id="page_1"/> to all the page, it's not counting the values.

[Omer]

I am not getting any errors all, for some reason page # is not changing