Скачать: CL | DM;

Ворд. Макрос. При ворд=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");//вставляем в объединенную ячейку текст

---

← →
Andy BitOff ©   (2006-02-14 18:58) [4]

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.013 c