Visual Basic - Obtener posición de una cadena dentro de un Rango

¿Alguien sabe cómo obtener posición exacta de una cadena dentro de un Rango en un documento word?

Estoy obteniendo el texto del rango y buscándo la posición de la cadena con InStr() pero en cuanto en el rango de word aparecen tablas, las posiciones no son las correctas y al intentar obtener un subrango (document.range(iniPos, finPos)) no coincide.

¿Es posible hacer esto?

Gracias.

Mi código es el siguiente:

strTxt = oDocOri.range.Text

Set miRango = oDocOri.range(InStr(strTxt, miCadena), InStr(strTxt, miCadena) + len(miCadena))

Puedes preguntar en el foro de Visual Basic para Aplicaciones o en el de Word, es posible que allí encuentres mas respuestas.