현나 wrote:

> MS Word의 매크로를 실행시키려면 어떻게 해야 되나요?

>

> 감사합니다..

>

> 즐거운 하루 되세요



일단 델파이에서 MS Word를 실행시킬 수 있거든요. 그런데 어떤

매크로를 실행하려고 하시는지요? 아래는 현재까지 코딩해본거네요.



procedure TForm1.Button2Click(Sender: TObject);

var

WordApp : Variant ;

WinHandle : hwnd ;

begin

WinHandle := FindWindow( ???, nil );

// findwindow문에서 winword의 classname을 모르겠네요.



if WinHandle <> 0 then // 이미 winword가 실행되었으면

WordApp := GetActiveOLEObject('Word.Application')

else

begin

try

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

except

Application.MessageBox ( 'MS Word를 열 수 없습니다' + chr(13) +

'MS Word가 설치되어있는지 확인하십시요' , '알림' , MB_OK ) ;

end; //try 문의 끝

WordApp.Visible := True ;

end; //if문의 끝



SetForegroundWindow( WinHandle );

WordApp.Documents.Add ;

// word의 새문서 추가하기

// 이후에 매크로 실행을 하면 되겠죠?

김주석 wrote:



> 일단 델파이에서 MS Word를 실행시킬 수 있거든요. 그런데 어떤

> 매크로를 실행하려고 하시는지요? 아래는 현재까지 코딩해본거네요.

>

> procedure TForm1.Button2Click(Sender: TObject);

> var

> WordApp : Variant ;

> WinHandle : hwnd ;

> begin

> WinHandle := FindWindow( ???, nil );

> // findwindow문에서 winword의 classname을 모르겠네요.

>

> if WinHandle <> 0 then // 이미 winword가 실행되었으면

> WordApp := GetActiveOLEObject('Word.Application')

> else

> begin

> try

> WordApp := CreateOLEObject ( 'Word.Application') ;

> except

> Application.MessageBox ( 'MS Word를 열 수 없습니다' + chr(13) +

> 'MS Word가 설치되어있는지 확인하십시요' , '알림' , MB_OK ) ;

> end; //try 문의 끝

> WordApp.Visible := True ;

> end; //if문의 끝

>

> SetForegroundWindow( WinHandle );

> WordApp.Documents.Add ;

> // word의 새문서 추가하기

> // 이후에 매크로 실행을 하면 되겠죠?



제가 궁금한 것이 "// 이후에 매크로 실행을 하면 되겠죠?" 이 부분이거든요



워드에서 만든 매크로를(아무거라도) 실행할수 있다면 워드의 어지간한 기능은 델파이에서 제어 할수 있지 않을까해서요..



혹시 몰라서 간단한 매크로를 올립니다.

그냥 선그리는 매크로 입니다.



Sub Macro1()

'

' Macro1 Macro

'

ActiveDocument.Shapes.AddLine(115.05, 112.05, 495.05, 112.05).Select



End Sub

현나 wrote:

> 김주석 wrote:

>

> > 일단 델파이에서 MS Word를 실행시킬 수 있거든요. 그런데 어떤

> > 매크로를 실행하려고 하시는지요? 아래는 현재까지 코딩해본거네요.

> >

> > procedure TForm1.Button2Click(Sender: TObject);

> > var

> > WordApp : Variant ;

> > WinHandle : hwnd ;

> > begin

> > WinHandle := FindWindow( ???, nil );

> > // findwindow문에서 winword의 classname을 모르겠네요.

> >

> > if WinHandle <> 0 then // 이미 winword가 실행되었으면

> > WordApp := GetActiveOLEObject('Word.Application')

> > else

> > begin

> > try

> > WordApp := CreateOLEObject ( 'Word.Application') ;

> > except

> > Application.MessageBox ( 'MS Word를 열 수 없습니다' + chr(13) +

> > 'MS Word가 설치되어있는지 확인하십시요' , '알림' , MB_OK ) ;

> > end; //try 문의 끝

> > WordApp.Visible := True ;

> > end; //if문의 끝

> >

> > SetForegroundWindow( WinHandle );

> > WordApp.Documents.Add ;

> > // word의 새문서 추가하기

> > // 이후에 매크로 실행을 하면 되겠죠?

> WordApp.ActiveDocument.Shapes.

AddLine(115.05, 112.05, 495.05, 112.05).Select ;



> 제가 궁금한 것이 "// 이후에 매크로 실행을 하면 되겠죠?" 이 부분이거든요

>

> 워드에서 만든 매크로를(아무거라도) 실행할수 있다면 워드의 어지간한 기능은 델파이에서 제어 할수 있지 않을까해서요..

>

> 혹시 몰라서 간단한 매크로를 올립니다.

> 그냥 선그리는 매크로 입니다.

>

> Sub Macro1()

> '

> ' Macro1 Macro

> '

> ActiveDocument.Shapes.AddLine(115.05, 112.05, 495.05, 112.05).Select

>

> End Sub

>

그냥 그다음 문장에 추가하면 실행되던데요? 말씀하신 부분이 MACRO1 , MACRO2등등

을 실현하겠다?라는 말씀이셨나요? 구체적인 어떤 작업이 아니라요??

아!! 정말 잘 되는군요



제가 착각했어요.



그리고 한가지만 더 ...



> > 김주석 wrote:

> > > WinHandle := FindWindow( ???, nil );

> > > // findwindow문에서 winword의 classname을 모르겠네요.



이 부분은 없어도 돼는군요

근데 왜 써주는 거지요?

HELP를 보니까 상위 단계에서 파라미터값과 일치하는 일치하는 윈도우의 핸들값을 가져온다고 써 있는것 같은데 맞나요?



HAPPY NEW MILLENNIUM!!