Variant Word;
Word = CreateOleObject("Word.Application.8");
Word.Exec(PropertySet("Visible") << true);
//Word.Exec(PropertySet("WindowState") << 1);
//вот оно
Word.Exec(PropertyGet("Documents")).Exec(Procedure("Open") << "InFile.doc" << false);
...
Открытие Word без WordApplication
Подскажите, пожалуйста, код открытия вордовского документа с использованием OLE через OpenDialog1->FileName.
Везде коды на Делпфи и не тог, что мне нужно.
Заранее благодарна!
Везде коды на Делпфи и не тог, что мне нужно.
Заранее благодарна!
Цитата:
Originally posted by richel
Подскажите, пожалуйста, код открытия вордовского документа с использованием OLE через OpenDialog1->FileName.
Везде коды на Делпфи и не тог, что мне нужно.
Заранее благодарна!
Подскажите, пожалуйста, код открытия вордовского документа с использованием OLE через OpenDialog1->FileName.
Везде коды на Делпфи и не тог, что мне нужно.
Заранее благодарна!
запускаете Word, в нем ставите на запись макрос, делаете все, что вам нужно и смотрите чего получилось...
Код:
Спасибо большое! В итоге у меня получилось:
Скажите пожалуйста, когда пишут Word.Application.10, это какая версия Ворда?
Код:
if(!OpenDialog1->Execute()) return;
AnsiString fname;
fname = OpenDialog1->FileName;
Wapp = CreateOleObject("Word.Application.8");
Wapp.Exec(PropertySet("Visible") << true);
Wapp.Exec(PropertySet("WindowState") << 1);
Wapp.Exec(PropertyGet("Documents")).Exec(Procedure("Open") << fname.c_str() << false);
AnsiString fname;
fname = OpenDialog1->FileName;
Wapp = CreateOleObject("Word.Application.8");
Wapp.Exec(PropertySet("Visible") << true);
Wapp.Exec(PropertySet("WindowState") << 1);
Wapp.Exec(PropertyGet("Documents")).Exec(Procedure("Open") << fname.c_str() << false);
Скажите пожалуйста, когда пишут Word.Application.10, это какая версия Ворда?
Цитата:
Originally posted by richel
Спасибо большое! В итоге у меня получилось:
Скажите пожалуйста, когда пишут Word.Application.10, это какая версия Ворда?
Спасибо большое! В итоге у меня получилось:
Код:
if(!OpenDialog1->Execute()) return;
AnsiString fname;
fname = OpenDialog1->FileName;
Wapp = CreateOleObject("Word.Application.8");
Wapp.Exec(PropertySet("Visible") << true);
Wapp.Exec(PropertySet("WindowState") << 1);
Wapp.Exec(PropertyGet("Documents")).Exec(Procedure("Open") << fname.c_str() << false);
AnsiString fname;
fname = OpenDialog1->FileName;
Wapp = CreateOleObject("Word.Application.8");
Wapp.Exec(PropertySet("Visible") << true);
Wapp.Exec(PropertySet("WindowState") << 1);
Wapp.Exec(PropertyGet("Documents")).Exec(Procedure("Open") << fname.c_str() << false);
Скажите пожалуйста, когда пишут Word.Application.10, это какая версия Ворда?
ХР
Цитата:
Originally posted by GIZMO
ХР
ХР
Спасибо, все ясно. Можно написать просто Application. Ошибки нет.
Цитата:
Originally posted by richel
Спасибо, все ясно. Можно написать просто Application. Ошибки нет.
Спасибо, все ясно. Можно написать просто Application. Ошибки нет.
Да. Так можно если не знаешь версию Word. Также можно приконнектится к уже запущенному Word - GetActiveOleObject(). Еще ИМХО (смешное слово) TWordApplication лучше не пользоваться, это жирный тормоз который только демонстрирует возможности TLIBIMP.ехе и не более того.
Цитата:
Originally posted by GIZMO
Да. Так можно если не знаешь версию Word. Также можно приконнектится к уже запущенному Word - GetActiveOleObject(). Еще ИМХО (смешное слово) TWordApplication лучше не пользоваться, это жирный тормоз который только демонстрирует возможности TLIBIMP.ехе и не более того.
Да. Так можно если не знаешь версию Word. Также можно приконнектится к уже запущенному Word - GetActiveOleObject(). Еще ИМХО (смешное слово) TWordApplication лучше не пользоваться, это жирный тормоз который только демонстрирует возможности TLIBIMP.ехе и не более того.
Вот как раз мне и нужно рассчитать на любую версию Ворда.
В что касается TWordApplication, я его изучила прекрасно и умею создавать любые сложные отчеты. Вот в том и недостаток, что тормоз этого компонента ощутила в полной мере. С Экселом стала сразу работать через OLE сервер. Он отрабатывает все мгновенно. А вот в Ворде пошла по неправильному пути, поскольку, в основном, все рекомендации идут для WordApplication.
Еще раз спасибо за помощь.:)