Ворд. Макрос. При ворд=visible работает, а в фоне нет.

← →
Andy BitOff © (2006-02-14 13:57) [0]

Здравствуйте.
Такая ситуация. Есть таблица (47 колонок), добавляю в конец строку и заполняю. По достижении некоего места надо добавить строку, объединить ячейки, внести текст и продолжить дальше как и в начале.
Делаю следующее, при достижении ЭТОГО места (где надо объединить), добавляю две строки и далее так:
WordApp.Selection.Move(wdRow,-1); // WordApp.Selection.SelectRow; WordApp.Selection.Cells.Merge; WordApp.Selection.Font.Bold:=True; WordApp.Selection.ParagraphFormat.Alignment:= wdAlignParagraphLeft; WordApp.Selection.Text:="text"; // WordApp.Selection.Move(wdRow,1);
Если ворд отобажается, т.е. открыт и работа идет в визуальном представлении, все проходит на ура, а если ворд открыт в фоне (wordapp.visible:=False;), то вообще никак не отрабатывают строки ограниченные коментами.
Не подскажите, в чем может быть дело?
Отвечу на любые вопросы.
Зарание спасибо.

← →
umbra © (2006-02-14 14:03) [1]

если ворд не виден, то пользоваться свойством Selection не стоит, глюки могут быть самые странные. лучше пользоваться соответствующими коллекциями и диапазонами (Range)

← →
Andy BitOff © (2006-02-14 16:07) [2]

А нельзя ли показать как бы выглядел код, приведенный мной выше, с учетом ваших уточнений?

← →
umbra © (2006-02-14 17:26) [3]

точно сказать нельзя, так как неизвестно что с чем происходит. Но вот пример, как можно работать без Selection. mydoc здесь- документ ворд

var mytable, myrange: variant; myrange := mydoc.Content; myrange.Collapse(wdCollapseEnd); mytable := mydoc.Tables.Add(myrange, 3, 4);//вставляем таблицу 3х4 в конец документа mytable.Rows.Add;//добавляем строку в конец таблицы mytable.Rows[mytable.Rows.Count].Cells.Merge;//объединяем все ячейки в последней строке mytable.Rows[mytable.Rows.Count].Cells[1].Range.InsertAfter("merged cells");//вставляем в объединенную ячейку текст

Спасибо, завтра попробую.

Ворд. Макрос. При ворд=visible работает, а в фоне нет. Найти похожие ветки