quiero abrir un archivo de word , pero a ese archivo extraerle las 2 primeras lineas que es donde esta el titulo esas lineas guardarlas en otro archivo .
como se podria hacer para hacer eso pero con varios archivos a la vez .
Codigo que tengo de otro ejemplo que encontre x ahi
Código Delphi
[-]
unit Prueba;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls,ComObj;
type
TForm1 = class(TForm)
Button1: TButton;
Button2: TButton;
procedure Button2Click(Sender: TObject);
procedure Button1Click(Sender: TObject);
private
public
end;
var
Form1: TForm1;
MiWord: variant; documento:string; implementation
{$R *.dfm}
procedure TForm1.Button2Click(Sender: TObject);
begin
exit
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
try
MiWord := CreateOleObject('Word.Application');
MiWord.Visible := true;
documento:=ExtractFilePath(Application.ExeName)+'documentos\nombre_documento.xrc’;
//Si el documento existe, lo abrimos, si no creamos uno.
If FileExists(documento) then
MiWord.Documents.Open (documento)
else
MiWord.Documents.Add;
//Modo en que aparece la aplicación (maximizada, minimizada o normal):
MiWord.WindowState:=1;
MiWord.Caption:='Mi documento';
except on EOleError do
end;
end.
Errores que tengo
Código:
[Error] Prueba.pas(41): Unterminated string
[Error] Prueba.pas(43): Missing operator or semicolon
[Error] Prueba.pas(46): Incompatible types: 'String' and 'procedure, untyped pointer or untyped parameter'
[Error] Prueba.pas(54): ';' expected but '.' found
[Error] Prueba.pas(56): Declaration expected but end of file found
[Fatal Error] Project1.dpr(5): Could not compile used unit 'Prueba.pas'