Zum Hauptinhalt springen
Typ: Handler für das Ereignis Pages movedDieser Beispielcode zeigt, wie sich das Ereignis „Pages moved“ in das Ereignis „Document merge“ umwandeln lässt. Die Logik dieses Skripts ist wie folgt: Wenn alle Seiten eines Dokuments verschoben werden, wird dieses Dokument vollständig in das Zieldokument eingebunden.Das Skript wird durch das Ereignis Pages moved ausgelöst. Die Prozedur Events.OnDocumentsMerge verarbeitet das Ereignis „Document merge“.
[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

' Das nächste Dokument
    If currentDocument.Pages.Count = currentDocumentPagesMoved Then

' Alle Seiten wurden aus dem vorherigen Dokument verschoben. Das Ereignis wird ausgelöst.
      Events.OnDocumentsMerge TargetDocument, currentDocument
    End If

Set currentDocument = Pages( i ).Document
  Else

Next

If currentDocument.Pages.Count = currentDocumentPagesMoved Then

' Alle Seiten wurden aus dem letzten Dokument verschoben. Das Ereignis wird ausgelöst.
  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 ) {

// Das nächste Dokument
    if( currentDocument.Pages.Count == currentDocumentPagesMoved ) {

// Alle Seiten wurden aus dem vorherigen Dokument verschoben. Das Ereignis wird ausgelöst.
      Events.OnDocumentsMerge( TargetDocument, currentDocument );
    }

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

currentDocumentPagesMoved = currentDocumentPagesMoved + 1;
  }
}

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

// Alle Seiten wurden aus dem letzten Dokument verschoben. Das Ereignis wird ausgelöst.
  Events.OnDocumentsMerge( TargetDocument, currentDocument )
}
Typ: Handler für das Ereignis Document mergeDieser Beispielcode zeigt die einfachste Möglichkeit, Dokument-Registrierungsparameter bei einer Dokumentzusammenführung zusammenzuführen. Wenn Dokumente in ein Zieldokument zusammengeführt werden, werden nur die Parameter aus den neuen Dokumenten hinzugefügt, die im Zieldokument noch fehlen.Der Code sollte in einem gemeinsamen Modul gespeichert werden. Die Prozedur OnDocumentsMerge muss beim Zusammenführen der Dokumente aufgerufen werden. Einzelheiten finden Sie in der Beschreibung des Ereignisses „Document merge“.
[VBScript]

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

' Im Dokument gibt es keinen solchen Parameter.
      TargetDocument.Properties.Set(propertyName, propertyValue)
  End If

End Sub

Sub OnDocumentsMerge(ByVal Target, ByVal Document)

' Registrierungsparameter zusammenführen.
  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 ) == "" ) {

// Im Dokument gibt es keinen solchen Parameter.
    TargetDocument.Properties.Set( propertyName, propertyValue );
  }
}

function OnDocumentsMerge( Target, Document )
{

// Registrierungsparameter zusammenführen.
  for( i = 0; i < Document.Properties.Count - 1; i++ ) {

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