Dim objApp As Acrobat.CAcroApp = New Acrobat.AcroApp
            objApp.Show()
 
            'Wenn Acrobat bereits offen ist, alle ofenen Dokumente schließen
            If objApp.GetNumAVDocs > 0 Then objApp.CloseAllDocs()
 
            'Quelldokument öffnen
            Dim objQuellAVDoc As Acrobat.CAcroAVDoc = New Acrobat.AcroAVDoc
            Dim objQuellAVPageView As Acrobat.CAcroAVPageView
 
            objQuellAVDoc.Open(strSourceFileWithPath, "Quellfile")
            objQuellAVDoc.BringToFront()
 
            Dim objQuellPDDoc As Acrobat.CAcroPDDoc
            objQuellPDDoc = New Acrobat.AcroPDDoc
            Try
                objQuellPDDoc = CType(objQuellAVDoc.GetPDDoc(), _
                  Acrobat.AcroPDDoc)
            Catch ex As Exception
                console.WriteLine("Konnte Ziel PD Doc nicht von Ziel AV Doc" & _
                  "holen")
            End Try
 
            'Objekte für Zieldokumente öffnen
            Dim objZielPDDoc As Acrobat.CAcroPDDoc
            Dim blnLetzterVorgang As Boolean = False
 
            Dim iCounter As Integer = 0
            Do
                iCounter += 1
 
                'Zieldateipfad erstellen
                Dim strTargetFileWithPath As String
                strTargetFileWithPath = myconfig.DocTargetFolder & _
                  strSourceFilename & "_" & CStr(iCounter) & ".pdf"
 
                'Seiten suchen
                Dim iSeite As Integer = 0   'letzte Seite des zu Übertragenden 
                ' Dokuments
 
                'Seiten suchen
                objQuellAVDoc.FindText(myconfig.PdfDocSeparator, 1, 1, 1)
 
                ''2. Treffer ist die erste Seite des zweiten Dokuments
                objQuellAVDoc.FindText(myconfig.PdfDocSeparator, 1, 1, 0)
 
                objQuellAVPageView = CType(objQuellAVDoc.GetAVPageView, _
                  Acrobat.AcroAVPageView)
 
                'letzte Seite des ersten Dokuments ermitteln
                iSeite = objQuellAVPageView.GetPageNum
                If iSeite = 0 Then 'iSeite steht auf Seite 1 (letztes Dokument)
 
                ''Wenn zweiter Suchvorgang die Seite 1 ergibt, ist es der _
                  letzte Vorgang
                blnLetzterVorgang = True
 
                ''letzte Seite aktuelles Dokument = letzte Seite Gesamtdokument
                iSeite = objQuellPDDoc.GetNumPages - 1
 
                Else 'iSeite steht noch auf der 1. Seite des 2. Dokuments
                    iSeite -= 1
                End If
 
                  objZielPDDoc.Close()
                  System.Runtime.InteropServices.Marshal.ReleaseComObject( _
                    objZielPDDoc)
                  objZielPDDoc = Nothing
 
                  'Seiten löschen
                   objQuellPDDoc.DeletePages(0, iSeite)
                  'objQuellPDDoc.Save(CShort(Acrobat.PDSaveFlags.PDSaveFull), 
                  ' strSourceFileWithPath)
 
            Loop Until blnLetzterVorgang
 
            'Schließen von Acrobat und freigeben der Objekte
            objQuellPDDoc.Close()
            System.Runtime.InteropServices.Marshal.ReleaseComObject( _
              objQuellPDDoc)
            objQuellPDDoc = Nothing
 
 
            'Quelldokument schließen
            '   (Achtung: Für "1 Seiten Abkürzung" und den langen Weg benötigt)
            objQuellAVDoc.Close(1)
            System.Runtime.InteropServices.Marshal.ReleaseComObject( _
              objQuellAVDoc)
            objQuellAVDoc = Nothing