I have a document with a series of tables containing a photo in the upper left cell and a description including a auto-numbered paragraph in the upper right cell.

I have used this code to insert the list number

With ListGalleries(wdNumberGallery).ListTemplates(1).Li stLevels(1)

Select Case Trim(gCapType)
Case "Photo"
.NumberFormat = "Photo %1:"
PrevCaptionType = "Photo"
Case "Figure"
.NumberFormat = "Figure %1:"
PrevCaptionType = "Figure"
Case "Illustration"
.NumberFormat = "Illustration %1:"
PrevCaptionType = "Illustration"
Case "Scan"
.NumberFormat = "Scan %1:"
PrevCaptionType = "Scan"
Case "User Specified"
'NEED CODE HERE TO HANDLE SPECIAL CASE
End Select

.TrailingCharacter = wdTrailingNone


.NumberStyle = wdListNumberStyleArabic
.NumberPosition = InchesToPoints(0)
.Alignment = wdListLevelAlignLeft
.TextPosition = InchesToPoints(0.5)
.TabPosition = wdUndefined
.ResetOnHigher = 0
'.StartAt = 1
.Font.Bold = True
.LinkedStyle = ""
End With

Selection.Range.ListFormat.ApplyListTemplate _
ListTemplate:=ListGalleries(wdNumberGallery).ListT emplates(1), _
ContinuePreviousList:=True, _
ApplyTo:=wdListApplyToSelection, _
DefaultListBehavior:=wdWord10ListBehavior

'UPDATE THE CAPTION NUMBER
Selection.Range.Fields.Update


the lists have no trouble renumbering when I delete a table from the sequence, but when insert a new table with its associated data in many circumstances it does not update the field with the new numbering.

I have tried several methods to update the field including reselecting each cell with an expected change and applying Selection.Range.Fields.Update

I have also tried looping through the fields in the fields collection.

Neither approach updates all of the cases for inserting before or after the originally selected table and at the boundary conditions for the beginning and ending of the section. A section break is used when the paragraph label changes (ie. "Photo:" to "Figure:")

Any suggestions for a way to force the renumbering to happen reliably would be welcome.

Note that normally the built-in functionality of captions in Word use Seq fields and not list templates. So I'm not really confident that I understand what the purpose of your code is. So take the following suggestions as only recommendations - you may have other things going on that I am not taking into account.

Automatic numbering with the ListGalleries are NOT fields so updating a range of fields won't change those list numbers (but might update some cross-references to them). If you want to reset the list numbers then you should link a to style and then refresh the paragraph attributes of the selection.

I note when you ApplyListTemplate you are applying it to only the Selection so there is a flag that says this won't apply to non-selected paragraphs that used the same ListTemplate.

FWIW, your Select Case section seems like overkill unless the "User Specified" option is going to be treated differently. You could simplify your code along these lines.

__________________
Andrew Lockton
Chrysalis Design, Melbourne Australia