Dim oRng As Word.Range
  Select Case ContentControl.Title
   
    Case "Fruit"
    
      Select Case ContentControl.Range.Text
        Case "Apple"
          InsertBBEinBM "Fruit", "Apple"
        Case "Orange"
          InsertBBEinBM "Fruit", "Orange"
        Case "Pear"
          InsertBBEinBM "Fruit", "Pear"
        Case Else
          InsertBBEinBM "Fruit", " "
      End Select
    
    
  End Select
lbl_Exit:
  Exit Sub
End Sub


Sub InsertBBEinBM(ByRef pBMTarget As String, pBBEName As String)
Dim oRng As Word.Range
  With ActiveDocument
    Set oRng = .Bookmarks(pBMTarget).Range
    If Not pBBEName = " " Then
      Set oRng = .AttachedTemplate.BuildingBlockTypes(wdTypeAutoText).Categories("Fruit") _
                 .BuildingBlocks(pBBEName).Insert(oRng, True)
    Else
      oRng.Text = ""
    End If
    .Bookmarks.Add pBMTarget, oRng
  End With
lbl_Exit:
  Exit Sub
End Sub