Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

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

Respuesta
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 07-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
se puede guardar el formato de un documento word y volver a ponerlo cuando se quiera

hola amigos, tengo un documento de word y les quiero quitar el salto de pagina, haciendo una serie de cosas consigo quitar los saltos de pagina pero tengo un problema no guarda el formato que tiene el documento, hay alguna forma de poder obtener el formato de un documento de word desde delphi y volver a aplicarlo tras haber hecho alguna modificacion?
Gracias a quien me pueda ayudar y a quien no tambien por leerlo.
Ciao.

Perdon, sino se puede hacer lo que acabo de decir a ver si se puede hacer lo siguiente.
El contenido de un documento (tablas, saltos de pagina,etc) lo guardo en una variable String, para buscar los saltos de pagina y borrarlos, y luego pongo en el documento ese string, de modo que ya no hay ni tablas ni nada y aunque si que he quitado los saltos de pagina no queria quitar la tabla. Como podria volver a poner el string pero con formato en el documento?.
A ver si esto es mas plausible.
Gracias.

Última edición por walace_soy fecha: 07-05-2003 a las 18:35:50.
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
solucionado el tema de los salos de pagina

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



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 generar informe, y convertirlo en un documento de word. Crazyro Impresión 0 21-06-2005 11:08:36
Tratar un documento Word desde Delphi Silvia Servers 0 31-01-2005 19:01:47
Mi recopilacion de exageraciones DarkByte Humor 5 29-06-2004 10:32:47
Como puedo ver un documento de word en una palicación delphi kasieyes Servers 2 16-09-2003 09:19:17


La franja horaria es GMT +2. Ahora son las 13:04:59.


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