CreateObject 메소드를 사용하면 Delphi가 제공하는 제어 메소드에 대한 액세스와 비교하여 Word 문서 작업에 대한 고유 한 장점이 있습니다. Word 문서의 작업을 프로그래밍하십시오.
다음은이 컴퓨터에서 수행 한 실험이며 기계 소프트웨어 구성은 다음과 같습니다.
Windows XP+Delphi7.0+Office 2003
이 프로그램은 매우 간단합니다. 편집 및 버튼이 클릭 할 때마다 편집 된 내용이 자동으로 추가됩니다 프로그램이 종료 될 때.
단위 메인;
인터페이스
// Word 문서에서 작동하기 위해 CreateOleObject를 사용하려면 사용해야합니다.
// 문에 comobj 문과 WordXp 문을 포함시킵니다
용도
창, 메시지, 시스템, 변형, 클래스, 그래픽, 컨트롤, 양식,
comobj, wordxp, 대화 상자, stdctrls;
유형
tform1 = 클래스 (tform)
버튼 1 : tbutton;
edit1 : 테디;
절차 버튼 1Click (sender : tobject);
프로 시저 Formcreate (sender : tobject);
절차 formclose (발신자 : tobject; var action : tcloseacect);
// 절차 button2click (sender : tobject);
사적인
{개인 선언}
공공의
{공개 선언}
끝;
var
form1 : tform1;
//이 두 변수를 글로벌 변수로 선언합니다
fword : 변형;
FDOC : 변형;
구현
{$ r *.dfm}
절차 tform1.Button1click (sender : tobject);
시작하다
fword.selection.typeparagraph;
fword.selection.typetext (text : = form1.edit1.text);
끝;
절차 tform1. formcreate (sender : tobject);
시작하다
// 먼저 객체를 만들고 예외가 발생하면 프롬프트를 제공합니다.
노력하다
fword : = createoleObject ( 'Word.application');
// 값이 거짓 인 경우 단어 프로그램 실행이 표시 되나요?
fword.visible : = false;
제외하고
showmessage ( '단어 객체 만들기 실패!');
출구;
끝;
// 먼저 열린 단어로 새 페이지를 만들고 "hello", + " +"world! "를 입력하십시오.
노력하다
fdoc : = fword.documents.add;
fword.selection.typetext (텍스트 : = 'hello,');
fword.selection.typeparagraph;
fword.selection.typetext (텍스트 : = 'world!');
제외하고
e : 예외적입니다
showmessage (e.message);
끝;
끝;
// 프로그램이 닫히고 test.doc의 이름을 닫았을 때 파일 내용을 현재 디렉토리에 저장
// 단어 프로그램을 동시에 닫습니다
절차 tform1.formclose (Sender : Tobject; var action : tcloseacect);
시작하다
fdoc.saveas (extractfilepath (application.exename) +'test.doc');
fword.quit;
fword : = 할당되지 않은;
끝;
끝.
또한 다른 사무실 파일의 작업은 비교적 비슷하므로 자세한 내용은 없습니다. 이 방법은 또한 Word 파일의 더 복잡한 VBA 매크로에 대한 참조를 통해보다 복잡한 문서 작업을 완료 할 수 있습니다.