Code:
Sub InsertAcuteAccent()
    Selection.InsertSymbol CharacterNumber:=&H301, Unicode:=True
End Sub
Add a module to your Normal.dot, add this sub to it and assign a hotkey