I am developing a series of templates for my company for faxes,
letters, quotation requests, call reports, etc.  Since all of these
documents need to share a somewhat dynamic list of vendors, I used the
information from Doug Robbins' reply to Mary Henderson's July 2002 post
entitled "Drop down lists" to create a separate table of information
with which to populate my templates.  This way I could change the list
and have all the templates reflect the new information.

I have developed the userform and the template.  I am using bookmarked
fields in my Word template rather than just bookmarks.  Here is the
problem:

Without any breakpoints toggled on in VBA, I get a Run-time error 4198
in my application.  However, when I turn on a breakpoint in VBA and
simply resume program execution following the break, the application
runs perfectly.

I have confirmed this problem on a machine running Word 2003 SP1 as
well as a machine running Word 2002 SP3.

Here is my code:

Private Sub Cmdclose_Click()
   Unload Me
End Sub

Private Sub ComboBox1_Change()
   ActiveDocument.FormFields("PrinName").Result = ComboBox1.Value
End Sub

Private Sub UserForm_Initialize()
   Dim sourcedoc As Document, i As Integer, j As Integer, myitem As
Range, m As Long, n As Long
   Application.ScreenUpdating = True
   ' Open the file containing the ISI Principal List
   ' Modify the path in the following line so that it matches where
you saved ISI Principal List.doc
   Set sourcedoc =
Documents.Open(FileName:="C:\Hold\WordTests\Principals.doc")
   ' Get the number of Principals = number of rows in the table ISI
Principal List
   ' less one, assuming that the first row is a header row
   i = sourcedoc.Tables(1).Rows.Count - 1
   ' Get the number of columns in the table ISI Principals List
   j = sourcedoc.Tables(1).Columns.Count
   ' Set the number of columns in the Listbox to match
   ' the number of columns in the table ISI Principals List
   ComboBox1.ColumnCount = j
   ' Define an array to be loaded with the Principal data
   Dim MyArray() As Variant
   'Load client data into MyArray
   ReDim MyArray(i, j)
   For n = 0 To j - 1
       For m = 0 To i - 1
           Set myitem = sourcedoc.Tables(1).Cell(m + 2, n + 1).Range
           myitem.End = myitem.End - 1
           MyArray(m, n) = myitem.Text
       Next m
   Next n
   ' Load data into ComboBox1
   ComboBox1.List() = MyArray
   ' Close the file containing the client details
   sourcedoc.Close SaveChanges:=wdDoNotSaveChanges
End Sub