Word Macro to select all text in a sentence from the currrent curser position in the sentence to the end of the sentence including the full stop.

I need help with Word Macro that would select all text in a sentence from the current cursor position (in the sentence) to the end of the sentence (marked by full stop).
So if I have a sentence "An apple a days is good for health. " and the cursor is just to letter "d" in the word "days" when I call the Macro all text to the right up to and including the full stop "days is good for health. " should get selected.