| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Работа с Word [D5, WinXP]
Александр1 © (2005-01-15 10:01:00)Здравствуйте уважаемые мастера!
Ниже приведённый код якобы должен добавлять строку в таблицу word. Но он работает как-то не так. Он добавляет строки выше таблицы, а мне надо добавить в конце таблицы одну строку. Подскажите, как это можно сделать.
var j: Integer;
varcol: OleVariant;
...
j:=2;
varcol:=WordDocument1.Tables.Item(1).Columns.Item(j);
WordDocument1.Tables.Item(1).Columns.Add(varcol);
Заранее спасибо!
olookin (2005-01-22 02:54:00) [1][18] GanibalLector © (22.01.05 02:46)
Т.е. про обрящете не Вам...
olookin (2005-01-22 02:53:00) [2][18] GanibalLector © (22.01.05 02:46)
Применительно к данному я на все вопросы 100% ответов находил в помощи по VB для стандартной комплектации Оффиса... Ищите да обрящете....
GanibalLector (2005-01-22 02:46:00) [3]2 olookin © (22.01.05 02:39) [17]
Согласен.Хочу добавить,что на 80% своих вопросов ответы нахожу в поисковике ;)
olookin (2005-01-22 02:39:00) [4]Может и левое будет, но такие вещи я кажется без посторонней помощи осваивал.. Чего и атору темы желаю...
GanibalLector (2005-01-22 02:21:00) [5]Кстати,а ты создаешь новый или открываешь существующий?Это многое меняет!
GanibalLector (2005-01-22 02:10:00) [6]/WordDocument1.Save;
WordDocument1.Close;
Так чё-то не выходит. Ошибки не выдает, но и не сохраняет./
У меня все чудесно работает.Давай полный код,ща глянем...
MacroDenS (2005-01-21 21:51:00) [7]Сервис-макрос-записать...-указываешь имя макроса-выполняешь операцию типа сохранить-жмешь кнопку остановить запись
Далее:
Сервис-макрос-макросы-выбираешь по имени макрос который записал-жмешь изменить-в редакторе смотришь код
Александр1 (2005-01-21 21:17:00) [8]
>
> Запиши макрос и посмотри, как он выглядит.
А чё это такое если не сикрет и где его взять?
YurikGL (2005-01-21 07:34:00) [9]
> Александр1 (21.01.05 06:27) [11]
Запиши макрос и посмотри, как он выглядит.
Александр1 (2005-01-21 06:27:00) [10]Ну ладно большое спасибо всем за помощь. Всё-таки строчки добавляются в даблице как надо. Жалко что никак не получается сохранить word/
Александр1 (2005-01-18 10:40:00) [11]WordDocument1.Save;
WordDocument1.Close;
Так чё-то не выходит. Ошибки не выдает, но и не сохраняет.
Александр1 (2005-01-18 10:37:00) [12]А как программно закрыть Word?
olookin (2005-01-16 04:45:00) [13]Странно, а мне всегда казалось, что вместо
Doc1.Tables.Item(1).Rows.Add(EmptyParam);
надо
Doc1.Tables.Item[1].Rows.Add(EmptyParam);
GanibalLector (2005-01-16 01:59:00) [14]>Или еще вариант,сохрани документ и закрой.
Имеется ввиду программно.
GanibalLector (2005-01-16 01:58:00) [15]>щё почему-то при повторном нажатии на кнопку появляется сообщение, что документ якобы заблокирован пользователем
Ну,да.Это ж я для примера его не закрываю,а тебе вывожу.Что бы не было сообщения закрой Word,а потом на кнопку жми.Или еще вариант,сохрани документ и закрой.
Выбирать тебе...Удачи!
GanibalLector (2005-01-16 01:54:00) [16]Согласен с YurikGL [4]
WordApp := CreateOleObject('Word.Application');
WordApp.Documents.Open('C:\2.doc');
wordapp.visible:=true;
Doc1 := WordApp.ActiveDocument;
Doc1.Tables.Item(1).Rows.Add(EmptyParam);
WhereTable1End:=WordApp.ActiveDocument.Tables.Item(1).Range.End;
Doc1.Tables.Item(1).Cell(WhereTable1End,3).Range.Text:='GanibalLector';
WhereTable1End:=UnAssigned;
Doc1:=UnAssigned;
WordApp:=UnAssigned;
YurikGL (2005-01-15 18:12:00) [17]try
WordApplication1.Connect;
WordApplication1.Visible:=true;
//открытие документа и т.д....
WordApplication1.ActiveDocument.Tables.Item(1).Rows.Add(EmptyParam);
finally
WordApplication1.Disconnect;
end;
Александр1 (2005-01-15 18:02:00) [18]
> GanibalLector © (15.01.05 12:53) [2]
Спасибо большое, что откликнулся на мою просьбу!
Документ открывается! В нём в таблицу в 3-ю колонку записывается слово GanibalLector. Это всё конечно хорошо. Но он записывает слово в уже существующую последнюю сточку. А мне надо чтобы он ДОБАВЛЯЛ СТРОКУ В НИЗУ ТАБЛИЦЫ, а потом записывал туда, например, тоже самое слово.
Ещё почему-то при повторном нажатии на кнопку появляется сообщение, что документ якобы заблокирован пользователем.
GanibalLector (2005-01-15 12:53:00) [19]
var WordApp:Variant;
Doc1,WhereTable1End:OleVariant;
begin
WordApp := CreateOleObject('Word.Application');
WordApp.Documents.Open('C:\2.doc');
wordapp.visible:=true;
Doc1 := WordApp.ActiveDocument;
WhereTable1End:=WordApp.ActiveDocument.Tables.Item(1).Range.End;
Doc1.Tables.Item(1).Cell(WhereTable1End,3).Range.Text:='GanibalLector';
WhereTable1End:=UnAssigned;
Doc1:=UnAssigned;
WordApp:=UnAssigned;
end;
Александр1 (2005-01-15 11:53:00) [20]Чё никто с word не умеет работать?
| |
