Otros scripts de ejemplo - ABBYY Documentation

Evento de fusión de documentos

Tipo: un controlador del evento Páginas movidasEste código de ejemplo muestra cómo el evento “Páginas movidas” puede transformarse en el evento “Fusión de documentos”. La lógica de este script es la siguiente: si se mueven todas las páginas del documento, este queda completamente integrado en el documento de destino.El script se ejecuta con el evento Páginas movidas. El procedimiento Events.OnDocumentsMerge es el procedimiento que controla el evento “Fusión de documentos”.

[VBScript]

Dim currentDocument, currentDocumentPagesMoved
set currentDocument = Pages( 0 ).Document
currentDocumentPagesMoved = 0

For i = 0 to Pages.Count - 1
  If Pages( i ).Document.Id <> currentDocument.Id Then

' El siguiente documento
    If currentDocument.Pages.Count = currentDocumentPagesMoved Then

' Todas las páginas se movieron del documento anterior. Se desencadena el evento.
      Events.OnDocumentsMerge TargetDocument, currentDocument
    End If

Set currentDocument = Pages( i ).Document
  Else

Next

If currentDocument.Pages.Count = currentDocumentPagesMoved Then

' Todas las páginas se movieron del último documento. Se desencadena el evento.
  Events.OnDocumentsMerge TargetDocument, currentDocument
End If

[JScript]

var currentDocument = Pages( 0 ).Document;
var currentDocumentPagesMoved = 0;

for( i = 0; i < Pages.Count - 1; i++ ) {
  if( Pages( i ).Document.Id != currentDocument.Id ) {

// El siguiente documento
    if( currentDocument.Pages.Count == currentDocumentPagesMoved ) {

// Todas las páginas se movieron del documento anterior. Se desencadena el evento.
      Events.OnDocumentsMerge( TargetDocument, currentDocument );
    }

currentDocument = Pages( i ).Document;
  } else {

currentDocumentPagesMoved = currentDocumentPagesMoved + 1;
  }
}

if( currentDocument.Pages.Count == currentDocumentPagesMoved ) {

// Todas las páginas se movieron del último documento. Se desencadena el evento.
  Events.OnDocumentsMerge( TargetDocument, currentDocument )
}

Fusión de parámetros de registro de documentos en la fusión de documentos

Tipo: un controlador del evento Fusión de documentosEste código de ejemplo muestra la forma más sencilla de fusionar los parámetros de registro de documentos durante la fusión de documentos. Al fusionar documentos en un documento de destino, solo se agregan los parámetros de los documentos nuevos que faltaban en él.El código debe almacenarse en un módulo compartido. El procedimiento OnDocumentsMerge debe llamarse en el momento de fusionar los documentos. Para obtener más información, consulte la descripción del evento de fusión de documentos.

[VBScript]

Sub MergeProperty(ByVal TargetDocument, ByVal propertyName, ByVal propertyValue)
  If TargetDocument.Properties.Get(propertyName) = "" Then

' No existe ese parámetro en el documento.
      TargetDocument.Properties.Set(propertyName, propertyValue)
  End If

End Sub

Sub OnDocumentsMerge(ByVal Target, ByVal Document)

' Fusión de parámetros de registro.
  For i = 0 To Document.Properties.Count - 1
      MergeProperty(Target, Document.Properties(i).Name,

Document.Properties(i).Value)
  Next

End Sub

[JScript]

function MergeProperty( TargetDocument, propertyName, propertyValue )
{
  if( TargetDocument.Properties.Get( propertyName ) == "" ) {

// No existe ese parámetro en el documento.
    TargetDocument.Properties.Set( propertyName, propertyValue );
  }
}

function OnDocumentsMerge( Target, Document )
{

// Fusión de parámetros de registro.
  for( i = 0; i < Document.Properties.Count - 1; i++ ) {

MergeProperty( Target, Document.Properties(i).Name, Document.Properties(i).Value );
  }
}