Private Sub ComboBox1_Change()
Dim lngIndex As Long
Dim objTemplate As Template
Dim oBuildingBlock As BuildingBlock
  Set objTemplate = Templates(Environ("APPDATA") & "\Microsoft\Word\STARTUP\ReportMacros.dotm")
  ComboBox2.Clear
  For lngIndex = 1 To objTemplate.BuildingBlockEntries.Count
    Set oBuildingBlock = objTemplate.BuildingBlockEntries.Item(lngIndex)
    If oBuildingBlock.Type.Name = "AutoText" And oBuildingBlock.Category.Name = ComboBox1 Then
      With ComboBox2
        .AddItem
        .List(.ListCount - 1, 0) = oBuildingBlock.Name
        .List(.ListCount - 1, 1) = oBuildingBlock.Value
      End With
    End If
  Next lngIndex
  ComboBox2.Text = ComboBox2.List(0)
lbl_Exit:
  Exit Sub
End Sub