델파이와 워드 예제 1

//==================Word_VBA 코드=====================//

하위 inWord()

myTable을 테이블로 흐리게 표시

희미한 myBox, myPict, myShape를 모양으로

'첫번째 직사각형을 그린다

myBox = ActiveDocument.Shapes.AddTextbox(방향:=1, 왼쪽:=90, 위쪽:=70, 너비:=414, 높이:=200)로 설정합니다.

'수직선을 그어라.

myLine = ActiveDocument.Shapes.AddLine(255, 70, 255, 270) 설정

'첫 번째 그림을 그려라

myPict 설정 = ActiveDocument.Shapes.AddPicture("D:/test/test/load_jpg1/photo/108259.jpg", _

LinkToFile:=False, SaveWithDocument:=True, 왼쪽:=180, 위쪽:=80, 너비:=65, 높이:=80)

'두 번째 그림을 그려라

myPict 설정 = ActiveDocument.Shapes.AddPicture("D:/test/test/load_jpg1/photo/108259.jpg", _

LinkToFile:=False, SaveWithDocument:=True, 왼쪽:=262, 위쪽:=80, 너비:=65, 높이:=80)

'이름

myShape = ActiveDocument.Shapes.AddTextbox(방향:=1, 왼쪽:=108, 위쪽:=198, 너비:=126, 높이:=18)로 설정

myShape.Line.Visible = msoFalse

myShape.TextFrame.TextRange.Text = "이름: 신노스케"

'나이

myShape = ActiveDocument.Shapes.AddTextbox(방향:=1, 왼쪽:=108, 위쪽:=225, 너비:=126, 높이:=18)로 설정

myShape.Line.Visible = msoFalse

myShape.TextFrame.TextRange.Text = "나이: 12"

'개인정보

myShape = ActiveDocument.Shapes.AddTextbox(방향:=1, 왼쪽:=351, 위쪽:=90, 너비:=126, 높이:=99)로 설정

myShape.Line.Visible = msoFalse

myShape.TextFrame.TextRange.Text = "개인 정보"

'텍스트 상자에 테이블 추가

myShape = ActiveDocument.Shapes.AddTextbox(방향:=1, 왼쪽:=288, 위쪽:=198, 너비:=189, 높이:=63)로 설정

myShape.Line.Visible = msoFalse

myTable = ActiveDocument.Tables.Add(Range:=myShape.TextFrame.TextRange, NumRows:=3, NumColumns:= _ 설정

2, DefaultTableBehavior:=wdWord9TableBehavior, AutoFitBehavior:=wdAutoFitFixed)

myTable.Cell(1, 1).Range.Text = "무게"

myTable.Cell(1, 2).Range.Text = "40kg"

myTable.Cell(2, 1).Range.Text = "높이"

myTable.Cell(2, 2).Range.Text = "120cm"

myTable.Cell(3, 1).Range.Text = "높게 앉아"

myTable.Cell(3, 2).Range.Text = "65cm"

서브 끝

//==================델파이 코드=====================//

델파이에서의 절차;

var

WordApp,WordDoc,WordTable,wordShape:OleVariant; // se:Selection;

파일 이름:문자열;

시작하다

SaveDialog1.InitialDir:=ExtractFilePath(application.ExeName)+'out_file';

SaveDialog1.실행;

자기.새로 고침;

파일 이름:=savedialog1.FileName;

길이(파일 이름)=0이면

시작하다

application.MessageBox('통계 파일 저장 위치가 선택되지 않아 통계 데이터를 저장할 수 없습니다! ','프롬프트 상자',mb_ok);

출구;

끝;

WordApp:=CreateOleObject('Word.Application');

WordApp.Visible:=참;

WordDoc:=WordApp.Documents.Add;

노력하다

//첫 번째 직사각형 그리기

worddoc.SHAPES.AddTextbox(방향:=1, 왼쪽:=90, 위쪽:=70, 너비:=414, 높이:=200);

//수직선 그리기

worddoc.Shapes.AddLine(255, 70, 255,270);

//첫 번째 그림 그리기

worddoc.SHAPES.addpicture(ExtractFilePath(Application.ExeName)+'photo/108259.jpg',

LinkToFile:=False, SaveWithDocument:=True, 왼쪽:=180, 위쪽:=80, 너비:=65, 높이:=80);

//두 번째 그림 그리기

worddoc.SHAPES.addpicture(ExtractFilePath(Application.ExeName)+'photo/108259.jpg',

LinkToFile:=False, SaveWithDocument:=True, 왼쪽:=262, 위쪽:=80, 너비:=65, 높이:=80);

//이름 상자 그리기

wordShape:=worddoc.Shapes.AddTextbox(방향:=1, 왼쪽:=108, 위쪽:=198, 너비:=126, 높이:=18);

wordShape.Line.Visible := false;

wordShape.TextFrame.TextRange.Text := '이름: 신노스케';

//연령 상자

wordShape:=worddoc.Shapes.AddTextbox(방향:=1, 왼쪽:=108, 위쪽:=225, 너비:=126, 높이:=18);//.선택;

wordShape.Line.Visible := false;

wordShape.TextFrame.TextRange.Text := '나이: 12';

//개인정보박스

wordShape:=worddoc.Shapes.AddTextbox(방향:=1, 왼쪽:=351, 위쪽:=90, 너비:=126, 높이:=99);//.선택;

wordShape.Line.Visible := false;

wordShape.TextFrame.TextRange.Text := '개인정보';

//텍스트박스에 테이블 추가

wordShape:=worddoc.Shapes.AddTextbox(방향:=1, 왼쪽:=288, 위쪽:=198, 너비:=189, 높이:=63);//.선택;

wordShape.Line.Visible := false;

WordTable := worddoc.Tables.Add(Range:=wordShape.TextFrame.TextRange, NumRows:=3, NumColumns:=2,

DefaultTableBehavior:=wdWord9TableBehavior, AutoFitBehavior:=wdAutoFitFixed);

WordTable.Cell(1, 1).Range.Text := '가중치';

WordTable.Cell(1, 2).Range.Text := '40kg';

WordTable.Cell(2, 1).Range.Text := '높이';

WordTable.Cell(2, 2).Range.Text := '120cm';

WordTable.Cell(3, 1).Range.Text := '높은 곳에 앉아';

WordTable.Cell(3, 2).Range.Text := '65cm';

WordDoc.saveas(파일명);

application.MessageBox('출력 성공!','프롬프트 상자',mb_ok);

마지막으로

WordDoc.Saved:=true;

WordDoc.닫기;

WordApp.종료;

끝;

끝;