Вывод информации в ячейки Word

@starkiller · Регистрация: 04.02.2011

Студворк — интернет-сервис помощи студентам

Имеется таблица в Word. Нужно посчитать произведение введенных значений в ячейки!
Нашел информацию как это сделать в Excel, а как реализовать в Word не знаю!
http://wladm.narod.ru/Borland/excel.html#4

@starkiller · 21.04.2011, 11:43 **[ТС]**

Sasha, поле называется Kolichestvo, тип поля Integer.

@Sasha · 21.04.2011, 12:00

Код будет выглядеть таким образом

C++
1
2
3
4
5
6
 int Kol = 0;
 ADOQuery1->Close();
 ADOQuery1->SQL->Clear();
 ADOQuery1->SQL->Add("SELECT SUM(Kolichestvo) AS sumarnost  FROM имя_таблицы");
 ADOQuery1->Open();
 Kol = ADOQuery1->FieldByName("sumarnost")->AsInteger;

@starkiller · 21.04.2011, 12:15 **[ТС]**

Sasha, все работает, только он считает сумму по полю Kolichestvo таблицы, которая находится в БД, а мне нужно посчитать сумму по полю таблицы, которая находится в Word!

@Sasha · 21.04.2011, 12:28

Мдаааааааа, а чё ты сразу не сказал? я думал ты взял за пример который тебе сказал LK.

По твоей просьбе прям не знаю что и сказать. В ворде и так не возможно посчитать сумму. Хитроумных уловок я не знаю.

@starkiller · 21.04.2011, 12:33 **[ТС]**

Sasha, мне тут посоветовали, либо сохранять в массив, то, что вывожу, либо последовательно суммировать в переменной, а после выводить эти переменные!?

@Sasha · 21.04.2011, 12:42

Сообщение от starkiller

Sasha, мне тут посоветовали, либо сохранять в массив, то, что вывожу, либо последовательно суммировать в переменной, а после выводить эти переменные!?

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

@starkiller · 21.04.2011, 12:45 **[ТС]**

Sasha, да, думаю что так!

@Sasha · 21.04.2011, 12:52

Ну тогда я не представляю как можно отловить ввод цифр в таблицу ворда....... Тоесть это как-то соединять 2 проги твою и сам ворд. Скажу честно для меня это из области фантастики.

Добавлено через 1 минуту
Это надо отлавливать нажатие клавишь

@starkiller · 21.04.2011, 12:58 **[ТС]**

Sasha, вот код:

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
void __fastcall TForm1::Button1Click(TObject *Sender)
{
vVarDocs = vVarApp.OlePropertyGet("Documents");
vVarDoc = vVarDocs.OleFunction("Item",1);
Variant vVarTable = vVarDoc.OlePropertyGet("Tables").OleFunction("Item",1);
vVarCell = vVarTable.OleFunction("Cell",i+1,1);
vVarCell.OlePropertyGet("Range").OlePropertySet("Text",i);
vVarCell = vVarTable.OleFunction("Cell",i+1,2);
vVarCell.OlePropertyGet("Range").OlePropertySet("Text",ADOTable1->FieldByName("Naimenovanie")->AsString.c_str());
vVarCell = vVarTable.OleFunction("Cell",i+1,3);
vVarCell.OlePropertyGet("Range").OlePropertySet("Text",ADOTable1->FieldByName("EdIzmer")->AsString.c_str());
vVarCell = vVarTable.OleFunction("Cell",i+1,4);
vVarCell.OlePropertyGet("Range").OlePropertySet("Text",a = ADOTable1->FieldByName("Kolichestvo")->AsInteger);
vVarCell = vVarTable.OleFunction("Cell",i+1,5);
vVarCell.OlePropertyGet("Range").OlePropertySet("Text",b = ADOTable1->FieldByName("Symma")->AsFloat);
vVarCell = vVarTable.OleFunction("Cell",i+1,6);
vVarCell.OlePropertyGet("Range").OlePropertySet("Text",c = a * b);
i++;
}

здесь я считаю произведение двух соседних ячеек таблицы! А в конце таблицы, мне надо вывести итоговую сумму по столбцам "количество", "цена", "сумма"!
Вот документ http://hdd.tomsk.ru/file/kgadidyj

@Sasha · 21.04.2011, 13:45

Сообщение от starkiller

Вот документ http://hdd.tomsk.ru/file/kgadidyj

Ссылка битая

Сообщение от starkiller

А в конце таблицы, мне надо вывести итоговую сумму по столбцам "количество", "цена", "сумма"!

Так в чём заключается моя помощь?

@starkiller · 21.04.2011, 14:03 **[ТС]**

Sasha, помогите с массивом разобраться, те значения, которые я заношу в таблицу, надо и в массив заносить, а потом посчитать его сумму! Идея то мне понятна, а вот как на деле реализовать, не представляю?!

@Sasha · 21.04.2011, 14:08

Я же тебе написал 2-мя постами выше объяснение всему этому

@starkiller · 21.04.2011, 14:13 **[ТС]**

Sasha, буду думать!
Вот еще такой вопрос, как сделать, скажим если у меня была нажата кнопка, то переменой присваивается какое-то значение?!
Делаю вот так, но не работает

C++
1
2
if(Button5->Click())
{k=0;}

@Sasha · 21.04.2011, 14:18

В каком обработчике события ты это пишешь?

@starkiller · 21.04.2011, 14:19 **[ТС]**

FormCreate
А где надо писать?!

@Sasha · 21.04.2011, 14:23

C++
1
2
3
4
5
6
int k; //объявляешь глобально
 
 void __fastcall TForm1::Button5Click(TObject *Sender)
{
  k=0;
}

@starkiller · 21.04.2011, 14:25 **[ТС]**

Sasha, спасибо!

Новые блоги и статьи Все статьи Все блоги /
Отправка уведомления на почту при изменении наименования справочника Maks 24.03.2026 Программная отправка письма электронной почты на примере изменения наименования типового справочника "Склады" в конфигурации БП3. Перед реализацией необходимо выполнить настройку системной учетной. . .	модель ЗдравоСохранения 5. Меньше увольнений- больше дохода! anaschu 24.03.2026 Теперь система здравосохранения уменьшает количество увольнений. 9TO2GP2bpX4 a42b81fb172ffc12ca589c7898261ccb/ https:/ / rutube. ru/ video/ a42b81fb172ffc12ca589c7898261ccb/ Слева синяя линия -. . .	Midnight Chicago Blues kumehtar 24.03.2026 Такой Midnight Chicago Blues, знаешь?. . Когда вечерние улицы становятся ночными, а ты не можешь уснуть. Ты идёшь в любимый старый бар, и бармен наливает тебе виски. Ты смотришь на пролетающие. . .	Контроль уникальности заводского номера - вариант №2 Maks 24.03.2026 В отличие от предыдущего варианта добавлено прерывание циклов, также добавлены новые переменные для сохранения контекста ошибки перед прерыванием цикла: Процедура ПередЗаписью(Отказ, РежимЗаписи,. . .
SDL3 для Desktop (MinGW): Вывод текста со шрифтом TTF с помощью библиотеки SDL3_ttf на Си и C++ 8Observer8 24.03.2026 Содержание блога Финальные проекты на Си и на C++: finish-text-sdl3-c. zip finish-text-sdl3-cpp. zip	Жизнь в неопределённости kumehtar 23.03.2026 Жизнь — это постоянное существование в неопределённости. Например, даже если у тебя есть список дел, невозможно дойти до точки, где всё окончательно завершено и больше ничего не осталось. В принципе,. . .	Модель здравоСохранения: работники работают быстрее после её введения. anaschu 23.03.2026 geJalZw1fLo Корпорация до введения программа здравоохранения имела много невыполненных работниками заданий, после введения программы количество заданий выросло. Но на выплатах по больничным это. . .	Контроль уникальности заводского номера - вариант №1 Maks 23.03.2026 Алгоритм контроля уникальности заводского (или серийного) номера на примере нетипового документа выдачи шин для спецтехники с табличной частью, разработанного в конфигурации КА2. Данные берутся из. . .

@starkiller 71 / 5 / 0 Регистрация: 04.02.2011 Сообщений: 100

	Вывод информации в ячейки Word 20.04.2011, 10:09. Показов 5591. Ответов 36 Метки нет (Все метки) Имеется таблица в Word. Нужно посчитать произведение введенных значений в ячейки! Нашел информацию как это сделать в Excel, а как реализовать в Word не знаю! http://wladm.narod.ru/Borland/excel.html#4 0

@starkiller 71 / 5 / 0 Регистрация: 04.02.2011 Сообщений: 100
	21.04.2011, 11:43 [ТС]
	Sasha, поле называется Kolichestvo, тип поля Integer. 0

@starkiller 71 / 5 / 0 Регистрация: 04.02.2011 Сообщений: 100
	21.04.2011, 12:15 [ТС]
	Sasha, все работает, только он считает сумму по полю Kolichestvo таблицы, которая находится в БД, а мне нужно посчитать сумму по полю таблицы, которая находится в Word! 0

@Sasha 4956 / 2420 / 531 Регистрация: 05.06.2008 Сообщений: 7,518 Записей в блоге: 3
	21.04.2011, 12:28
	Мдаааааааа, а чё ты сразу не сказал? я думал ты взял за пример который тебе сказал LK. По твоей просьбе прям не знаю что и сказать. В ворде и так не возможно посчитать сумму. Хитроумных уловок я не знаю. 1

@starkiller 71 / 5 / 0 Регистрация: 04.02.2011 Сообщений: 100
	21.04.2011, 12:33 [ТС]
	Sasha, мне тут посоветовали, либо сохранять в массив, то, что вывожу, либо последовательно суммировать в переменной, а после выводить эти переменные!? 0

@starkiller 71 / 5 / 0 Регистрация: 04.02.2011 Сообщений: 100
	21.04.2011, 12:45 [ТС]
	Sasha, да, думаю что так! 0

@Sasha 4956 / 2420 / 531 Регистрация: 05.06.2008 Сообщений: 7,518 Записей в блоге: 3
	21.04.2011, 12:52
	Ну тогда я не представляю как можно отловить ввод цифр в таблицу ворда....... Тоесть это как-то соединять 2 проги твою и сам ворд. Скажу честно для меня это из области фантастики. Добавлено через 1 минуту Это надо отлавливать нажатие клавишь 1

@starkiller 71 / 5 / 0 Регистрация: 04.02.2011 Сообщений: 100
	21.04.2011, 14:03 [ТС]
	Sasha, помогите с массивом разобраться, те значения, которые я заношу в таблицу, надо и в массив заносить, а потом посчитать его сумму! Идея то мне понятна, а вот как на деле реализовать, не представляю?! 0

@Sasha 4956 / 2420 / 531 Регистрация: 05.06.2008 Сообщений: 7,518 Записей в блоге: 3
	21.04.2011, 14:08
	Я же тебе написал 2-мя постами выше объяснение всему этому 1

@Sasha 4956 / 2420 / 531 Регистрация: 05.06.2008 Сообщений: 7,518 Записей в блоге: 3
	21.04.2011, 14:18
	В каком обработчике события ты это пишешь? 1

@starkiller 71 / 5 / 0 Регистрация: 04.02.2011 Сообщений: 100
	21.04.2011, 14:19 [ТС]
	FormCreate А где надо писать?! 0

@starkiller 71 / 5 / 0 Регистрация: 04.02.2011 Сообщений: 100
	21.04.2011, 14:25 [ТС]
	Sasha, спасибо! 0