Вывод информации в ячейки 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, спасибо!

Новые блоги и статьи Все статьи Все блоги /
Программный домашний кинотеатр russiannick 27.09.2026 Сподобился на программный домашний кинотеатр. В качестве ЯВУ по традиции выбрал js. В помощники взял Яндекс-Алису. Было создано три зала на разные интересы. исторические и ретро сериал Хичкок. . .	Беседа с ИИ о программистах, недопускающих к созданию и правке кода генеративные ИИ и причины этого zorxor 21.09.2026 Раньше я радовался или получал некоторые эмоции, пусть небольшие, но всё же, от самого процесса написания кода, рекомпиляции и запуска, видя постепенное развитие программы и прочее. А теперь лень. . .	Мобильное приложение ColorStep pavlinmavlin 17.09.2026 Реализовал приложение Красный, Зеленый, Синий в Unity3d + c#. Название изменил на ColorStep. Приложение прошло модерацию и теперь доступно для скачивания. Делал его сам, шаг за шагом — и вот,. . .	Запрет дублирования строк в табличной части Maks 13.09.2026 Реализация из решения ниже выполнена на нетиповом справочнике "Нормы ТО" с табличной часть "Виды ТО", разработанного в КА2, со следующими реквизитами: - ВидТО (СправочникСсылка. ВидыТО); - ВидГСМ. . .
Скрипты Tampermonkey для CyberForum, ChatGPT, Claude и пр. Jin X 06.09.2026 Скрипты Tampermonkey для CyberForum, ChatGPT, Claude и пр. Работая с форумом и нейросетями в браузере часто хочется что-то подкорректировать или добавить какого-то функционала. Ниже прикреплён. . .	Программа опроса у.з. расходомера SLS-720F Argus19 02.09.2026 Программа опроса у. з. расходомера SLS-720F Программа опрашивает один раз в минуту три ультразвуковых расходомера SLS-720F через интерфейс RS-485 по протоколу Modbus RTU. Опрашиваются регистры. . .	Hyper-V: Компьютер должен поддерживать доверенный платформенный модуль 2.0. Maks 31.08.2026 При установке Windows 11 на виртуальную машину Hyper-V 2-го поколения вылезла такая ошибка: Решение: в параметрах виртуальной машины, в разделе "Безопасность" (Security) активировать флаг. . .	Архитектура биовида Стива в Майнкрафте: Зачем бонобо кубический каннибализм anaschu 30.08.2026 Кубический Вагинокапитализм в Minecraft: Математический инвариант ОДУ и рок Стивов-бонобо Главная задача разработанной «Модели Всего» — наглядно продемонстрировать наличие системной «судьбы». . .

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

	Вывод информации в ячейки Word 20.04.2011, 10:09. Показов 5803. Ответов 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