Club Delphi  
    FTP   CCD     Enlaces   Buscar   Trucos   Trabajo   Foros

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

Respuesta
 
Herramientas Desplegado
  #1  
Antiguo 13-09-2006
Carliviris Carliviris is offline
Miembro
 
Registrado: abr 2006
Posts: 93
Carliviris Va por buen camino
Justificar y organizar documento de word

Saludos a todos:

Estoy haciendo una aplicacion en la cual abre una templeta de microsoft word, para buscar palabras llaves y reemplazarlas por otras provenientes de la base de datos. Eso logre que funcione perfecto. Lo unico es que el documento me queda desorganizado y sin justificar..............como lo podria lograr??

Gracias a todos
Responder Con Cita
  #2  
Antiguo 13-09-2006
Avatar de roman
roman roman is offline
Moderador
 
Registrado: may 2003
Ubicación: Ciudad de México
Posts: 18.727
roman Va camino a la fama
¿Cómo estás haciendo la sustitución? En principio no tiene porque afectarse el formato del documento.

// Saludos
__________________

Menos reyes y más elefantes
http://clubdelphi.com/correo_contacto_clubdelphi.png
Responder Con Cita
  #3  
Antiguo 13-09-2006
Carliviris Carliviris is offline
Miembro
 
Registrado: abr 2006
Posts: 93
Carliviris Va por buen camino
la forma es la siguiente, es solo una parte del codigo:

Código Delphi [-]
 
  try
    { Ocultar Microsoft Word }
    WordApp.Visible := true;
    { Abrir el documento }
    WordApp.Documents.Open(ADocument);
    { Inicializacion de los parametros}
    i:= 0;
    for i:= 1 to 28 do
     begin
      if i <> 28 then
       begin
         WordApp.Selection.Find.ClearFormatting;
         WordApp.Selection.Find.Text := SearchStr[i];
         WordApp.Selection.Find.Replacement.Text := ReplaceStr[i];
         WordApp.Selection.Find.Forward := True;
         WordApp.Selection.Find.Wrap := wdFindContinue;
         WordApp.Selection.Find.Format := False;
         WordApp.Selection.Find.MatchCase := wrfMatchCase in Flags;
         WordApp.Selection.Find.MatchWholeWord := False;
         WordApp.Selection.Find.MatchWildcards := wrfMatchWildcards in Flags;
         WordApp.Selection.Find.MatchSoundsLike := False;
         WordApp.Selection.Find.MatchAllWordForms := False;
         { Perform the search}
         if wrfReplaceAll in Flags then
           WordApp.Selection.Find.Execute(Replace := wdReplaceAll)
         else
         WordApp.Selection.Find.Execute(Replace := wdReplaceOne);
       end
       else
        begin
          conData.qrPagard1.First;
          Count := conData.qrPagard1.RecordCount;

Estos son las dos lineas mas relevantes. Una busca el texto y la otra lo reemplaza:

Código Delphi [-]
  WordApp.Selection.Find.Text := SearchStr[i];
               WordApp.Selection.Find.Replacement.Text := ReplaceStr[i];

Esa es la manera en la cual lo hago
Responder Con Cita
  #4  
Antiguo 14-09-2006
Avatar de roman
roman roman is offline
Moderador
 
Registrado: may 2003
Ubicación: Ciudad de México
Posts: 18.727
roman Va camino a la fama
¡Oh! Yo te propongo que uses otra técnica. Estúdiale un rato y comentas.

// Saludos
__________________

Menos reyes y más elefantes
http://clubdelphi.com/correo_contacto_clubdelphi.png
Responder Con Cita
Respuesta


Herramientas
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
Crear un documento Word destrukthor Servers 2 28-08-2006 14:05:44
modificar documento word sin el word instalado joaquinmol Servers 0 30-03-2005 19:58:54
Documento Word a PDF walace_soy Servers 0 23-11-2004 13:21:43
Creacion de Documento Word Frank Servers 4 17-05-2004 16:10:45
abrir un documento word marianaf Servers 3 22-12-2003 14:49:57


La franja horaria es GMT +2. Ahora son las 11:36:38.


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