Компоненты в закладке "Servers"
Уважаемый All.
Подскажите, кто знает, как при помощи компоненты WordApplication открыть существующий документ Word.
Делаю так :
WideString FileName="c:\\tmp\\1.doc";
OleVariant ConfirmConversions=false;
OleVariant ReadOnly=true;
OleVariant AddToRecentFiles=EmptyParam;
OleVariant PasswordDocument=EmptyParam;
OleVariant PasswordTemplate=EmptyParam;
OleVariant Revert=EmptyParam;
OleVariant WritePasswordDocument=EmptyParam;
OleVariant WritePasswordTemplate=EmptyParam;
OleVariant Format=wdOpenFormatAuto;
OleVariant Encoding=EmptyParam;
OleVariant Visible=true;
OleVariant prop=0;
WordApplication->Documents->Open(FileName,
ConfirmConversions,
ReadOnly,
AddToRecentFiles,
PasswordDocument,
PasswordTemplate,
Revert,
WritePasswordDocument,
WritePasswordTemplate,
Format,
Encoding,
Visible,
prop);
При компиляции выдает ошибку о несоответствии.
[C++ Error] Main.cpp(87): E2285 Could not find a match for 'Documents::Open(WideString,OleVariant,OleVariant,OleVariant,OleVariant,OleVariant,OleVariant,OleVariant,OleVariant,OleVariant,OleVariant,OleVariant,OleVariant)'
Подскажите, кто знает, как при помощи компоненты WordApplication открыть существующий документ Word.
Делаю так :
WideString FileName="c:\\tmp\\1.doc";
OleVariant ConfirmConversions=false;
OleVariant ReadOnly=true;
OleVariant AddToRecentFiles=EmptyParam;
OleVariant PasswordDocument=EmptyParam;
OleVariant PasswordTemplate=EmptyParam;
OleVariant Revert=EmptyParam;
OleVariant WritePasswordDocument=EmptyParam;
OleVariant WritePasswordTemplate=EmptyParam;
OleVariant Format=wdOpenFormatAuto;
OleVariant Encoding=EmptyParam;
OleVariant Visible=true;
OleVariant prop=0;
WordApplication->Documents->Open(FileName,
ConfirmConversions,
ReadOnly,
AddToRecentFiles,
PasswordDocument,
PasswordTemplate,
Revert,
WritePasswordDocument,
WritePasswordTemplate,
Format,
Encoding,
Visible,
prop);
При компиляции выдает ошибку о несоответствии.
[C++ Error] Main.cpp(87): E2285 Could not find a match for 'Documents::Open(WideString,OleVariant,OleVariant,OleVariant,OleVariant,OleVariant,OleVariant,OleVariant,OleVariant,OleVariant,OleVariant,OleVariant,OleVariant)'
Этот код запустит Word и диалоговое окно для открытия документа:
WordApplication1->Visible = true;
if (WordApplication1->Dialogs->Item(wdDialogFileOpen)->Show(EmptyParam) == -1)
WordDocument1->ConnectTo(WordApplication1
->ActiveDocument);
WordApplication1->Visible = true;
if (WordApplication1->Dialogs->Item(wdDialogFileOpen)->Show(EmptyParam) == -1)
WordDocument1->ConnectTo(WordApplication1
->ActiveDocument);
Цитата:
Originally posted by Belka
Этот код запустит Word и диалоговое окно для открытия документа:
WordApplication1->Visible = true;
if (WordApplication1->Dialogs->Item(wdDialogFileOpen)->Show(EmptyParam) == -1)
WordDocument1->ConnectTo(WordApplication1
->ActiveDocument);
Этот код запустит Word и диалоговое окно для открытия документа:
WordApplication1->Visible = true;
if (WordApplication1->Dialogs->Item(wdDialogFileOpen)->Show(EmptyParam) == -1)
WordDocument1->ConnectTo(WordApplication1
->ActiveDocument);
Большое спасибо за пример, но хотелось бы услышать (увидеть) пример без запуска диалога, а на прямую из программы ( WordApplication->Documents->Open(....) ). Если кто-то знает - ответье пожалуйста.
Спасибо за неоказанную помощь. Разобрался сам.X)-
Кому интересно :
OleVariant Filename,oldStr,newStr,replace,ext;
AnsiString FileName;
FileName="c:\\tmp\\1.DOC";
Filename=FileName;
WordApplication->Documents->Open(Filename,EmptyParam, EmptyParam,EmptyParam,
EmptyParam,EmptyParam,EmptyParam,EmptyParam,
EmptyParam);
С ув. Олег.
Кому интересно :
OleVariant Filename,oldStr,newStr,replace,ext;
AnsiString FileName;
FileName="c:\\tmp\\1.DOC";
Filename=FileName;
WordApplication->Documents->Open(Filename,EmptyParam, EmptyParam,EmptyParam,
EmptyParam,EmptyParam,EmptyParam,EmptyParam,
EmptyParam);
С ув. Олег.