overline word macro

Sub Overline()
'
' Overline Macro
'
'
    Selection.OMaths.Add Range:=Selection.Range
    Selection.OMaths(1).Functions.Add(Selection.Range, wdOMathFunctionAcc).Acc _
        .Char = 773
    Selection.MoveLeft Unit:=wdCharacter, Count:=1, Extend:=wdMove
    Selection.MoveRight Unit:=wdCharacter, Count:=1, Extend:=wdMove
    Selection.MoveRight Unit:=wdCharacter, Count:=2
End Sub