gabyzava
15-08-2007, 15:47:49
Hola a todos otra vez
logre concatenar los archivos rtf con el truco:
procedure TForm1.Button1Click(Sender: TObject);
var Word: OleVariant;
begin
Word := CreateOleObject('Word.Application');
Word.Documents.Add('c:\doc1.rtf');
Word.ActiveDocument.Select;
Word.Selection.Copy;
Word.Documents.Add('c:\doc2.rtf');
Word.Selection.Paste;
Word.ActiveDocument.SaveAs('c:\documento.doc');
Word.Quit;
end;
solo que lo guardo como rft
el archivo se guarda bien y si lo abro con Word esta perfecto,
pero si lo abro desde mi codigo para mostarlo con:
Richedit1.lines.LoadFromFile(g.rtf);
o con
qrRichtext1.lines.LoadFromFile(g.rtf);
me sale solo esto:
ÐÏࡱá
¿Que pasara?
¿Pueden ayudarme?
Gracias, si no puedo mostrar el contenido de nada me sirvio el truco
logre concatenar los archivos rtf con el truco:
procedure TForm1.Button1Click(Sender: TObject);
var Word: OleVariant;
begin
Word := CreateOleObject('Word.Application');
Word.Documents.Add('c:\doc1.rtf');
Word.ActiveDocument.Select;
Word.Selection.Copy;
Word.Documents.Add('c:\doc2.rtf');
Word.Selection.Paste;
Word.ActiveDocument.SaveAs('c:\documento.doc');
Word.Quit;
end;
solo que lo guardo como rft
el archivo se guarda bien y si lo abro con Word esta perfecto,
pero si lo abro desde mi codigo para mostarlo con:
Richedit1.lines.LoadFromFile(g.rtf);
o con
qrRichtext1.lines.LoadFromFile(g.rtf);
me sale solo esto:
ÐÏࡱá
¿Que pasara?
¿Pueden ayudarme?
Gracias, si no puedo mostrar el contenido de nada me sirvio el truco