The table that I am building is a revision list, with each page number listed
in a cell, and the revision letter of that page in the adjacent cell. Since
my first posting, I have developed a procedure that accomplishes what I was
trying to do, by placing a bookmark at the start of a page, then placing a
cross reference to the bookmark in the appropriate table cell. It gives me
the proper page number format, but it is not working as intended. When it
reaches the bottom of the table, it is supposed to return to the first blank
cell, which is row #2, two columns to the right. For some reason, the
InsertCrossReference method overwrites the data in the first column. The
InsertAfter command on the next line puts its argument in the proper cell. I
cannot determine why this is occurring. The code is shown below.

I would appreciate any suggestions you might have.

Goody
**************************
Sub PopulateRevList()
'
' Macro written 11/03/2006 by ray.dale
' It lists all of the pages in a document in the revision list table, along
with "-" for each page.
'
   Dim tblRevList As Table
   Dim columnstart As Integer, rowstart As Integer, irowcount As Integer,
icolcount As Integer
   Dim irow As Long, icolumn As Long
   Set tblRevList = ActiveDocument.Tables(2)
   icolumn = 1
   irow = 2
   irowcount = tblRevList.Rows.Count - 1
   icolcount = tblRevList.Columns.Count
   Selection.GoTo What:=wdGoToPage, Which:=wdGoToFirst, Count:=1, Name:=""
' Move cursor to start of document.
   
' Move through the document page by page
   For Each ipage In ActiveDocument.ActiveWindow.ActivePane.Pages
       With ActiveDocument.Bookmarks
           .Add Range:=Selection.Range, Name:="here"
           .DefaultSorting = wdSortByName
           .ShowHidden = False
       End With    ' Set bookmark for reference.
       Selection.GoTo What:=wdGoToTable, Which:=wdGoToFirst, Count:=2,
Name:=""
' Move to Page List table.
       MsgBox "The row number is " & irow & ", and the column number is " &
icolumn
       tblRevList.Cell(irow, icolumn).Range.InsertCrossReference
ReferenceType:=wdRefTypeBookmark, ReferenceKind:= _
           wdPageNumber, ReferenceItem:="here", InsertAsHyperlink:=False, _
           IncludePosition:=False, SeparateNumbers:=False,
SeparatorString:=" "
' Move to next page number cell and insert current page number of bookmark.

       tblRevList.Cell(irow, icolumn + 1).Range.InsertAfter "-"  ' Enter
hyphen in adjacent cell.
       Selection.GoTo What:=wdGoToBookmark, Name:="here"   ' Return to
bookmark location.

       ActiveDocument.Bookmarks("here").Delete ' Clear bookmark
       Application.Browser.Target = wdBrowsePage   ' Change to browse by page
       Application.Browser.Next    ' Move to top of next page
       If irow = irowcount + 1 Then    ' Is cell at the bottom of the table?
           icolumn = icolumn + 2   ' If so, move two columns to the right
           irow = 2                '  and back to the top of the table.
       Else
           irow = irow + 1         ' Otherwise, move to next row
       End If
   Next
   tblRevList.Range.Fields.Unlink   ' Unlink cross-reference fields in table.
   Selection.GoTo What:=wdGoToTable, Which:=wdGoToFirst, Count:=2, Name:=""
  ' Return to start of Revision List table
End Sub
**********************