Selection.MoveDown Unit:=wdLine, Count:=5
Selection.TypeParagraph
Создание нескольких таблиц в документе Word через OLE
Как создать несколько таблиц в документе Word через OLE?
Использую следующий код:
{
Variant Word, Document, Table;
Word = CreateOleObject("Word.Application.8");
Word.OlePropertySet("Visible", true);
Word.OlePropertyGet("Documents").OleProcedure("Add");
Document = Word.OlePropertyGet("Documents").OleFunction("Item", 1);
Document.OlePropertyGet("Tables").OleFunction("Add", Document.OleFunction("Range", 0, 0), 5, 5);
Document.OlePropertyGet("Tables").OleFunction("Add", Document.OleFunction("Range", 0, 0), 3, 3);
Table = Document.OlePropertyGet.("Tables").OleFunction("Item", 1);
}
При таком задании вторая таблица создается в первой ячейке первой таблицы. Что я делаю неправильно?
Использую следующий код:
{
Variant Word, Document, Table;
Word = CreateOleObject("Word.Application.8");
Word.OlePropertySet("Visible", true);
Word.OlePropertyGet("Documents").OleProcedure("Add");
Document = Word.OlePropertyGet("Documents").OleFunction("Item", 1);
Document.OlePropertyGet("Tables").OleFunction("Add", Document.OleFunction("Range", 0, 0), 5, 5);
Document.OlePropertyGet("Tables").OleFunction("Add", Document.OleFunction("Range", 0, 0), 3, 3);
Table = Document.OlePropertyGet.("Tables").OleFunction("Item", 1);
}
При таком задании вторая таблица создается в первой ячейке первой таблицы. Что я делаю неправильно?
Цитата: AleksP
Как создать несколько таблиц в документе Word через OLE?
Использую следующий код:
{
Variant Word, Document, Table;
Word = CreateOleObject("Word.Application.8");
Word.OlePropertySet("Visible", true);
Word.OlePropertyGet("Documents").OleProcedure("Add");
Document = Word.OlePropertyGet("Documents").OleFunction("Item", 1);
Document.OlePropertyGet("Tables").OleFunction("Add", Document.OleFunction("Range", 0, 0), 5, 5);
Document.OlePropertyGet("Tables").OleFunction("Add", Document.OleFunction("Range", 0, 0), 3, 3);
Table = Document.OlePropertyGet.("Tables").OleFunction("Item", 1);
}
При таком задании вторая таблица создается в первой ячейке первой таблицы. Что я делаю неправильно?
Использую следующий код:
{
Variant Word, Document, Table;
Word = CreateOleObject("Word.Application.8");
Word.OlePropertySet("Visible", true);
Word.OlePropertyGet("Documents").OleProcedure("Add");
Document = Word.OlePropertyGet("Documents").OleFunction("Item", 1);
Document.OlePropertyGet("Tables").OleFunction("Add", Document.OleFunction("Range", 0, 0), 5, 5);
Document.OlePropertyGet("Tables").OleFunction("Add", Document.OleFunction("Range", 0, 0), 3, 3);
Table = Document.OlePropertyGet.("Tables").OleFunction("Item", 1);
}
При таком задании вторая таблица создается в первой ячейке первой таблицы. Что я делаю неправильно?
Выделение (Selection) после создания первой таблицы на ней (первой ячейке). Прежде чем создавать вторую таблицу надо уйти с первой.
ЗЫ: Используй запись и анализ макросов в WordBasik (это эффективней чем слать сообщение по всем форумам)
Код: