Word - Copiar texto de Word y pegarlo en una hoja de cálculo vba

1. Hola tengo hecho una macro en Word que me busca un texto y funciona pero no he podido enviar el texto a una hoja de cálculo abierta.

2. Como puedo hacer en una macro de Word que pida abrir un documento de Word para aplicar la macro arriba descrita.
Gracias de antemano