Delphi 및 Word (3) Word 파일에서 데이터 가져오기

,

//Word 파일에서 데이터 가져오기

PROcedure getWordStr;

var WordApp: TWordapplication;

WordDoc: TWordDocument;

DocInx,o파일 이름,CfCversions,oReadOnly,AddToRctFiles,PswDocument,

PswTemplate,o되돌리기,wpswDocument,WPswTemplate,o형식: OleVariant;

i,iRow,iCol:정수;

myCell:셀;

myRow:행;

시작하다

memo1.Lines.Clear;

// ===== 객체 생성 =====

할당되지 않은 경우(WordApp)

시작하다

WordApp:= TWordApplication.Create(nil);

WordApp.Visible := 거짓;

끝;

할당되지 않은 경우(WordDoc)

WordDoc:= TWordDocument.Create(nil);

노력하다

DocInx:=1;

o파일명 := 'd:/test.doc';

oReadOnly:=true;

CfCversions := 빈 매개변수;

AddToRctFiles:=EmptyParam;

PswDocument:=EmptyParam;

PswTemplate:=EmptyParam;

oRevert:=EmptyParam;

WPswDocument:=EmptyParam;

WPswTemplate:=EmptyParam;

o형식:=EmptyParam;

// ===== 파일 열기 =====

WordApp.Documents.open(oFileName,CfCversions,oReadOnly,AddToRctFiles,

PswDocument,PswTemplate,o되돌리기,WPswDocument,WPswTemplate,o형식);

// ===== 관련 파일 =====

WordDoc.ConnectTo(WordApp.Documents.Item(DocInx));

//방법 (1): 표를 포함한 전체 텍스트의 문자 내용을 가져옵니다.

s := WordDoc.Range.text;

//방법 (2): 테이블을 포함하여 1~4개의 문자를 사용합니다.

myRange:=WordDoc.Range;

myRange.Start:=0;

myRange.End_ :=4;

마지막으로

if Assigned(WordDoc) then // ===== 파일 닫기 =====

시작하다

WordDoc.닫기;

WordDoc.연결 끊기;

WordDoc.파괴;

WordDoc := 없음;

끝;

if Assigned(WordApp) then // ===== 워드 닫기 =====

시작하다

WordApp.종료;

WordApp.Disconnect;

WordApp.Destroy;

워드앱 := nil;

끝;

끝;

끝;