Sub AddFooterWithPageNumber()
    Dim section As section
    Dim footer As range
    
    ' Loop through each section in the document
    For Each section In ActiveDocument.Sections
        Set footer = section.Footers(wdHeaderFooterPrimary).range
        
        ' Clear existing content in the footer
        footer.Text = ""
        
        ' Set font properties
        With footer.Font
            .Name = "Times New Roman"
            .Size = 14
        End With


        Dim positionFromBottom As Double
        positionFromBottom = CentimetersToPoints(1)
        
        footer.Fields.Add range:=footer, Type:=wdFieldPage
        
        ' footer.Text = " - "  ' Uncomment this line if you want to add a separator
       
        
'         Update the footer
'        footer.Updates
    Next section
End Sub