Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

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

Respuesta
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 05-05-2003
walace_soy walace_soy is offline
Miembro
 
Registrado: may 2003
Ubicación: La Laguna (Tenerife)
Posts: 88
Poder: 21
walace_soy Va por buen camino
Smile Quitar los saltos de seccion o de pagina de word con delphi

Hola, tengo un problema con la combinacion de correspondencia de word realizada desde delphi.

Utilizo una unidad llamada Mailmerge con la que puedo combinar mi base de datos con un documento e imprimir los registros que quiero.

Pero el problema que a veces quiero listados y no puedo hacerlos bien porque se inserta un salto de seccion o de pagina para separar los registros. Por lo que me gustaria que me ayudasen a quitar los saltos de pagina del documento.

Si alguien sabe comoo hacerlo le ruego me ayude o si tiene alguna pregunta al respecto me envie un mensaje.Gracias.
Responder Con Cita
  #2  
Antiguo 08-05-2003
walace_soy walace_soy is offline
Miembro
 
Registrado: may 2003
Ubicación: La Laguna (Tenerife)
Posts: 88
Poder: 21
walace_soy Va por buen camino
Lo consegui por fin jejejeje por si le viene bien a alguien

Hola ya tengo solucionado el asunto de salto de pagina, el tema esta en coger la variable o el objeto de delphi que representa el Word y poner lo siguiente.

for X:=1 to VariableWord.ActiveDocument.Paragraphs.Count do
begin
if VariableWord.ActiveDocument.Paragraphs.Item(X).Range.Text=#12 then
VariableWord.ActiveDocument.Paragraphs.Item(X).Range.Text:='';
end;

Lo que hago es recorrerme los parrafos para evaluar si su contenido es el caracter que busco(salto de pagina) y si es lo cambio por un espacio, vosotros podeis cambiarlo por cualquier otro caracter. Asi no pierdo el formato del documento aunque si es cierto que es un poco mas lento el proceso de abrir el word y realizar la combinacion de correspondencia con datos de nuestra base de datos.

Puedes hacer algo un poco mas rapido pero que pierde el formato, que es coger el contenido del documento y guardarlo en una variable string:
Contenido:=VariableWord.ActiveDocument.Content.Text;
entonces en buscas en contenido el caracter que deseas en mi caso el salto de seccion o de pagina.
while (Pos(#12,Contenido) > 0) do
begin
Delete(Contenido,Pos(#12,Contenido),1);
end;
y luego lo devolvemos al documento pero sabiendo que hemos perdido formato.
VariableWord.ActiveDocument.Content.Text:=Contenido;

Si solo teneis texto sin formato este sistema os puede venir bien porque es rapido.

Bueno esos dos sistemas son los que he podido encontrar para quitar los saltos de pagina de un documento, si alguien tiene algun sistema me gustaria que me lo dijese, gracias a todos los que habeis leido mis mensajes.
Responder Con Cita
Respuesta


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
Como quitar mensaje en Word Albano Varios 0 11-01-2005 22:12:22
Subir pagina realizada en delphi 7 a internet danytorres Internet 8 30-09-2004 19:47:09
Word con Delphi Jordy Servers 4 22-01-2004 15:55:07
Como puedo ver un documento de word en una palicación delphi kasieyes Servers 2 16-09-2003 09:19:17
se puede guardar el formato de un documento word y volver a ponerlo cuando se quiera walace_soy Impresión 1 08-05-2003 10:57:54


La franja horaria es GMT +2. Ahora son las 23:40:39.


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