デルファイでDocの指定行の内容を読み取る方法

Delphiで、TWordDocumentコンポーネントを使用してdocファイルの内容を読み込むことができます。指定行の内容を読み取るときは、以下のコードを使用できます。

var
WordApp: TWordApplication;
WordDoc: TWordDocument;
Paragraph: TParagraph;
LineNumber: Integer;
begin
WordApp := TWordApplication.Create(nil);
WordDoc := WordApp.Documents.Open('C:\path\to\your\document.doc', EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam);
// 设置读取指定行的行号
LineNumber := 1; // 比如读取第1行的内容
// 获取指定行的段落
Paragraph := WordDoc.Paragraphs.Item(LineNumber);
// 获取段落的文本内容
ShowMessage(Paragraph.Range.Text);
// 释放资源
WordDoc.Close(EmptyParam, EmptyParam, EmptyParam);
WordApp.Quit(EmptyParam, EmptyParam, EmptyParam);
WordDoc := nil;
WordApp := nil;
end;

上記のコード例では、まずTWordApplicationオブジェクトとTWordDocumentオブジェクトを作成し、Documents.Openメソッドを使って指定の.docファイルをオープンしています。その後、読み取り対象の行番号（ここでは1行目）を設定し、Paragraphs.Itemメソッドで指定行の段落オブジェクトを取得しています。最後に、Paragraph.Range.Textを使って段落のテキスト内容を取得し、ShowMessageを使ってメッセージボックスに表示しています。最後に、リソースを解放してドキュメントとアプリケーションをクローズしています。

Delphiで上のコードを使用するには、WordXPユニットへの参照を追加する必要があります。