Access 2010 executing Word VBA: Page X of Y AutoText entry in Header.... would like to replace this code

Hi EE experts,

Am revisiting a post from last year with a different question because now want to run under Windows 7/Access 2010 as mdb.

The post from last year is here:

https://www.experts-exchange.com/questions/28461432/From-Access-using-word-vba-gettting-error-462.html?searchSuccess=true&searchTop10=true

The topic is about executing from Access a Word mail merge using an Excel file as the data source.

Below attached is a zip file with the:  1) .mdb
                                                                       2)  excel input file
                                                                      3)   word mail merge template file


Today the question is about Page X OF Y.

This autotext entry does not exist in our Word 2010 installation.
Therefore the code to place Page X of Y in the Word Header VBA is aborting with error, that this item is not found in the collection.

Truthfully, I google for VBA code and cut and paste alot.... so I have gaps in my knowledge.

I found this that I cold use to replace using Autotext entry.

http://www.java2s.com/Code/VBA-Excel-Access-Word/Word/CreatingPageXofYPageNumbers.htm

They have code to do page numbering instead of Auto text, am copying the code below:

Sub pageNumber()
    ActiveDocument.Sections(ActiveDocument.Sections.Count) _
        .Headers(wdHeaderFooterPrimary).Range.Select
    With Selection
        .Paragraphs(1).Alignment = wdAlignParagraphCenter
        .TypeText Text:="Page "
        .Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:= _
            "PAGE ", PreserveFormatting:=True
        .TypeText Text:=" of "
        .Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:= _
            "NUMPAGES ", PreserveFormatting:=True
    End With
End Sub



Can you please help me place this code in my Access module.

I tried, but getting error msg: Obect vaiable or with block variable not set.

Am uploading a zip file ... please un on Windows 7/Access 2010/Word 2010

1) mdb file

        I removed forms etc  from mdb to keep it simple.
        Please go to module:  500_word_mail_merge
        Please        execute:      sub_test
2) excel data file
3)word template file


The logic takes the whole merge file, and subdivides into smaller docs per each student (an EE  expert helped me with the subdividing logic in the past)

4) 3 sample student files that were subdivided from the big merge document:
       1) Thomas Jefferson
       2) Abraham Lincoln
      3) George Washington

5) An xp version of (4) where you see how would like the header to look like:

nothing on the first page
the each subsequent page to have in the header Page n of o        Re: Student's name

 If you can only get the logic to work if you do place on the first page header, too.... that would be fine.

** At this time I could not upload the zip file bec getting msg: The archive could not be scanned stream closed.

      The zip file from last year in the link listed at the top of this post could be used.

      This is the new code I am trying to add that's giving me an error.

         Set myRange = appWord.ActiveDocument.Sections(1).Headers(wdHeaderFooterPrimary).Range
'       With myRange
'            ' put page number in header
'                   appWord.NormalTemplate.AutoTextEntries("PAGE x of y").Insert _
'                   Where:=myRange, _
'                   RichText:=True
'                  .Move Unit:=wdstory, Count:=1
'            ' put student name in header
'                  .InsertAfter "          " & strHeaderText
'
'       End With
       
       

       With myRange
          With appWord.Selection
             'put page number in header
            .Paragraphs(1).Alignment = wdAlignParagraphCenter
            .TypeText Text:="Page: "

            .Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:= _
                "PAGE ", PreserveFormatting:=True

            .TypeText Text:=" of "

            .Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:= _
                "NUMPAGES ", PreserveFormatting:=True


             '     .Move Unit:=wdstory, Count:=1

           ' put student name in header
                  .InsertAfter "          " & strHeaderText
 
           End With
       End With

Thx so much for any help you can provide,
sandra