If (rstIBFeature_UNION.RecordCount > 0) Then 
                rstIBFeature_UNION.MoveFirst 
                Do While Not rstIBFeature_UNION.EOF 
 
                If (rstIBFeature_veraendert_verschw.RecordCount > 0) Then 
                rstIBFeature_veraendert_verschw.MoveFirst 
                index = D.Paragraphs.count 
                Do While Not rstIBFeature_veraendert_verschw.EOF 
                    If rstIBFeature_UNION![FCODE] = _
                      rstIBFeature_veraendert_verschw![FCODE] Then 
                    'index = D.Paragraphs.count 
                    lngOS = rstIBFeature_veraendert_verschw![OS] 
                    idxRecordset = idxRecordset + 1 
                    D.Paragraphs.Add 
                    index = index + 1 
                    Set R = D.Paragraphs(index).Range 
                    D.Range.InsertAfter Trim(Str(lngOS)) & ", " & _
                      rstIBFeature_veraendert_verschw![Objekt] 
                    R.ParagraphFormat.Style = "Überschrift 2" 
                    D.Bookmarks.Add Name:="A" & _
                      rstIBFeature_veraendert_verschw![Objektnummer], Range:=R 
                    'If rstIBFeature_veraendert_neu![OS] = lngOS Then 
 
                        D.Paragraphs.Add 
                        index = D.Paragraphs.count 
                        Set R = D.Paragraphs(index).Range 
                        D.Range.InsertAfter "Beschreibung:" 
                        R.ParagraphFormat.Style = "Überschrift 3" 
 
                        D.Paragraphs.Add 
                        index = D.Paragraphs.count 
                        Set R = D.Paragraphs(index).Range 
                        D.Range.InsertAfter _
                          rstIBFeature_veraendert_verschw![Beschreibung] 
                        R.ParagraphFormat.Style = "Standard" 
 
                        D.Paragraphs.Add 
                        index = D.Paragraphs.count 
                        Set R = D.Paragraphs(index).Range 
                        D.Range.InsertAfter "Objekttyp:" 
                        R.ParagraphFormat.Style = "Überschrift 3" 
 
                        D.Paragraphs.Add 
                        index = D.Paragraphs.count 
                        Set R = D.Paragraphs(index).Range 
                        D.Range.InsertAfter _
                          rstIBFeature_veraendert_verschw![Objekttyp] 
                        R.ParagraphFormat.Style = "Standard" 
 
                        D.Paragraphs.Add 
                        index = D.Paragraphs.count 
                        Set R = D.Paragraphs(index).Range 
                        D.Range.InsertAfter "Zugehörige Objektteile:" 
                        R.ParagraphFormat.Style = "Überschrift 3"