Ver Mensaje Individual
  #4  
Antiguo 26-08-2008
Avatar de roman
roman roman is offline
Moderador
 
Registrado: may 2003
Ubicación: Ciudad de México
Posts: 20.269
Reputación: 10
roman Es un diamante en brutoroman Es un diamante en brutoroman Es un diamante en bruto
Pues aplica por igual. Aquí un ejemplo:

Código Delphi [-]
var
  Word: Variant;
  Documento: Variant;
  Texto: String;

begin
  (* Creas un objeto Word *)
  Word := CreateOleObject('Word.Application');

  (* Añades un documento basado en la plantilla *)
  Word.Documents.Add('C:\ruta\al\memo.dot');
  Documento := Word.Documents.Item(1);

  (* Copias el texto del memo al documento *)
  Texto := StringReplace(Memo1.Lines.Text, #13#10, #13, [rfReplaceAll]);
  Documento.Variables.Add('texto', Texto);

  (* Actualizas el campo *)
  Documento.Fields.Update;

  (* Fuerzas a mostrar el contenido del campo *)
  Word.ActiveWindow.View.ShowFieldCodes := false;

  Word.Visible := true;
end;

Aquí, memo.dot es una plantilla de Word así:

Código:
A quien corresponda

{ DOCVARIABLE  texto  \* MERGEFORMAT }

Gracias.
// Saludos
Responder Con Cita