Другие примеры скриптов

[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
' Следующий документ
    If currentDocument.Pages.Count = currentDocumentPagesMoved Then
' Из предыдущего документа все страницы перемещаются – порождаем событие
      Events.OnDocumentsMerge TargetDocument, currentDocument
    End If
    Set currentDocument = Pages( i ).Document
  Else
Next
If currentDocument.Pages.Count = currentDocumentPagesMoved Then
' Из последнего документа все страницы перемещаются – порождаем событие
  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 ) {
    // Следующий документ
    if( currentDocument.Pages.Count == currentDocumentPagesMoved ) {
      // Из предыдущего документа все страницы перемещаются – порождаем событие
      Events.OnDocumentsMerge( TargetDocument, currentDocument );
    }
    currentDocument = Pages( i ).Document;
  } else {
    currentDocumentPagesMoved = currentDocumentPagesMoved + 1;
  }
}
 
if( currentDocument.Pages.Count == currentDocumentPagesMoved ) {
  // Из последнего документа все страницы перемещаются – порождаем событие
  Events.OnDocumentsMerge( TargetDocument, currentDocument )
}
        

[VBScript]
Sub MergeProperty(ByVal TargetDocument, ByVal propertyName, ByVal propertyValue)
  If TargetDocument.Properties.Get(propertyName) = "" Then
      ' Такого параметра не было в документе
      TargetDocument.Properties.Set(propertyName, propertyValue)
  End If
End Sub
Sub OnDocumentsMerge(ByVal Target, ByVal Document)
  ' Будем объединять регистрационные параметры
  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 ) == "" ) {
    // Такого параметра не было в документе
    TargetDocument.Properties.Set( propertyName, propertyValue );
  }
}
 
function OnDocumentsMerge( Target, Document )
{
  // Будем объединять регистрационные параметры
  for( i = 0; i < Document.Properties.Count - 1; i++ ) {
    MergeProperty( Target, Document.Properties(i).Name, Document.Properties(i).Value );
  }
}