Sub CCLoader()
  Dim aCC As ContentControl, aRng As Range
  For Each aRng In ActiveDocument.StoryRanges
    For Each aCC In aRng.ContentControls
      If aCC.Title = "aaa" Then
        aCC.Range.Text = "hi mum"
      End If
    Next aCC
  Next aRng
End Sub