Форум программистов, компьютерный форум, киберфорум
VBA
Войти
Регистрация
Восстановить пароль
Карта форума Темы раздела Блоги Сообщество Поиск Заказать работу  
 
0 / 0 / 0
Регистрация: 04.08.2016
Сообщений: 1
1

Каталог с Сканами Изображения в PDF

04.08.2016, 15:05. Показов 485. Ответов 1
Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам
Здравствуйте!

Вот есть такая задача, как реализовать ума не приложу (
Кто подскажет

Есть каталог с файлами (могут быть jpeg, tiff-многостраничные, bmp)
Нужно из них сделать 1 pdf Файл.
А потом из pdf определенные страницы сохранять в pdf c определенным именем.

Какие именно страницы сохранять, должен писать пользователь. Тип стр. 1-4 в один файл, с 5-10 в другой. Но номера страниц всегда разные.

С сохранением из Word вроде понятно - есть ActiveDocument.ExportAsFixedFormat.

А вот как добавить все файлы картинки в разных форматах в word?
И если сохранить все это в pdf, как потом открыть в word pdf, чтобы уже разбивать по страницам на pdf?
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
04.08.2016, 15:05
Ответы с готовыми решениями:

Ссылка на каталог в pdf с FTP
Всем доброго дня! Продолжаю собирать свой сайт, столкнулся с такой проблемой: у меня много...

Изображения из pdf
Здравствуйте! Есть такая проблема у меня.нужно распечатать изображения в документе формата...

Достать изображения из pdf не испортив шрифты
У меня есть pdf, мне надо сконвертировать его в отдельные изображения, изображения уменьшить до...

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

1
5606 / 1592 / 412
Регистрация: 23.12.2010
Сообщений: 2,382
Записей в блоге: 1
04.08.2016, 18:00 2
Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
Sub Вставка_рисунков_из_папки_в_документ()
    Dim MyPath$, oFSO As Object, oFolder, oFile
    MyPath = "C:\temp5"
    Set oFSO = CreateObject("Scripting.FileSystemObject")
    Set oFolder = oFSO.GetFolder(MyPath)
    For Each oFile In oFolder.Files
        If oFile.Name Like "*.jpg" Or oFile.Name Like "*.tif" Or oFile.Name Like "*.bmp" Then
            Selection.Collapse Direction:=wdCollapseEnd
            Selection.InlineShapes.AddPicture Filename:=oFolder & "\" & oFile.Name, LinkToFile:=False, SaveWithDocument:=True
        End If
    Next
End Sub
0
04.08.2016, 18:00
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
04.08.2016, 18:00
Помогаю со студенческими работами здесь

Автоматическая печать изображения в PDF через PrintJob
Если я хочу послать изображение на печать - я вызываю методы класса PrintJob. Появляется окошко,...

Виртуальный каталог - это только файловый каталог или нет?
Привет! В процессе исследования одного вопроса появилась необходимость детально разобраться в...

Перенести все исходные файлы в каталог уровнем выше, а их прежний каталог удалить
Напишите плиз кому не сложно программку для DOS.

Создать массив объектов пользовательского типа "Car" (каталог машин) и функции чтения/записи из/в каталог(а)
Добрый день! Нужно составить программу, которая будет дополнять каталог автомобилей Имеется...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2024, CyberForum.ru