Select words macro

[macropod]

That's as simple as:

Sub Demo()
Selection.MoveEndUntil "(", wdForward
End Sub