Two points here.

'method or data member not found' is because the Word Application, as far as I know, does not have a GetPhonetic method (although Excel has).

To get the text of the selection, use Selection.Text or, inside your With block, just .Text (preceded by a period) instead of just Text.