title: GetCrossReferenceItems in msword and VBA showing only limited content
body: <p>I want to make a special list of figures with use of VBA and here I am using the function </p>
  
  <pre><code>myFigures = ActiveDocument.GetCrossReferenceItems(Referencetype:="Figure")
  </code></pre>
  
  <p>In my word document there are 20 figures, but myFigures only contains the first 10 figures (see my code below.).</p>
  
  <p>I search the internet and found that others had the same problem, but I have not found any solutions.</p>
  
  <p>My word is 2003 version</p>
  
  <p>Please help me ....</p>
  
  <pre><code>Sub List()
  
  Dim i As Long
  
  Dim LowerValFig, UpperValFig As Integer
  
  Dim myTables, myFigures as  Variant
  
  If ActiveDocument.Bookmarks.Count &gt;= 1 Then
  
      myFigures = ActiveDocument.GetCrossReferenceItems(Referencetype:="Figure")
      ' Test size...
      LowerValFig = LBound(myFigures) 'Get the lower boundry number.
      UpperValFig = UBound(myFigures) 'Get the upper boundry number
      ' Do something ....
      For i = LBound(myFigures) To UBound(myFigures) ‘ should be 1…20, but is onlu 1…10
             'Do something ....
      Next i
  End If
  MsgBox ("Done ....")
  
  End Sub*
  </code></pre>