Sub Bionic()
    Dim rng As Range
    Dim word As Range
    Dim half As Integer
    
    ' Get the selected text
    Set rng = Selection.Range
    
    ' Clear the original formatting
    rng.Bold = False
    
    ' Iterate over each word in the selection
    For Each word In rng.words
        ' Calculate half of the word length (rounded up if odd)
        half = Len(word) \ 2
        If Len(word) Mod 2 <> 0 Then half = half + 1
        
        ' Apply bold formatting to the first half of the word
        word.Start = word.Start
        word.End = word.Start + half
        word.Bold = True
        
        ' Clear bold formatting for the second half of the word
        word.Start = word.Start + half
        word.End = word.End
        word.Bold = False
    Next word
End Sub