Вставка 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 минут

Не по теме:

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

Новые блоги и статьи Все статьи Все блоги /
Вступаем в новую фазу генерации favicons, векторную. russiannick 02.11.2026 Теперь нет нужды скрывать что используется простой svg. Исходный код изображения помещаем в поле и жмем кнопку. Исходник преобразуется в вид корректный для помещения в favicon или в url(). Нажатие. . .	Генератор паролей (вариант №4) Maks 01.11.2026 После публикации 3-го варианта генератора паролей, разослал его своим коллегам (с целью оценки), в итоге были получены следующие рекомендации: 1. Вернуть возможность использования знаков \| 1 l I;. . .	Генератор паролей (вариант №3) Maks 30.10.2026 Финальная версия генератора паролей 1С. Доработка решения в этот раз коснулась только визуальной части, а именно, добавлен реквизит ДопПараметры (тип Булево), который скрывает/ отображает реквизиты:. . .	Магическое мышление и магия, современная наука не отличима от магии (говорит ИИ Джемени) zorxor 30.10.2026 Джемени, расскажи, пожалуйста, что такое магическое мышление, что такое магия, почему современная наука чем-то напоминает магию? Фраза «Любая достаточно развитая технология неотличима от магии». . .
За какое время ИИ может подобрать пароль по хешу (рассказывает Джемени ИИ) zorxor 30.10.2026 Расскажи, Джемени, если известен хэш МД5, например, за сколько ИИ сможет подобрать соответствующий пароль? Искусственный интеллект (ИИ) может подобрать простой или средний по сложности пароль по. . .	Кто убил Suno? Почему наше солнышко погасло? (диалог с ИИ Джемени) zorxor 30.10.2026 Как убивали Suno. Хронология. «Убийство» музыкальной нейросети Suno — это затяжной процесс, в котором технологический хайп стартапа разбился о жесткую реальность судебных исков от гигантов. . .	Генератор паролей (вариант №2) Maks 30.10.2026 Обновленная версия ранее созданной обработки. Добавлены следующие реквизиты типа Булево: - Буквы; - Цифры; - Символы. Изменена логика команды "Сгенерировать" и процедуры "ПриОткрытии":. . .	Генератор паролей (вариант №1) Maks 29.10.2026 Реализация из решения ниже выполнена исключительно по моей инициативе, дабы облегчить себе работу в создании паролей для администрируемых мною сервисов и пользователей. Самым главным критерием для. . .

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

	Вставка jpg-изображений из папки в Word 31.07.2011, 17:04. Показов 12307. Ответов 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