Вставка 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);

Новые блоги и статьи Все статьи Все блоги /
FSharp: interface of module DevAlt 16.05.2026 Интерфейс модуля F# позволяет управлять доступностью членов, содержащихся в реализации модуля. По-умолчанию все члены модуля доступны: module Foo let x = 10 let boo () = printfn "boo" . . .	Хитросплетение родственных связей пантеона греческих богов. russiannick 14.05.2026 Однооконник, позволяющий узреть и изучить отдельных героев древней Греции. <!DOCTYPE html> <html lang="ru"> <head> <meta charset="UTF-8"> <meta http-equiv="X-UA-Compatible". . .	[golang] Угол между стрелками часов alhaos 12.05.2026 По заданным значениям часа и минуты необходимо определить значение меньшего угла между стрелками аналогового циферблата часов. import "math" func angleClock(hour int, minutes int) float64 { . . .	Debian 13: Установка Lazarus QT5 ВитГо 09.05.2026 Эта инструкция моя компиляция инструкций volvo https:/ / www. cyberforum. ru/ blogs/ 203668/ 10753. html и его же старой инструкции по установке Lazarus с gtk2. . .
Нейросеть на алгоритме "эстафета хвоста" как перспектива. Hrethgir 06.05.2026 На десерт, когда запущу сервер. Статья тут https:/ / habr. com/ ru/ articles/ 1030914/ . Автор я сам, нейросеть только помогает в вопросах которые мне не известны - не знаю людей которые знали-бы. . .	Асинхронный приём данных из COM-порта Argus19 01.05.2026 Асинхронный приём данных из COM-порта Купил на aliexpress термопринтер QR701. Он оказался странным. Поключил к Arduino Nano. Был очень удивлён. Наотрез отказывается печатать русские буквы. Чтобы. . .	попытка написать игровой сервер на C++ pyirrlicht 29.04.2026 попытка написать игровой сервер на плюсах с открытым бесконечным миром. возможно получится прикрутить интерпретатор питон для кастомизации игровой логики. что есть на текущий момент:. . .	Контроль уникальности выбранного документа-основания при изменении реквизита Maks 28.04.2026 Алгоритм из решения ниже разработан на примере нетипового документа "ЗаявкаНаРемонтСпецтехники", разработанного в КА2. Задача: уведомлять пользователя, если указанная заявка (документ-основание). . .

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

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