SELECT * FROM Vzakladke.net

Статьи об автоматизации и программировании

VB разделитель рисунков в Microsoft Office Document Imaging

 

 

VB разделитель рисунков в Microsoft Office Document Imaging может потребоваться в том случае, если многостраничное изображение надо разбить по страницам на отдельные файлы.

В данном случае может и не понадобится даже подключать в референсах Microsoft Office Document Imaging 11.0 Type Libriary.

Одним из условий является то что рисунок должен быть в формате Microsoft Office Document Imaging c расширением .tif - при необходимости может потребоваться конвертировать изображение например из формата PDF, например с помощью Bullzip PDF Printer, во вторых на компьюетере должен быть установлен пакет Microsoft Office Document Imaging.

 

 
Sub SplitImageFile()

Dim docSrc, i, image, docDst
Set docSrc = CreateObject("MODI.DOcument")
docSrc.Create ("C:\Users\userkakoito\Desktop\out\Scan.pdf.tif")
Debug.Print "Total pages: " & docSrc.Images.Count

For i = 0 To docSrc.Images.Count - 1
Set docDst = CreateObject("MODI.DOcument")
Dim dstName
dstName = "C:\Users\userkakoito\Desktop\out\new" & i & ".tif"
Debug.Print "Creating file " & dstName
docDst.Create
docDst.Images.Add docSrc.Images(i), Nothing
docDst.SaveAs dstName, 1, 1
Next
End Sub

 

Дата публикации: 2015-05-14 12:34:17

vbs

0

Отзывы:

Ваше имя:

Ваш e-mail (необязательно):

Сообщение:

Captcha