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

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

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

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

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

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

@Sasha · 01.08.2011, 15:59

Я так понял, что это мне надо сделать с тобой чтобы потом тебе показать

@log · 01.08.2011, 16:21 **[ТС]**

Не стану скрывать помощь мне нужна. Так как для меня задача трудная.
И я один не справлюсь. Не значит что надо готовый код писать. Это не выход.

Попробовал загрузить картинку. Получилось. Спасибо за ваш код.
И цикл можно сделать в этой же кнопке?

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

C++
1
2
3
4
5
6
7
8
9
10
AnsiString Path = "image\\*.jpg";
  TSearchRec sr;
  int iAttributes = faAnyFile;
  int done = FindFirst( Path, iAttributes, sr );
  while(!done)
 {
  Memo1->Lines->Add(ChangeFileExt(sr.Name,""));
  done = FindNext(sr);
 }
  FindClose(sr);

Ваш код на поиск названия по расширению...
Нельзя ли его переделать под код, который все рисунки из папки грузил в ворд документ?
Пока без подписи

@Sasha · 01.08.2011, 16:24

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

И цикл можно сделать в этой же кнопке?

Конечно можно

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

Нельзя ли его переделать под код, который все рисунки из папки грузил в ворд документ?

Можно попроывать так

C++
1
AnsiString Path = "image\\*.*";

@log · 01.08.2011, 16:55 **[ТС]**

Получится, что по сути весь код можно сделать в одной кнопке.

Сначала создаем ворд документ.

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
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;
 }

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

Про строчку которую изменили я плохо понял.

@Sasha · 01.08.2011, 16:58

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

Получится, что по сути весь код можно сделать в одной кнопке.

Ух ты, а говорил глупее всех

@log · 01.08.2011, 17:04 **[ТС]**

C++
1
2
3
4
5
6
7
8
9
10
11
{
AnsiString Path = "image\\*.*";  // вот здесь изменили строчку
  TSearchRec sr;
  int iAttributes = faAnyFile;
  int done = FindFirst( Path, iAttributes, sr );
  while(!done)
 {
  ?????????? // как записать добавление рисунков здесь?
 }
  FindClose(sr);
 }

записать добавление где ??????

C++
1
Dms.OlePropertyGet("Shapes").OleProcedure("AddPicture", (ExtractFilePath(Application->ExeName)+"\\image\\image.jpg").c_str(), false, true, 0, 0);

если так то чтобы грузилось не одно изображение, а все что есть в папке, то придется менять так:

C++
1
2
Dms.OlePropertyGet("Shapes").OleProcedure("AddPicture", (ExtractFilePath(Application->ExeName)+"sr.Name").c_str(), false, true, 0, 0);
done = FindNext(sr);

или я глупость написал?

@Sasha · 01.08.2011, 17:09

Я тебе советую загрузить названия картинок в объект класса TStringList(), а потом уже из него загружать в Ворд

@log · 01.08.2011, 17:15 **[ТС]**

я не знаю как это сделать

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

@log · 03.08.2011, 11:10 **[ТС]**

Sasha, проблема с подписью.
Не получается вывести хотя бы что нибудь.

Вместо листбокса поставил мемо.

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

C++
1
Memo1->Lines->Strings[0];

не получается.
Не можете подсказать как вывести то что в этой строчке в тот же самый созданный ворддокумент?
Я просто не понимаю как это объединить вместе с созданием самого документа. Не знаю как на него сослаться.

Или может командой

C++
1
Word.OleProcedure("Insert", Memo1->Lines->Strings[0]);

@Sasha · 03.08.2011, 11:33

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();
  AnsiString str,Path = "D:\\*.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.OleProcedure("Add");
  vVarParagraph=Var.OleFunction("Item",d);
  Dms.OlePropertyGet("InlineShapes").OleProcedure("AddPicture", (Path.SubString(1,3)+ b->Strings[i]).c_str(), false, true);
  //Âûðàâíèâàåì ïî ïðàâîìó êðàþ
  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 · 03.08.2011, 11:59 **[ТС]**

C++
1
AnsiString str,Path = "C:\\image\\*.jpg";

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

Объясните дураку...

Добавлено через 9 минут
Саша вы гений!
все работает это я необразованный.

только подпись за графиками)
как это исправить?

Добавлено через 2 минуты
придется в структуру файла ворд залезать?

@Sasha · 03.08.2011, 12:51

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

только подпись за графиками)
как это исправить?

К сожалению пока этого не знаю

@log · 03.08.2011, 13:04 **[ТС]**

Sasha, а можете тогда сделать по-другому..

чередовать действия..

Сначала загрузили картинку. потом подпись. этап цикла закончен.. и затем снова

@Sasha · 03.08.2011, 13:59

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

Сначала загрузили картинку. потом подпись.

К сожалению так пока не получается, потому как я не могу заставить картинку появиться в нужном месте листа.

Не по теме:

Говорю тебе как ПРАКТИЧЕСКИЙ ПСИХОЛОГ смени подпись на более позитивную и надпись под логином. Не надо себе ставить такое клеймо оно несё негатив на твою оставшуюся жизнь.

@Neo_AVE · 03.08.2011, 21:54

Я делала совершенно иначе, можно использовать не цикл, а условие. если одно действие выполняется, если нет, то другое. Я так и писала диплом и вышел боооольшой листинг

. Но я с такой задачей справилась

вот пример:

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
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
void __fastcall TFrmVpl::Btn6Click(TObject *Sender)
{
        Variant v,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");
        Dms.OlePropertyGet("Background").  //Фон документа
         OlePropertyGet("Fill").
         OlePropertyGet("ForeColor").
         OlePropertySet("RGB",RGB(255,250,150));
        Dms.OlePropertyGet("Background").
         OlePropertyGet("Fill").
         OlePropertySet("Visible",-1);
        Dms.OlePropertyGet("Background").
         OlePropertyGet("Fill").
         OleFunction("Solid");
        Dms.OlePropertyGet("PageSetup").OlePropertySet("TopMargin",28.35);
        Dms.OlePropertyGet("PageSetup").OlePropertySet("LeftMargin",28.35);
        Dms.OlePropertyGet("PageSetup").OlePropertySet("RightMargin",28.35);
        Dms.OlePropertyGet("PageSetup").OlePropertySet("BottomMargin",28.35);
        Var.OleProcedure("Add");
        vVarParagraph=Var.OleFunction("Item",1);
        Dms.OlePropertyGet("Shapes").OleProcedure("AddPicture", (ExtractFilePath(Application->ExeName)+"Dipl.jpg").c_str(), false, true, 0, 0);
        Var.OleProcedure("Add");
        str1="Дата: "+ Now().DateString(); //Добавление даты
        vVarParagraph=Var.OleFunction("Item",2);
        v=vVarParagraph.OlePropertyGet("Range").OlePropertyGet("Font");
        v.OlePropertySet("Name","Arial");
        v.OlePropertySet("Size",12);
        v.OlePropertySet("Bold",false);
        vVarParagraph.OlePropertyGet("Range").
        OlePropertySet("Text",str1.c_str());
        Var.OleProcedure("Add");
        str1="Время: "+ Now().TimeString();          //Добавление времени
        vVarParagraph=Var.OleFunction("Item",3);
        v=vVarParagraph.OlePropertyGet("Range").OlePropertyGet("Font");
        v.OlePropertySet("Name","Arial");
        v.OlePropertySet("Size",12);
        v.OlePropertySet("Bold",false);
        vVarParagraph.OlePropertyGet("Range").
        OlePropertySet("Text",str1.c_str());
        Var.OleProcedure("Add");
        str1="ОТЧЁТ";
        vVarParagraph=Var.OleFunction("Item",4);
        v=vVarParagraph.OlePropertyGet("Range").OlePropertyGet("Font");
        v.OlePropertySet("Name","Arial");
        v.OlePropertySet("Size",16);
        v.OlePropertySet("Bold",true);
        vVarParagraph.OlePropertyGet("Range").
        OlePropertySet("Text",str1.c_str());
        vVarParagraph.OlePropertySet("Alignment",1);
        if(FrmSrr->Lbl5->Caption.Length()!=0){     //Если форма растит срезка выбрана
          Var.OleProcedure("Add");
          str1="1.Расчёт срезки растительного слоя грунта:\n";
          vVarParagraph=Var.OleFunction("Item",5);
          v=vVarParagraph.OlePropertyGet("Range").OlePropertyGet("Font");
          v.OlePropertySet("Name","Arial");
          v.OlePropertySet("Size",14);
          v.OlePropertySet("Bold",false);
          v.OlePropertySet("Underline",1);
          vVarParagraph.OlePropertyGet("Range").
          OlePropertySet("Text",str1.c_str());
          vVarParagraph.OlePropertySet("Alignment",1);
          Var.OleProcedure("Add");
          str1=FrmSrr->Lbl5->Caption;
          vVarParagraph=Var.OleFunction("Item",6);
          v=vVarParagraph.OlePropertyGet("Range").OlePropertyGet("Font");
          v.OlePropertySet("Name","Arial");
          v.OlePropertySet("Size",12);
          v.OlePropertySet("Italic",true);
          v.OlePropertySet("Underline",0);
          vVarParagraph.OlePropertyGet("Range").
          OlePropertySet("Text",str1.c_str());
          Var.OleProcedure("Add");
          str1="2.Вертикальная планировка:\n";   //Вертикальная планировка
          vVarParagraph=Var.OleFunction("Item",10);
          v=vVarParagraph.OlePropertyGet("Range").OlePropertyGet("Font");
          v.OlePropertySet("Name","Arial");
          v.OlePropertySet("Bold",false);
          v.OlePropertySet("Size",14);
          v.OlePropertySet("Underline",1);
          vVarParagraph.OlePropertyGet("Range").
          OlePropertySet("Text",str1.c_str());
          vVarParagraph.OlePropertySet("Alignment",1);
          Var.OleProcedure("Add");
          str1=Lbl12_6->Caption+"\n"+Lbl1_3->Caption;
          vVarParagraph=Var.OleFunction("Item",11);
          v=vVarParagraph.OlePropertyGet("Range").OlePropertyGet("Font");
          v.OlePropertySet("Name","Arial");
          v.OlePropertySet("Size",12);
          v.OlePropertySet("Bold",false);
          v.OlePropertySet("Italic",true);
          v.OlePropertySet("Underline",0);
          vVarParagraph.OlePropertyGet("Range").
          OlePropertySet("Text",str1.c_str());
          vVarParagraph.OlePropertySet("Alignment",1);
          Var.OleProcedure("Add");
          str1=AboutBox->ProductName->Caption+"\n"+AboutBox->Version->Caption+
          "\n"+AboutBox->Copyright->Caption;
          vVarParagraph=Var.OleFunction("Item",16);
          v=vVarParagraph.OlePropertyGet("Range").OlePropertyGet("Font");
          v.OlePropertySet("Name","Lucida Console");
          v.OlePropertySet("Size",8);
          v.OlePropertySet("Italic",true);
          v.OlePropertySet("Underline",0);
          vVarParagraph.OlePropertyGet("Range").
          OlePropertySet("Text",str1.c_str()); }
        else {
          Var.OleProcedure("Add");
        str1="2.Вертикальная планировка:\n";   //Вертикальная планировка
        vVarParagraph=Var.OleFunction("Item",5);
        v=vVarParagraph.OlePropertyGet("Range").OlePropertyGet("Font");
        v.OlePropertySet("Name","Arial");
        v.OlePropertySet("Size",14);
        v.OlePropertySet("Bold",false);
        v.OlePropertySet("Underline",1);
        vVarParagraph.OlePropertyGet("Range").
        OlePropertySet("Text",str1.c_str());
        vVarParagraph.OlePropertySet("Alignment",1);
        Var.OleProcedure("Add");
        str1=Lbl12_6->Caption+"\n"+Lbl1_3->Caption;
        vVarParagraph=Var.OleFunction("Item",6);
        v=vVarParagraph.OlePropertyGet("Range").OlePropertyGet("Font");
        v.OlePropertySet("Name","Arial");
        v.OlePropertySet("Size",12);
        v.OlePropertySet("Italic",true);
        v.OlePropertySet("Underline",0);
        vVarParagraph.OlePropertyGet("Range").
        OlePropertySet("Text",str1.c_str());
        vVarParagraph.OlePropertySet("Alignment",1);
          Var.OleProcedure("Add");    ////////////
          str1=AboutBox->ProductName->Caption+"\n"+AboutBox->Version->Caption+
          "\n"+AboutBox->Copyright->Caption;
          vVarParagraph=Var.OleFunction("Item",10);
          v=vVarParagraph.OlePropertyGet("Range").OlePropertyGet("Font");
          v.OlePropertySet("Name","Lucida Console");
          v.OlePropertySet("Size",8);
          v.OlePropertySet("Italic",true);
          v.OlePropertySet("Underline",0);
          vVarParagraph.OlePropertyGet("Range").
          OlePropertySet("Text",str1.c_str());
        }
        Word.OlePropertySet("Visible", true);
        FrmVpl->Close();
}

@Sasha · 05.08.2011, 13:58

log, Вот держи проверял работает

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:\\*.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,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;
 
}

@log · 07.08.2011, 10:51 **[ТС]**

Sasha, вы оказали неоценимую помощь.
я вам очень благодарен.
Не ваша помощь и я бы программу никогда и не сделал бы.

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

C++
1
2
3
4
5
6
7
if(Doc.OlePropertyGet("Count") != 1)
 {
  MessageBox(0, "Ошибка при создании документов",
                 "Ошибка", MB_OK);
 
  return;
 }

вылетает сообщение "Ошибка".
Если я правильно понял, то это ошибка соединения с сервером?
И никак не могу ее обойти.
Причем при выключении компьютера, он мне предлагает сохранить изменения в "документе1 - документ 10". я как раз 10 раз и пробовал сделать ворд документ, но вылетала данная ошибка.
В чем может быть проблема?

@Sasha · 08.08.2011, 00:12

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

Причем при выключении компьютера, он мне предлагает сохранить изменения в "документе1 - документ 10". я как раз 10 раз и пробовал сделать ворд документ, но вылетала данная ошибка.

Это запускается Ворд, но затем происходит ошибка и поэтому он у тебя весит в процессах поэтому его нужно снять с процессов, для этого нажимаешь Ctrl+Alt+Del заходишь в процессы и ищешь там WINWORD.EXE.

По поводу ошибки создания спрошу, а на том компьютере где вылетает ошибка при создании стоит Word или нет?

@log · 08.08.2011, 20:15 **[ТС]**

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

снять с процессов, для этого нажимаешь Ctrl+Alt+Del заходишь в процессы и ищешь там WINWORD.EXE.

ну это понятно) я просто расписал что процесс запускается но потом не грузится.

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

стоит Word или нет?

word 2003

@Sasha · 08.08.2011, 22:30

По пробуй так, посмотри на что жалуется вставь вот этот кусок

C++
1
2
3
4
5
if(Doc.OlePropertyGet("Count") != 1)
 {
   ShowMessage(SysErrorMessage(GetLastError()));
   return;
 }

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

Не по теме:

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

Новые блоги и статьи Все статьи Все блоги /
GitHub Copilot в JetBrains: модель по умолчанию, Fix и контроль MCP and_y87 12.10.2026 10 октября 2026 года GitHub обновил Copilot для JetBrains: добавил настройки стартовой модели, исправления из диагностики и управление автозапуском MCP. Поддержка IDE 2025. 1 прекращена — требуется. . .	День 5 из 28: Codex подсказывает следующий запрос and_y87 12.10.2026 9 октября 2026 года OpenAI запустила бету Composer predictions — подсказок следующего сообщения в текущем диалоге Codex. Это помощь с формулировкой запроса, а не автоматическое продолжение задачи. . . .	Запустил конкурс "тем и промптов для текстовых квестов созданных почти чисто ИИ" 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. Приложение прошло модерацию и теперь доступно для скачивания. Делал его сам, шаг за шагом — и вот,. . .

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

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

@Sasha 4956 / 2420 / 531 Регистрация: 05.06.2008 Сообщений: 7,518 Записей в блоге: 3
	01.08.2011, 15:59
	Я так понял, что это мне надо сделать с тобой чтобы потом тебе показать 1

@Sasha 4956 / 2420 / 531 Регистрация: 05.06.2008 Сообщений: 7,518 Записей в блоге: 3
	01.08.2011, 17:09
	Я тебе советую загрузить названия картинок в объект класса TStringList(), а потом уже из него загружать в Ворд 1

@log Деструктор ума 22 / 22 / 0 Регистрация: 07.03.2009 Сообщений: 326
	01.08.2011, 17:15 [ТС]
	я не знаю как это сделать Попробую осуществить загрузку текста из листбокса в ворд. Чтобы названия рисунков загружались. Ведь именно так будет грузиться подпись. Причем чередоваться с загрузкой рисунка. 0

@log Деструктор ума 22 / 22 / 0 Регистрация: 07.03.2009 Сообщений: 326
	03.08.2011, 13:04 [ТС]
	Sasha, а можете тогда сделать по-другому.. чередовать действия.. Сначала загрузили картинку. потом подпись. этап цикла закончен.. и затем снова 0