Ver Mensaje Individual
  #2  
Antiguo 08-05-2003
walace_soy walace_soy is offline
Miembro
 
Registrado: may 2003
Ubicación: La Laguna (Tenerife)
Posts: 88
Reputación: 22
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