[mp3968]

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
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  MiWord: variant; //Para instanciar el Word
documento:string; //Para “construir” el path del documento
implementation

{$R *.dfm}

procedure TForm1.Button2Click(Sender: TObject);
begin
exit
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
 try
//Creamos una instancia de MS-Word.
MiWord := CreateOleObject('Word.Application');
MiWord.Visible := true;
//Construimos el path del documento a partir de la carpeta de la aplicación.
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

[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'