Работа с Word и Excel

@301sem · Регистрация: 21.01.2021

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

Привет.
Подскажите, как лучше всего работать с офисом? исходная таблица в Эксель, нужно данные отобразить в Stringgrid, проделать несколько действий и перенести в Word. Данных много. Стандартными способами получается ужасно долго и муторно. Например:

Delphi
1
2
.rows.add;
.cell(i,j).range.text:='';

и т.д.
Подскажите, есть же наверно какие-то компоненты, библиотеки или еще что-то для более комфортной работы с офисом.
Потому что работа с таблицами в Ворде, это что-то нечто.
Как добавлять в таблицу сразу много строк разобрался, быстро работает, а вот если нужно объединять - ....

@Пытливый · 08.11.2021, 13:56

Сообщение от 301sem

Как-то можно ускорить это?

Ищите команды отключения вывода на экран, проверки орфографии и другие фоновые задачи ворда.

@301sem · 08.11.2021, 15:14 **[ТС]**

Delphi
1
2
3
Word.Options.CheckSpellingAsYouType:=False;
Word.Options.CheckGrammarAsYouType:=False;
Word.ScreenUpdating := False;

время обработки не уменьшилось

Добавлено через 52 минуты

Delphi
1
2
3
R:=Word.ActiveDocument.Tables.Item(4).Range;
R.Move(1,1);
R.text := memo1.Text;

Вставляю текст из Memo после таблицы. Подскажите, как теперь выделить этот текст?

@Пытливый · 08.11.2021, 15:31

Добавьте еще:

Delphi
1
   WordApp.WordBasic.DisableAutoMacros;

И замените имя Word на WordApp. Использовать имя Word как-то не кашерно, это тип в Дельфи.

@301sem · 08.11.2021, 15:39 **[ТС]**

Сообщение от Пытливый

В общем есть такой интересный финт в ворде. Вы формируете строку содержащую разделители колонок и строк, типа CSV-файла. Вставляете ее как текст, а после этого специальной командой Selection.ConvertToTable преобразуете ее в таблицу.

Это все равно в разы быстрее работает. Лучше так. Но возникает этот вопрос:

Вставляю текст из Memo после таблицы. Подскажите, как теперь выделить этот текст?

Добавлено через 47 секунд

Сообщение от Пытливый

Delphi
1
WordApp.WordBasic.DisableAutoMacros;

на 2 секунды быстрее

Добавлено через 44 секунды

Сообщение от Пытливый

И замените имя Word на WordApp. Использовать имя Word как-то не кашерно, это тип в Дельфи.

Заменю

@Пытливый · 08.11.2021, 16:04

Сообщение от 301sem

Вставляю текст из Memo после таблицы. Подскажите, как теперь выделить этот текст?

Включаете запись макросов в ворде. Делаете вставку. Отключаете запись и смотрите, что получилось в макросе. Экспортируете эти команды в дельфи - все.

@301sem · 08.11.2021, 17:35 **[ТС]**

и еще вопрос:

Delphi
1
2
3
4
5
6
7
l1 := TStringList.Create;
for i:= 1 to Pred(StringGrid1.RowCount) do
  begin
    StringGrid1.Rows[i].StrictDelimiter:= true;
    StringGrid1.Rows[i].Delimiter:= ';';
    l1.Add(StringGrid1.Rows[i].DelimitedText);
  end;

получается строка типа текст1;текст2;текст3;текст4.
А как сделать чтобы получилось текст1;текст2 текст3 текст4?

@Пытливый · 08.11.2021, 18:23

Так можно попробовать:

Delphi
1
2
3
4
    StringGrid1.Rows[i].StrictDelimiter:= true;
    StringGrid1.Rows[i].Delimiter:= ' ';
    StringGrid1.Rows[i][1] := StringGrid1.Rows[i][1] + ';';
    l1.Add(StringGrid1.Rows[i].DelimitedText);

@301sem · 09.11.2021, 11:10 **[ТС]**

Спасибо.
А как можно объединение ячеек ускорить. Таблица создается за 4-5 секунд, а если объединяю ячейки 1 минута и 8 секунд. Объединяю так

Delphi
1
2
3
4
5
for i := 1 to StringGrid1.RowCount-1 do
  begin
  WordApp.ActiveDocument.Tables.Item(6).cell(i*12-11,1).merge(WordApp.ActiveDocument.Tables.Item(6).cell(i*12,1));
  WordApp.ActiveDocument.Tables.Item(6).cell(i*12-11,2).merge(WordApp.ActiveDocument.Tables.Item(6).cell(i*12,2));
  end;

Новые блоги и статьи Все статьи Все блоги /
Запустил конкурс "тем и промптов для текстовых квестов созданных почти чисто ИИ" Adler 06.10.2026 Всем привет! За последние три-четыре дня я создал более 16 текстовых квестовых игр используя преимущественно по одному запросу к ИИ на игру. Мне так понравилось смотреть все ветки/ сцены во всех. . .	ИИ не может найти нужный язык в списке Supersumestria 05.10.2026 Я ему даю вот такое изображение и прошу найти и подчеркнуть немецкий язык. Возвращает он вот это: https:/ / i. **********/ vqBWLe2. png Нужную строчку в 3й колонке просто выдумал. . Это. . .	Новая последняя моя музыка в SUNO zorxor 05.10.2026 Здравствуйте, дорогие мои друзья! С большой радостью я хотел бы представить вам свою новую последнею музыку, которую сгенерировала мне по моей просьбе нейросеть SUNO. С уважением, zorxor. Это. . .	Программный домашний кинотеатр 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 и пр. Работая с форумом и нейросетями в браузере часто хочется что-то подкорректировать или добавить какого-то функционала. Ниже прикреплён. . .