次のスクリプトでは、サイズの大きな文書も含め全体を複製できます。
Dim session As New NotesSession Dim db As NotesDatabase Dim rep As NotesReplication Set db = session.CurrentDatabase Set rep = db.ReplicationInfo If rep.Abstract Then rep.Abstract = False End If Call rep.Save()