Private Sub Document_ContentControlOnExit(ByVal CC As ContentControl, Cancel As Boolean)
Dim BmkNm As String, BmkRng As Range, Tbl As Table

With ActiveDocument
  If .Bookmarks.Exists("Text") Then
    Set BmkRng = .Bookmarks("Text").Range
    With BmkRng
      Select Case CC.Tag
      Case Is = "Tagname"
      Select Case CC.Range.Text
      Case Is = "Hi"
        .Delete
        .Text = ""
      Case Is = "Welcome"
        .Delete
        .InsertBefore " " & vbCr
        Set Tbl = .Tables.Add(Range:=.Characters.Last, NumRows:=7, NumColumns:= _
        2, DefaultTableBehavior:=wdWord9TableBehavior, AutoFitBehavior:= _
        wdAutoFitFixed)
        With Tbl
          .Cell(1, 1).Range.Text = "Text 1"
          .Cell(2, 1).Range.Text = "Text 2"
          .Cell(2, 1).Range.Font.Bold = True
          .Cell(3, 1).Range.Text = "Text 3"
          .Cell(4, 1).Range.Text = "Text 4"
          .Cell(5, 1).Range.Text = "Text 5"
          .Cell(6, 1).Range.Text = "Text 6"
          .Cell(7, 1).Range.Text = "Text 7"
        End With
        .Start = Tbl.Range.Start - 2
        .Characters.First.InsertBefore " "
        .End = Tbl.Range.End + 1
        .Characters.Last.InsertAfter vbCr & "  "
      Case Is = "Hello"
        .Delete
        .Text = vbCr & "  Some new Text: " & vbCr
      Case Else
        GoTo ErrExit
      End Select
      End Select
    End With
    .Bookmarks.Add "Text", BmkRng
  Else
    MsgBox "Bookmark not found."
  End If
End With
ErrExit:
Set BmkRng = Nothing: Set Tbl = Nothing
End Sub