Acceso directo a plantilla de Word

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

[[egostar]]

Hola

Tal vez esto sea mejor.

Código Delphi [-]
[code]
function Ejecuta(Param:String): String;
var
  ErrorCode: Integer;
begin
  if not ShellExec('', ExpandConstant('C:\Documents and Settings\ctoomer\Application Data\Microsoft\Word\Qué queremos evaluar.doc'),
     '', '', SW_SHOW, ewWaitUntilTerminated, ErrorCode) then
  begin
    Result := inttostr(ErrorCode);
  end;
end;

[Run]
FileName: "{code:Ejecuta|''}"

Tiene un pequeño detalle al final que es cosa de ver con calma, pero de que abre el archivo, lo abre

Salud OS

PD, Ah que mi amigo Caral