word - Plantilla - abrir - grabar como

[shoulder]

Probe esto, me muestra el directorio de la pc, pero despues puedo irme a otros directorios...

path1 := GetEnvironmentVariable('userprofile');
Path1 := Path1+'\'+'xx.doc';
path := Fichero;;
CopyFile(pchar(path),pchar(path1),FALSE);
Fichero := Path1;