QAxObject* WordApplication=new QAxObject("Word.Application"); // Создаю интерфейс к MSWordQAxObject* WordDocuments = WordApplication->querySubObject( "Documents()" ); // Получаю интерфейсы к его подобъекту "коллекция открытых документов":QAxObject* NewDocument = WordDocuments->querySubObject( "Add()" ); // Создаю новый документWordApplication->setProperty("Visible", true); // Делаем Word видимым
Selection.TypeText Text = "123456"
QAxObject* WordApplication=new QAxObject("Word.Application"); // Создаю интерфейс к MSWordQAxObject* WordDocuments = WordApplication->querySubObject( "Documents()" ); // Получаю интерфейсы к его подобъекту "коллекция открытых документов":WordDocuments->querySubObject( "Add()" ); // Создаю новый документ// отключение грамматикиQAxObject* Grammatic = WordApplication->querySubObject("Options()");Grammatic->setProperty("CheckSpellingAsYouType(bool)", false); // отключение грамматикиQAxObject* ActiveDocument = WordApplication->querySubObject("ActiveDocument()");QAxObject* Range = ActiveDocument->querySubObject("Range()");// создание таблицыQAxObject* Tables = ActiveDocument->querySubObject("Tables()");QAxObject* NewTable = Tables->querySubObject("Add(Range, NumRows, NumColumns, DefaultTableBehavior, AutoFitBehavior)", ActiveDocument->dynamicCall("Range()"), 4, 4, 1, 1);// запись текста в ячейкуQAxObject* Cell = NewTable->querySubObject("Cell(Row, Column)", 1,1);QAxObject* CellRange = Cell->querySubObject("Range()");CellRange->dynamicCall("InsertAfter(Text)", "Это ячейка 1:1");