insert pagenumber in table in footer

[Örjan Skoglösa]

Hi,

I have a document with a lot of sections and different footers.

In every footer is a table.

I want to insert a pagenumber field in a certain cell of the table.

When I run my code I get the error message that the object does not
support this method.

TIA
Örjan

----------

Sub test()
Dim mySec, myFooter, myField
For Each mySec In ActiveDocument.Sections
For Each myFooter In mySec.Footers
Set myField =
myFooter.Fields.Add(Range:=myFooter.Range.Tables(1).Cell(Row:=1,
Column:=1).Range, _
Type:=wdFieldPage)
Next
Next
End Sub

 

[Örjan Skoglösa]

Never mind.

I found out I have to select the cell and then collapse the selection
before inserting the field.

Sub test()
Dim mySec, myFooter, myField
For Each mySec In ActiveDocument.Sections
For Each myFooter In mySec.Footers
myFooter.Range.Tables(1).Cell(Row:=1, Column:=1).Range.Select
With Selection
.Collapse Direction:=wdCollapseStart
.Fields.Add Range:=Selection.Range, Type:=wdFieldPage
End With
Next
Next
End Sub

BR,
Örjan