Autres scripts d’exemple - ABBYY Documentation

Événement de fusion de documents

Type : gestionnaire de l’événement Pages movedCet exemple de code montre comment l’événement « Pages moved » peut être transformé en événement « fusion de documents ». La logique de ce script est la suivante : si toutes les pages du document sont déplacées, ce document est alors intégralement fusionné dans le document cible.Le script est exécuté lors de l’événement Pages moved. La procédure Events.OnDocumentsMerge gère l’événement « fusion de documents ».

[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

' Le document suivant
    If currentDocument.Pages.Count = currentDocumentPagesMoved Then

' Toutes les pages ont été déplacées du document précédent. L'événement est déclenché.
      Events.OnDocumentsMerge TargetDocument, currentDocument
    End If

Set currentDocument = Pages( i ).Document
  Else

Next

If currentDocument.Pages.Count = currentDocumentPagesMoved Then

' Toutes les pages ont été déplacées du dernier document. L'événement est déclenché.
  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 ) {

// Le document suivant
    if( currentDocument.Pages.Count == currentDocumentPagesMoved ) {

// Toutes les pages ont été déplacées du document précédent. L'événement est déclenché.
      Events.OnDocumentsMerge( TargetDocument, currentDocument );
    }

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

currentDocumentPagesMoved = currentDocumentPagesMoved + 1;
  }
}

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

// Toutes les pages ont été déplacées du dernier document. L'événement est déclenché.
  Events.OnDocumentsMerge( TargetDocument, currentDocument )
}

Fusion des paramètres d’enregistrement du document lors de la fusion de documents

Type : gestionnaire de l’événement fusion de documentsCet exemple de code montre la manière la plus simple de fusionner les paramètres d’enregistrement du document lors d’une fusion de documents. Lors de la fusion de documents dans un document cible, seuls les paramètres absents de ce document sont ajoutés à partir des nouveaux documents.Le code doit être stocké dans un module partagé. La procédure OnDocumentsMerge doit être appelée au moment de la fusion des documents. Pour plus d’informations, consultez la description de l’événement fusion de documents.

[VBScript]

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

' Le document ne contient pas ce paramètre.
      TargetDocument.Properties.Set(propertyName, propertyValue)
  End If

End Sub

Sub OnDocumentsMerge(ByVal Target, ByVal Document)

' Fusion des paramètres d'enregistrement.
  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 ) == "" ) {

// Le document ne contient pas ce paramètre.
    TargetDocument.Properties.Set( propertyName, propertyValue );
  }
}

function OnDocumentsMerge( Target, Document )
{

// Fusion des paramètres d'enregistrement.
  for( i = 0; i < Document.Properties.Count - 1; i++ ) {

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