Acceso directo a plantilla de Word

[[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

[[egostar]]

Empezado por roman

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

Gracias

// Saludos

Solo una modificación que ya probe y abre Word

Código Delphi [-]
[code]
function GetPath(Param:String): String;
var
  PrevPath: String;
begin
  PrevPath := '';
  if not RegQueryStringValue(HKLM, 'SOFTWARE\Microsoft\Office\11.0\Word\InstallRoot', 'Path', PrevPath) then begin //Aqui modifique la clave 
     Result := '';
  end
  else Result := PrevPath;
end;

[Run]
Filename: "{code:GetPath|''}\WINWORD.EXE"; Parameters: "" //Aqui me falta la parte del dot que no encontre donde estan 

Salud OS

[[Caral]]

Hola
Pregunto>
Este hilo no se podría poner con alguna etiqueta?.
Es que ver que Roman tenga una duda o que incluso pregunte es de verse.
Hay que enmarcar este hilo.
Saludos Maestros.