Hi,
I read the link you sent and have tried different things to overcome the
problem. It just does not go away. The problem is that the actual document
shows it correctly and the one which VBA creates does not.

It shows Page 1 of 1, Page 2 of 1, Page 3 of 1.......so on until the last
page.

I am pasting the code for the footer part of the program:

'###########^^^^^^^^^^^######################
'Process the document footer

'go back to the top
Selection.HomeKey Unit:=wdStory

'get the footer and turn it into text
If ActiveWindow.View.SplitSpecial <> wdPaneNone Then
       ActiveWindow.Panes(2).Close
End If

If ActiveWindow.ActivePane.View.Type = wdNormalView Or ActiveWindow. _
       ActivePane.View.Type = wdOutlineView Then
       ActiveWindow.ActivePane.View.Type = wdPageView
End If

ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader

If Selection.HeaderFooter.IsHeader = True Then
       ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageFooter
Else
       ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader
End If
 
'if we aren't inside the footer table go until down a line until we are.
Do
   If Selection.Information(wdWithInTable) = False Then
       Selection.Delete Unit:=wdCharacter, Count:=1 'delete the extraneous
carriage return
       Selection.MoveDown Unit:=wdLine, Count:=1
   Else: Exit Do
   End If
Loop

' cut table from the footer

'^^^^%%%%%%^^^^^^^^^
ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageFooter
Selection.WholeStory
Selection.Cut
'^^^^%%%%%%^^^^^^^^^

'go back to the body of the document
ActiveWindow.ActivePane.View.SeekView = wdSeekMainDocument

'do each page by going to the page after it and moving back up to the bottom
of 'the page we're  going to process
If cntPages > 1 Then

   'get the number of pages in the document again
   PgNo = Selection.Information(wdActiveEndPageNumber)
   PgNo = PgNo + 1
 
   Do
       Selection.GoTo What:=wdGoToPage, Which:=wdGoToAbsolute, Count:=PgNo
       'go back up to the bottom of the previous page
       Selection.MoveUp Unit:=wdLine, Count:=1
       'preserve the font size that is in the table for the carriage returns
       With Selection.Font
          'Some code goes in here to preserve font size and attributes
       End With
     
       Selection.TypeParagraph
       Selection.Paste
       'update just in case
       PgNo = PgNo + 1
           
   Loop Until PgNo > cntPages
End If

'this is where one page documents will get the footer pasted in
Selection.EndKey Unit:=wdStory
Selection.TypeParagraph
Selection.Paste

'I'm at the bottom so select everything from here up, update the fields
(page numbers) and
'   unlink them
Selection.WholeStory
Selection.Fields.Update
Selection.Fields.Unlink

'##########^^^^^^^^^^^^^^^^####################

Can someone point out where I am  going wrong ??

Thanks a ton.

Sanket