이성민 께서 말씀하시기를...

> 그냥 워드를 띄우는 방법 말고요...

>

> 파일 오픈해서 그 파일을 워드로 띄워주는 그런 방법을 알고 싶네요..

>

> 좀 더 부가적인 설명을 한다면 프로그램에서 파일 오픈으로

>

> 한 워드파일을 선택한 후에 그 워드파일을 제목만 보여주고,

>

> 사용자의 요구에 따라 워드를 실행시켜 그 파일의 내용을 보여주고

>

> 싶거든요.. 아시면 좀 가르쳐 주세요.. 부탁..



파일을 오픈하여 워드파일을 선택한후 edit에 넣거나 직접

pchar()에 파일이름을 넣고 아래 함수 실행



uses ShellApi;

ShellExecute(hwnd_desktop,nil,PChar(Edit1.Text),nil,nil,SW_SHOW);

이성민 께서 말씀하시기를...

> 그냥 워드를 띄우는 방법 말고요...

>

> 파일 오픈해서 그 파일을 워드로 띄워주는 그런 방법을 알고 싶네요..

>

> 좀 더 부가적인 설명을 한다면 프로그램에서 파일 오픈으로

>

> 한 워드파일을 선택한 후에 그 워드파일을 제목만 보여주고,

>

> 사용자의 요구에 따라 워드를 실행시켜 그 파일의 내용을 보여주고

>

> 싶거든요.. 아시면 좀 가르쳐 주세요.. 부탁..





안녕하세요. 하는김에 제가 포팅까지 해 보았습니다..



그런데... 전 워드가 깔려 있지를 않아서 잘되는지를 알수가 없네요. -.-;;



한번 해보세요. 단 장담은 못합니다.



...

...



var

Form1: TForm1;

wordApp: Variant;



implementation



{$R *.DFM}



uses ComObj;



procedure TForm1.Button1Click(Sender: TObject);

var

wordDocuments: Variant;

begin

if wordApp.IsEmpty then

wordApp := CreateOleObject('Word.Application')

else

wordApp := GetActiveOleObject('Word.Application');



wordApp.OlePropertySet('Visible', Variant(true));



wordDocuments := wordApp.OlePropertyGet('Documents');

wordDocuments.OleProcedure('Open', Variant('c:myfile.txt'));

end;

이성민 께서 말씀하시기를...

> 그냥 워드를 띄우는 방법 말고요...

>

> 파일 오픈해서 그 파일을 워드로 띄워주는 그런 방법을 알고 싶네요..

>

> 좀 더 부가적인 설명을 한다면 프로그램에서 파일 오픈으로

>

> 한 워드파일을 선택한 후에 그 워드파일을 제목만 보여주고,

>

> 사용자의 요구에 따라 워드를 실행시켜 그 파일의 내용을 보여주고

>

> 싶거든요.. 아시면 좀 가르쳐 주세요.. 부탁..



안녕하세요.



아래소스는 씨빌더용인데요. 쩝 워낙 빌더랑 델파이랑 궁합이 잘 맞으니



포팅, 분석은 문제가 없으실겁니다.



> How can I send some text from the C++BuilderApplication to Microsoft Word

> Application?



Use the Variant class. For example:



#include



Variant wordApp;

// Start Word

if (wordApp.IsEmpty())

{

wordApp=Variant::CreateObject("Word.Application");

}

else

{

wordApp=GetActiveOleObject("Word.Application");

}

wordApp.OlePropertySet("Visible", (Variant) true);

// Open a file

Variant wordDocuments = wordApp.OlePropertyGet("Documents");

wordDocuments.OleProcedure("Open", (Variant) "c:myfile.txt");



--