Acceso directo a plantilla de Word

[roman]

Hola,

Pues eso, lo que quiero es crear un acceso directo a una plantilla de Word, pero no para crear un documento basado en ella sino para editar la plantilla en sí.

El problema es que la acción por defecto al "ejecutar" un .DOT es crear un documento, y, si queremos editar la plantilla, debemos seleccionar la opción "Abrir" del menú contextual.

Una forma de hacer esto sería poniendo

"C:\ruta\a\winword.exe" /open "C:\ruta\a\la\plantilla.dot"

en el acceso directo. Pero el problema es que yo quiero crear este acceso directo con Inno Setup para la instalación de un programa, y no sé de antemano, cual sea la ruta a winword.exe. Si no le pongo ruta, sino sólo winword.exe, no funciona.

Intenté poniendo

"C:\ruta\a\la\plantilla.dot" /open

en el acceso directo pero no funciona tampoco.

// Saludos

[[egostar]]

Hola

Inno Setup te permite ejecutar codigo delphi por lo que habría que crear una funcion que nos retorne la ruta de Winword.

Algo mas o menos así

Código Delphi [-]
[code]
function GetPathWindWord: String;
var
   PrevPath: String;
begin
   PrevPath := '';
   if not RegQueryStringValue(HKLM, 'SOFTWARE\Microsoft\Office\10.0\Common\InstallRoot', 'Path', PrevPath) then begin
      Result := '';
   end
   else Result := PrevPath;
end;

Salud OS

[roman]

Mmm, pudiera ser Eliseo, pero creo que ahí dependo de la versión exacta del Office que esté instalado ¿no?

Tengo la idea de que puede usarse algo como RunDLL32 Shell32 para abrir documentos al estilo de ShellExecute, pero hasta ahora sólo he logrado poner

rundll32.exe shell32.dll, ShellExec_RunDLL "C:\ruta\a\la\plantilla.dot"

lo cual abre un nuevo documento basado en la plantilla, pero no logro acomodarle el open.

Gracias Eliseo.

// Saludos

[[egostar]]

Empezado por roman

Mmm, pudiera ser Eliseo, pero creo que ahí dependo de la versión exacta del Office que esté instalado ¿no?

Tengo la idea de que puede usarse algo como RunDLL32 Shell32 para abrir documentos al estilo de ShellExecute, pero hasta ahora sólo he logrado poner

rundll32.exe shell32.dll, ShellExec_RunDLL "C:\ruta\a\la\plantilla.dot"

lo cual abre un nuevo documento basado en la plantilla, pero no logro acomodarle el open.

Gracias Eliseo.

// Saludos

Cierto, ese si es un problema.

Tal vez algo asi

Código Delphi [-]
[Run]
Filename: {sys}\rundll32.exe; Parameters: "C:\ruta\a\la\plantilla.dot"; WorkingDir: {app};

Salud OS

[[cHackAll]]

Yo me voy por la primera solucion;

HKEY_CLASSES_ROOT\Word.Application\CurVer

Lo obvio; obtenemos la version del Word, y concatenamos su parte numerica con la clave mostrada por eliseo.

Saludos

[roman]

¡Ah! Muy bien , voy a intentarlo y les cuento.

Gracias

// Saludos