'
' 1) разделить PDF постранично
' 2) страницу-разделитель сохранить как TIF
' 3) TIF передать в OCR MS MODI
'

  rootDir = Left(WScript.ScriptFullName, instrrev(WScript.ScriptFullName,"\"))

  FileName = rootDir + "Scan002.pdf"

' открыть PDF
  Set oPDFDoc = CreateObject("AcroExch.PDDoc")

  If (Not oPDFDoc.Open(FileName)) Then
    Set oPDFDoc = Nothing
    WScript.Echo "Файл не найден : " & FileName
    WScript.Quit 1
  End If

' сохранить как TIF
  Set oTIFDoc = CreateObject("AcroExch.PDDoc")
' OCR MODI
  Set ocrMODI = CreateObject("MODI.Document")

  Set JSO = oPDFDoc.GetJSObject

  x_start = -1
  for x = 0 to JSO.numPages - 1
    FLNew = rootDir & "temp" & right(x + 1001,3) &".pdf"
    JSO.extractPages x, x, FLNew

' размер файла
    Set tmpPDF = objFSO.GetFile(FLNew)
      theSize = tmpPDF.Size

' проверить - закладка или нет
    flZakladka = False
    if (theSize < 10000) then  '  10000 - максимальный размер файла закладки
       ' сохранить как TIF
       retCod = oTIFDoc.Open(FLNew)
         Set JSTif = oTIFDoc.GetJSObject
           FLTif = rootDir & "temp" & right(x + 1001,3) & ".tif"
           retCod = JSTif.SaveAs(FLTif, "com.adobe.acrobat.tiff")
         Set JSTif = Nothing
       oTIFDoc.Close
       ' OCR MODI
       ocrMODI.Create(FLTif)
          ocrMODI.Images.item(0).OCR
          strResult = ocrMODI.Images.item(0).Layout.Text
          strResult = Replace(strResult, vbCrLf, "")
       ocrMODI.Close()
       ' удаляем временный TIF
       Set tmpTIF = objFSO.GetFile(FLTif)
         tmpTIF.Delete(true)
       Set tmpTIF = Nothing

       flZakladka = True
    end if

' удаляем временный PDF
      tmpPDF.Delete(true)
    Set tmpPDF = Nothing

' закладка
    if (flZakladka) then
       if (x_start >= 0) then
          x1 = x - 1
          FLPart = rootDir & strSave & "_Документ_" & right(x_start+1001, 3) & "_" & right(x1+1001,3) & ".pdf"
          JSO.extractPages x_start, x1, FLPart
            currFile = FLPart
            Call SendEmail
       end if
       x_start = x + 1
       strSave = strResult

       if (strSave = "ИВАНОВ")  then SendToAddr = "ivanov@domen.ru"
       if (strSave = "ПЕТРОВ")  then SendToAddr = "petrov@domen.ru"
       if (strSave = "СИДОРОВ") then SendToAddr = "sidorov@domen.ru"
    end if

  next

' последний документ
          x1 = x - 1
          FLPart = rootDir & strSave & "_Документ_" & right(x_start+1001, 3) & "_" & right(x1+1001,3) & ".pdf"
          JSO.extractPages x_start, x1, FLPart
            currFile = FLPart
            Call SendEmail

  oPDFDoc.Close

  Set JSO = Nothing
  Set ocrMODI = Nothing
  Set oTIFDoc = Nothing
  Set oPDFDoc = Nothing

  Set objFSO = Nothing

WScript.Echo "The End"

WScript.Quit 0


' *** отправка по почте

Sub SendEmail
...
 здесь используем SendToAddr
...
End Sub

Set img = CreateObject("ImageMagickObject.MagickImage.1")
myarray(0)="8BIM:"
msgs = img.Convert("null:","-profile","8BIMTEXT:iptctext.txt",myarray)
....

@echo off
cscript step1.js
SET DIR_IN=.\image\
SET DIR_OUT=.\tif\
if not exist %DIR_IN% mkdir %DIR_IN%
if not exist %DIR_OUT% mkdir %DIR_OUT%

FOR %%i IN (%DIR_IN%*) DO CALL :0 %%i  
:0

for /f " tokens=2 delims=:" %%a in ('""C:\Program Files\XnView\nconvert.exe" -info %1 | findstr  /R /C:"Page.s.*:""') do  Set /A  nPage = %%a
if %nPage% GTR 100 goto xDel:
"C:\Program Files\XnView\nconvert.exe" -out tiff -xall -dpi 300  -o %DIR_OUT%%~nx1.####.jpg %1  

:xDel
if %ERRORLEVEL% NEQ 0 GOTO EOF
DEL %1 /Q
goto EOF
:EOF

var FolderIMG=".\\tif\\"
var FolderTXT=".\\txt_jpg\\"

var fso = new ActiveXObject("Scripting.FileSystemObject")
var Document = WScript.CreateObject ("MODI.Document");

function CopyTextFromTIF(PathIn,PathOut)
{
    Document.Create(PathIn);
WScript.Sleep(250)
    Document.OCR(25,true,true);
WScript.Sleep(100)
//    Document.Save()
    var iFile=fso.OpenTextFile(PathOut,8,true)
    iFile.WriteLine(PathIn)
    for (var j=0; j< Document.Images.Count; j++)
    {
    iFile.WriteLine(Document.Images.item(j).Layout.Text)
    WScript.Sleep(100)
    }
    iFile.Close()
    Document.Close(false);
WScript.Sleep(100)
this.CollectGarbage();
WScript.Sleep(250)
}
var k=0
var 
oTif ={}
try
{
var a = fso.OpenTextFile("lgood_jpg", 1).ReadAll().split(/(\r\n)|(\n)/)
for (var i=1; i <a.length;i++)
oTif[a[i]]=1
}
catch (e){}

var oBad ={}
try
{
var a = fso.OpenTextFile("lbad_jpg", 1,true).ReadAll().split(/(\r\n)|(\n)/)
for (var i=1; i <a.length;i++)
{
var x=a[i]
if (oBad[x]==null)
oBad[x]=0
oBad[x]++
}
}
catch (e){}

var vDir=fso.GetFolder(FolderIMG)
for(var lSub= new Enumerator(vDir.files);!lSub.atEnd();lSub.moveNext())
{
var n=lSub.item()
try
{
if (oTif[n.path]==null && (oBad[n.path]==null ||  oBad[n.path]<4))
{
WScript.Echo(n.path)

var fln=fso.OpenTextFile("lbad_jpg", 8,true)
fln.WriteLine(n.path)
fln.Close()

var aX=n.Name.split('.')
CopyTextFromTIF(n.path,".\\txt_jpg\\"+aX[0]+"."+aX[1]+"."+aX[2]+".txt")
var fln=fso.OpenTextFile("lgood_jpg", 8,true)
fln.WriteLine(n.path)
fln.Close()
} else{
WScript.Echo("-"+n.path)
if (oTif[n.path]  || (oBad[n.path] &&  oBad[n.path]>=4))
n.Delete(true)
}
}
catch(e)
{
WScript.Echo("?" + e.number + " " + e.description)
}
WScript.Sleep(50)
}

SET DIR_OUT=.\tif\
:modi
cscript modi_pdf.js
if  exist %DIR_OUT%*.jpg goto :modi

Sub Test01()
  MsgBox ActiveDocument.InlineShapes.Count
End Sub