|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
13.02.2014, 21:46 | #1 |
Регистрация: 13.02.2014
Сообщений: 6
|
Импорт картинок из папки в текст WORD 2007 макросом
Здравствуйте, форумчане!!!
Мне надо импортировать все картинки из папки в текст WORD 2007 используя макрос. Начинаю запись макроса, из *Вставка* выбираю *Вставить рисунок из файла*, указываю папку где лежат .bmp , нажимаю Ctrl+A, Enter и ... останавливаю запись макроса. А когда хочу воспользоваться этим макросом, то получаю только одну картинку. Selection.InlineShapes.AddPicture Filename:= _ "C:\Documents and Settings\All Users\Documents\shared Mcamx6\common\reports\IMG\Image #1.bmp" _ , LinkToFile:=False, SaveWithDocument:=True Подскажите , как заставить импортироваться ВСЕ картинки из папки??? Последний раз редактировалось hlibhlib; 13.02.2014 в 21:56. |
14.02.2014, 07:33 | #2 |
Балуюсь кодами
Участник клуба
Регистрация: 09.01.2009
Сообщений: 1,837
|
Каким образом вставлять? Все подряд друг за другом?
Лучше день потерять — потом за пять минут долететь!©
|
14.02.2014, 18:33 | #3 |
Регистрация: 13.02.2014
Сообщений: 6
|
Здравствуйте, viter.alex.
Картинки находящиеся в папке, имеют названия с номерами очередности их создания. Расположение их должно быть поочередно сверху вниз по документу и уменьшены в 2-а раза сохраняя пропорцию. Спасибо за отклик и старание помочь. Выбираю стандартную функцию - *Вставить рисунок из файла*, потом макросом, кот. нарыл и-нэте, (спасибо выложившему): Attribute VB_Name = "Module3" Sub changeImages2() Dim pic As Object On Error Resume Next For Each pic In ActiveDocument.Content.InlineShapes If pic.Type = wdInlineShapePicture Then pic.Height = pic.Height / 2 pic.Width = pic.Width / 2 End If Next For Each pic In ActiveDocument.Content.ShapeRange If pic.Type = msoPicture Then pic.Height = pic.Height / 2 If pic.LockAspectRatio = msoFalse Then pic.Width = pic.Width / 2 End If End If Next End Sub Пробовал команды и строки из учебников тыкать, но о результате можно догадаться! Темный лес - да и только! Последний раз редактировалось hlibhlib; 14.02.2014 в 22:40. |
15.02.2014, 05:07 | #4 |
Балуюсь кодами
Участник клуба
Регистрация: 09.01.2009
Сообщений: 1,837
|
Порядок сортировки зависит от порядка сортировке в окне выбора файлов
Код:
Лучше день потерять — потом за пять минут долететь!©
Последний раз редактировалось viter.alex; 15.02.2014 в 05:10. |
15.02.2014, 13:23 | #5 |
Регистрация: 13.02.2014
Сообщений: 6
|
Спасибо.
Подумаю, что можно с этим кодом сделать. Спасибо. |
17.02.2014, 23:36 | #6 |
Регистрация: 13.02.2014
Сообщений: 6
|
Нет, не получается.
Очень жаль. |
18.02.2014, 02:09 | #7 |
Балуюсь кодами
Участник клуба
Регистрация: 09.01.2009
Сообщений: 1,837
|
Что не получается? Не говорите загадками
Лучше день потерять — потом за пять минут долететь!©
|
18.02.2014, 19:16 | #8 |
Регистрация: 13.02.2014
Сообщений: 6
|
CUT; CUT; CUT;
Последний раз редактировалось hlibhlib; 18.02.2014 в 19:55. |
18.02.2014, 19:54 | #9 |
Регистрация: 13.02.2014
Сообщений: 6
|
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Импорт нескольких txt файлов макросом | Snekich | Microsoft Office Excel | 25 | 06.03.2013 15:42 |
Как открыть шаблон Word-a из папки в корневой папки программы :) | flouwjke | Общие вопросы Delphi | 3 | 30.04.2012 00:25 |
Импорт данных из Word в Excel макросом | vv66 | Microsoft Office Excel | 17 | 27.01.2012 14:49 |
Просмотр картинок из папки | Elementery | Общие вопросы Delphi | 5 | 25.05.2010 17:06 |
загрузка картинок из папки | firmwares | Мультимедиа в Delphi | 7 | 28.01.2010 01:13 |