I'm a newbie in programming with Word (don't know much about Word in
general), though I'm pretty familiar with VBA in Excel and Access.  What I
am trying to do is illustrated by the following code, executed from a module
in Excel:

Dim rngFirms as Range          'These are Excel ranges
Dim rngFirmNo as Range
Dim wdApp as Word.Application
Dim wdSrc as Word.Document
Dim strPath as ThisWorkBook.Path
Dim strSrcFile as "Report.doc"
Dim i as Integer

Set wdApp = New Word.Application
wdApp.Options.UpdateLinksAtOpen = True
Application.Calculation = xlCalculationManual

Set rngFirms = Worksheets("2006").Range("A4:A114")    'List of firms on
which to produce reports
Set rngFirmNo = Worksheets("Tables").Range("A3")        'Set firm number for
report

For i = 1 to rngFirms.Rows.Count
   rngFirmNo = rngFirms.Cells(i , 1)
   Application.Calculate               'Populate tables and charts based on
firm no
   Set wdSrc = wdApp.Documents.Open(FileName:=strPath & "\Report.doc",
Visible:=False)
   Set wdSrc = wdSrc.SaveAs(strPath & "\Reports\Report No " & rngFirmNo)
   wdSrc.Close
Next i

'(Various cleanups here)

The Word document contains links to tables and charts in Excel; the Excel
values are reset on each iteration; the links in the Word document should
update each time it is opened.  The document can then be saved using the
number for the applicable firm.  And so on.

I tested this code with an old version of the spreadsheet and document (from
a similar past exercise).  It worked well.  Transferring the same code to
new setup, AFAICT set up the same way as the old, the code fails: the links
do not update; each document has the same data in it.

The help file tells me that "wdSrc.Fields.Update" will update all the fields
in the document.  So it does; now all of the correct data is there.  But the
tables have resized themselves, and are now too large to fit on the page, so
that part of the data is no longer visible.  This does not happen when I
update the links manually.

I also tried iterating through "wdSrc.InLineShapes(i).LinkFormat.Update",
but with exactly the same result as "wdSrc.Fields.Update" (and slower).

I have searched through the NG archives, but haven't found anything to help
(probably my deficiency).  I would be glad of any suggestions, or even
explanations (in the event of no available fix).  The prospect of doing this
exercise manually is not enticing.

TIA