Club Delphi  
    Paypal   FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > OOP
Registrarse FAQ Miembros Calendario Guía de estilo Buscar Temas de Hoy Marcar Foros Como Leídos

Coloboración Paypal con ClubDelphi

 
 
Herramientas Buscar en Tema Desplegado
  #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
Poder: 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
 


Herramientas Buscar en Tema
Buscar en Tema:

Búsqueda Avanzada
Desplegado

Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro

Temas Similares
Tema Autor Foro Respuestas Último mensaje
word:rellenar plantilla. ¿mediante busacar y reemplazar? rikitriki Servers 0 16-07-2007 12:56:48
Modificar margenes en Word jzk Servers 4 15-09-2005 11:13:06
modificar documento word sin el word instalado joaquinmol Servers 0 30-03-2005 19:58:54
Registro en Plantilla Word JulioGO Firebird e Interbase 2 12-09-2004 00:42:34
Alguien sabe cómo pasar parámetros a una plantilla Word?? Muten Servers 2 01-04-2004 00:07:43


La franja horaria es GMT +2. Ahora son las 04:31:01.


Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2026, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi
Copyright 1996-2007 Club Delphi