Вставка jpg-изображений из папки в Word

@log · Регистрация: 07.03.2009

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

Доброго времени суток!

Коллеги собираюсь написать программу, которая бы из папки в которой находятся картинки, грузила их в документ Word.
Причем перед каждой картинкой в ворде была подпись - наименование рисунка.

Кто нибудь писал что то подобное?
Какие варианты можете предложить?
Интересно с вами посоветоваться.

@log · 09.08.2011, 20:31 **[ТС]**

Хорошо, завтра по поводу ошибки отпишусь

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

Вместо ДЕСТРУКТОР УМА напиши КИБЕР БОГ

Это вам быть кибер богом суждено)

@log · 11.08.2011, 14:57 **[ТС]**

Ничего не понимаю.
Не смотря на то что заменил код вылетает по прежнему месбокс с тектом ошибка.

а не может быть проблемы в разнице ОС?

@Sasha · 11.08.2011, 19:23

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

Ничего не понимаю.
Не смотря на то что заменил код вылетает по прежнему месбокс с тектом ошибка.

а не может быть проблемы в разнице ОС?

Нажми Build проекта после того как поменяешь код.

А что там за операционка?

@log · 12.08.2011, 15:37 **[ТС]**

XP

у меня работает на Vista.

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

Нажми Build проекта после того как поменяешь код.

Сделаю, завтра отпишусь.
И заодно попробую запустить программу на 7-ке, хр и на другом ком-ре где виста и поэкспериментировать с компьютерами которые находятся в локальных сетях и у которых ограниченные права.

Добавлено через 20 часов 2 минуты
Вообщем даже после builda по-прежнему "Ошибка".

Sasha, попробовал убрать добавление картинок и подписей. оставил лишь создание ворд документа.

Все пашет. Может быть дело в шаблоне ворда. Normal.dot. И на тех компах где вылетает ошибка, они подключены в сеть с ограниченными правами и может быть не разрешено менять этот шаблон и изза этого появляется ошибка.

Еще попробую запустить и посмотреть что будет. К вечеру дам знать.

@log · 13.08.2011, 17:18 **[ТС]**

Вообщем ошибка по-прежнему вылетает. На любом компе кроме моего...

Все таки думаю дело в шаблоне..

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

C++
1
 Word = CreateOleObject("Word.Application");

Документ будет создаваться несмотря на любую версию ворда?

@Sasha · 14.08.2011, 00:44

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

Документ будет создаваться несмотря на любую версию ворда?

Да будет создаваться

Добавлено через 8 минут
Прочти
http://wladm.narod.ru/Borland/word.html

@log · 16.08.2011, 10:05 **[ТС]**

Sasha, проверил на разных ком-рах.
Пашет только на моем..
И как я понимаю на вашем.
Может дело в версии билдера? Или может в каких патчах?

@Sasha · 16.08.2011, 14:30

Скинь сюда свой проект я гляну, что там у тебя

@log · 16.08.2011, 16:10 **[ТС]**

На форме Вutton и OleContainer.
С папкой image с картинками jpg на диске D

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
void __fastcall TForm1::Button1Click(TObject *Sender)
{
 TStringList *b = new TStringList();
  b->Clear();
  b->Sorted = true;
  AnsiString str,Path = "D:\\image\\*.jpg";
 
  TSearchRec sr;
  int iAttributes = faAnyFile;
  int done = FindFirst( Path, iAttributes, sr );
  while(!done)
 {
  b->Add(sr.Name);
  done = FindNext(sr);
 }
 
  FindClose(sr);
 
 Variant vVarParagraph,Var,Dms,Word;
 Word = CreateOleObject("Word.Application");
 Word.OlePropertySet("Visible", false);
 Variant Doc = Word.OlePropertyGet("Documents");
 Doc.OleProcedure("Add");
 
 if(Doc.OlePropertyGet("Count") != 1)
 {
  //MessageBox(0, "Ошибка при создании документов",
  //               "Ошибка", MB_OK);
    ShowMessage(SysErrorMessage(GetLastError()));
   return;
 }
 Dms=Doc.OleFunction("Item",1);
 //Смотреть будем тоже на первый документ
 Dms.OleProcedure("Activate");
 Var=Dms.OlePropertyGet("Paragraphs");
 
 int d = 0;
 for(int i = 0; i < b->Count;i++)
 {
  d++;
  Var.OleProcedure("Add");
  vVarParagraph=Var.OleFunction("Item",d);
  vVarParagraph.OlePropertyGet("Range").OlePropertyGet("InlineShapes").OleProcedure("AddPicture", (Path.SubString(1,3)+ b->Strings[i]).c_str(), false, true);
  vVarParagraph.OlePropertySet("Alignment",1);
  d++;
  str= b->Strings[i];
  Var.OleProcedure("Add");
  vVarParagraph=Var.OleFunction("Item",d);
  vVarParagraph.OlePropertyGet("Range").
               OlePropertySet("Text",str.c_str());
               vVarParagraph.OlePropertySet("Alignment",1);
 }
 
 Word.OlePropertySet("Visible", true);
 
 delete b;
 b = NULL;
 
}

@Sasha · 16.08.2011, 16:51

Я тебя просил не код сбросить, а проект со всеми юнитами и т.п

@log · 16.08.2011, 17:19 **[ТС]**

Прошу прощения, не так понял.
xx.rar

@Sasha · 16.08.2011, 17:50

Нашёл глюк дома проверю дам знать

@log · 16.08.2011, 17:55 **[ТС]**

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

Нашёл глюк дома проверю дам знать

буду ждать.
А вообще
Sasha у вас запускается проект?

@Sasha · 16.08.2011, 21:39

Ну во первых вверху добавь вот это

C++
1
2
3
#include <utilcls.h>
#include <sysvari.h>
#include "ComObj.hpp"

А во вторых вот код я его переделал

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
void __fastcall TForm2::Button3Click(TObject *Sender)
{
 TStringList *b = new TStringList();
  b->Clear();
  b->Sorted = true;
  AnsiString str,Path = "D:\\image\\*.jpg";
 
  TSearchRec sr;
  int iAttributes = faAnyFile;
  int done = FindFirst( Path, iAttributes, sr );
  while(!done)
 {
  b->Add(sr.Name);
  done = FindNext(sr);
 }
 
  FindClose(sr);
 
 Variant vVarParagraph,Var,Dms,Word;
 Word = CreateOleObject("Word.Application");
 Word.OlePropertySet("Visible", false);
 Variant Doc = Word.OlePropertyGet("Documents");
 Doc.OleProcedure("Add");
 
 if(Doc.OlePropertyGet("Count") != 1)
 {
  MessageBox(0, "Îøèáêà ïðè ñîçäàíèè äîêóìåíòîâ",
                 "Îøèáêà", MB_OK);
   return;
 }
 
 Dms=Doc.OleFunction("Item",1);
 //Ñìîòðåòü áóäåì òîæå íà ïåðâûé äîêóìåíò
 Dms.OleProcedure("Activate");
 Var=Dms.OlePropertyGet("Paragraphs");
 
 int d = 0;
 for(int i = 0; i < b->Count;i++)
 {
  d++;
  Var.OleProcedure("Add");
  vVarParagraph=Var.OleFunction("Item",d);
  vVarParagraph.OlePropertyGet("Range").OlePropertyGet("InlineShapes").OleProcedure("AddPicture", (Path.SubString(1,Path.Pos("*")-1)+ b->Strings[i]).c_str(), false, true);
  vVarParagraph.OlePropertySet("Alignment",1);
 
  d++;
  str= b->Strings[i];
  Var.OleProcedure("Add");
  vVarParagraph=Var.OleFunction("Item",d);
  vVarParagraph.OlePropertyGet("Range").
               OlePropertySet("Text",str.c_str());
               vVarParagraph.OlePropertySet("Alignment",1);
 }
 
 Word.OlePropertySet("Visible", true);
 
 delete b;
 b = NULL;
 
}

@log · 17.08.2011, 17:37 **[ТС]**

Спасибо
Sasha завтра отпишусь на счет программы.

Добавлено через 19 часов 45 минут
Да все идеально работает как часы.

Sasha, а вот к примеру подпись сделать...
"Рисунок(всегда такая надпись)" "N(номер загружаемого рисунка)" "-" "image(название файла только без .jpg)"

Нужно прописывать в части:

C++
1
2
3
4
5
6
str= b->Strings[i];
  Var.OleProcedure("Add");
  vVarParagraph=Var.OleFunction("Item",d);
  vVarParagraph.OlePropertyGet("Range").
               OlePropertySet("Text",str.c_str());
               vVarParagraph.OlePropertySet("Alignment",1);

?

@Sasha · 17.08.2011, 18:12

Ща подумаю

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

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
void __fastcall TForm1::Button1Click(TObject *Sender)
{
  TStringList *b = new TStringList();
  b->Clear();
  b->Sorted = true;
  AnsiString str,Path = "D:\\*.jpg";
 
  TSearchRec sr;
  int iAttributes = faAnyFile;
  int done = FindFirst( Path, iAttributes, sr );
  while(!done)
 {
  b->Add(ChangeFileExt(sr.Name,""));
  done = FindNext(sr);
 }
 
  FindClose(sr);
 
 Variant vVarParagraph,Var,Dms,Word;
 Word = CreateOleObject("Word.Application");
 Word.OlePropertySet("Visible", false);
 Variant Doc = Word.OlePropertyGet("Documents");
 Doc.OleProcedure("Add");
 
 if(Doc.OlePropertyGet("Count") != 1)
 {
  MessageBox(0, "Îøèáêà ïðè ñîçäàíèè äîêóìåíòîâ",
                 "Îøèáêà", MB_OK);
 
  return;
 }
 Dms=Doc.OleFunction("Item",1);
 //Ñìîòðåòü áóäåì òîæå íà ïåðâûé äîêóìåíò
 Dms.OleProcedure("Activate");
 Var=Dms.OlePropertyGet("Paragraphs");
 
 int d = 0,c = 0;
 for(int i = 0; i < b->Count;i++)
 {
  d++;
  Var.OleProcedure("Add");
  vVarParagraph=Var.OleFunction("Item",d);
  vVarParagraph.OlePropertyGet("Range").OlePropertyGet("InlineShapes").OleProcedure("AddPicture", (Path.SubString(1,3)+ b->Strings[i]+".jpg").c_str(), false, true);
  vVarParagraph.OlePropertySet("Alignment",1);
  d++;
  c++;
  str= AnsiString("Ðèñóíîê ¹")+IntToStr(c)+AnsiString(" - image")+b->Strings[i];
  Var.OleProcedure("Add");
  vVarParagraph=Var.OleFunction("Item",d);
  vVarParagraph.OlePropertyGet("Range").
               OlePropertySet("Text",str.c_str());
               vVarParagraph.OlePropertySet("Alignment",1);
 }
 
 Word.OlePropertySet("Visible", true);
 
 delete b;
 b = NULL;
 
}

@log · 17.08.2011, 20:55 **[ТС]**

Спасибо, вечером отпишусь, дома попробую.

Добавлено через 2 часа 25 минут
Sasha, все пашет

C++
1
str= AnsiString("Рисунок №")+IntToStr(c)+AnsiString(" - ")+b->Strings[i];

шрифт к примеру 14 сделать.

C++
1
2
vVarParagraph.OlePropertyGet("Range").
                OlePropertyGet("Font").OlePropertySet("Size",14);

у меня шрифт не изменился, а подпись ушла на другую страницу.

@Sasha · 18.08.2011, 09:23

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

vVarParagraph.OlePropertyGet("Range").
OlePropertyGet("Font").OlePropertySet("S ize",14);

А в какое место кода ты эту строку вставляешь?

@log · 18.08.2011, 17:37 **[ТС]**

C++
1
2
3
4
5
6
7
8
str= AnsiString("Рисунок №")+IntToStr(c)+AnsiString(" - image")+b->Strings[i];
  Var.OleProcedure("Add");
  vVarParagraph=Var.OleFunction("Item",d);
  vVarParagraph.OlePropertyGet("Range").
               OlePropertySet("Text",str.c_str());
               vVarParagraph.OlePropertyGet("Range").
                OlePropertyGet("Font").OlePropertySet("Size",14);
               vVarParagraph.OlePropertySet("Alignment",1);

@Sasha · 18.08.2011, 17:47

Сделай так

C++
1
2
3
4
5
6
  vVarParagraph=Var.OleFunction("Item",d);
  vVarParagraph.OlePropertyGet("Range").
                OlePropertyGet("Font").OlePropertySet("Size",14);
  vVarParagraph.OlePropertyGet("Range").
               OlePropertySet("Text",str.c_str());
               vVarParagraph.OlePropertySet("Alignment",1);

Новые блоги и статьи Все статьи Все блоги /
Запустил конкурс "тем и промптов для текстовых квестов созданных почти чисто ИИ" 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 и пр. Работая с форумом и нейросетями в браузере часто хочется что-то подкорректировать или добавить какого-то функционала. Ниже прикреплён. . .

@log Деструктор ума 22 / 22 / 0 Регистрация: 07.03.2009 Сообщений: 326

	Вставка jpg-изображений из папки в Word 31.07.2011, 17:04. Показов 12260. Ответов 64 Метки нет (Все метки) Доброго времени суток! Коллеги собираюсь написать программу, которая бы из папки в которой находятся картинки, грузила их в документ Word. Причем перед каждой картинкой в ворде была подпись - наименование рисунка. Кто нибудь писал что то подобное? Какие варианты можете предложить? Интересно с вами посоветоваться. 0

@log Деструктор ума 22 / 22 / 0 Регистрация: 07.03.2009 Сообщений: 326
	11.08.2011, 14:57 [ТС]
	Ничего не понимаю. Не смотря на то что заменил код вылетает по прежнему месбокс с тектом ошибка. а не может быть проблемы в разнице ОС? 0

@log Деструктор ума 22 / 22 / 0 Регистрация: 07.03.2009 Сообщений: 326
	16.08.2011, 10:05 [ТС]
	Sasha, проверил на разных ком-рах. Пашет только на моем.. И как я понимаю на вашем. Может дело в версии билдера? Или может в каких патчах? 0

@Sasha 4956 / 2420 / 531 Регистрация: 05.06.2008 Сообщений: 7,518 Записей в блоге: 3
	16.08.2011, 14:30
	Скинь сюда свой проект я гляну, что там у тебя 1

@Sasha 4956 / 2420 / 531 Регистрация: 05.06.2008 Сообщений: 7,518 Записей в блоге: 3
	16.08.2011, 16:51
	Я тебя просил не код сбросить, а проект со всеми юнитами и т.п 1

@log Деструктор ума 22 / 22 / 0 Регистрация: 07.03.2009 Сообщений: 326
	16.08.2011, 17:19 [ТС]
	Прошу прощения, не так понял. xx.rar 0

@Sasha 4956 / 2420 / 531 Регистрация: 05.06.2008 Сообщений: 7,518 Записей в блоге: 3
	16.08.2011, 17:50
	Нашёл глюк дома проверю дам знать 1