Ver la Versión Completa : Justificar y organizar documento de word
Carliviris
13-09-2006, 22:28:38
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
roman
13-09-2006, 23:13:49
¿Cómo estás haciendo la sustitución? En principio no tiene porque afectarse el formato del documento.
// Saludos
Carliviris
13-09-2006, 23:33:36
la forma es la siguiente, es solo una parte del codigo:
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:
WordApp.Selection.Find.Text := SearchStr[i];
WordApp.Selection.Find.Replacement.Text := ReplaceStr[i];
Esa es la manera en la cual lo hago
roman
14-09-2006, 00:00:28
¡Oh! Yo te propongo que uses otra técnica (http://clubdelphi.com/foros/showthread.php?t=30762). Estúdiale un rato y comentas.
// Saludos
vBulletin v3.6.8, Derechos ©2000-2024, Jelsoft Enterprises Ltd.