'Tabellenzeilen 
 
                        lngTabellenzeilen = 1 
                        Do While lngOS = rstIBFeature_veraendert_verschw![OS] 
                            tblTabelle.Rows.Add 
                            lngTabellenzeilen = lngTabellenzeilen + 1 
                            Set celZelle = tblTabelle.Cell(lngTabellenzeilen, 1) 
                            celZelle.Range.Text = _
                              rstIBFeature_veraendert_verschw![OTS] 
                            celZelle.Range.Font.Color = wdColorBlue 
                            'celZelle.Range.Style = "Tabellentext" 
                            Set R = celZelle.Range 
                            D.Bookmarks.Add Name:="OTS" & _
                              rstIBFeature_veraendert_verschw![FCODE], Range:=R 
                            Set celZelle = tblTabelle.Cell(lngTabellenzeilen, 2) 
                            celZelle.Range.Text = _
                              rstIBFeature_veraendert_verschw![Objektteil] 
                            celZelle.Range.Font.Color = wdColorBlue 
                            'celZelle.Range.Style = "Tabellentext" 
                            Set celZelle = tblTabelle.Cell(lngTabellenzeilen, 3) 
                            celZelle.Range.Text = _
                              rstIBFeature_veraendert_verschw![Vorkommen] 
                            celZelle.Range.Font.Color = wdColorBlue 
                            'celZelle.Range.Style = "Tabellentext" 
                            Set celZelle = tblTabelle.Cell(lngTabellenzeilen, 4) 
                            celZelle.Range.Text = Replace(Left( _
                              rstIBFeature_veraendert_verschw![Geometrietyp], _
                              1), "Z", "P") 
                            celZelle.Range.Font.Color = wdColorBlue 
                            'celZelle.Range.Style = "Tabellentext" 
                            rstIBFeature_veraendert_verschw.MoveNext 
                            If rstIBFeature_veraendert_verschw.EOF Then 
                               GoTo Rest_veraendert_verschw 
                            End If 
                        Loop 
                        'Set Zeile = tblTabelle.Rows(1) 
                        'Zeile.HeadingFormat = True 
                        'Zeile.Shading.BackgroundPatternColor = wdColorGray20 
Rest_veraendert_verschw: 
                        Set Zeile = tblTabelle.Rows(1) 
                        Zeile.HeadingFormat = True 
                        Zeile.Shading.BackgroundPatternColor = wdColorGray20 
 
                        rstIBFeature_veraendert_verschw.MovePrevious 
                        D.Paragraphs.Add 
                        index = D.Paragraphs.count 
                        Set R = D.Paragraphs(index).Range 
                        D.Range.InsertAfter "Bemerkung:" 
                        R.ParagraphFormat.Style = "Überschrift 3" 
 
                        D.Paragraphs.Add 
                        index = D.Paragraphs.count 
                        Set R = D.Paragraphs(index).Range 
                        D.Range.InsertAfter _
                          rstIBFeature_veraendert_verschw![Bemerkungen] 
                        R.ParagraphFormat.Style = "Standard" 
                        rstIBFeature_veraendert_verschw.MoveNext 
                        D.Paragraphs.Add 
                        index = D.Paragraphs.count 
                        Set R = D.Paragraphs(index).Range 
                        D.Range.InsertAfter "" 
                        R.ParagraphFormat.Style = "Seitenwechsel" 
                    'End If 
                        'rstIBFeature.MoveNext 
                        'If idxRecordset Mod 10 = 0 Then 
                        '    D.Save 
                        'End If 
                    ElseIf rstIBFeature_UNION![FCODE] <> _
                      rstIBFeature_veraendert_verschw![FCODE] Then 
                        rstIBFeature_veraendert_verschw.MoveNext 
                    End If 
 
                Loop 
                    rstIBFeature_UNION.MoveNext 
                End If 
 
                If rstIBFeature_UNION.EOF Then 
                    GoTo Ende 
                End If 
 
                'Loop 
                'rstIBFeature_UNION.MoveNext 
                'End If 
                'rstIBFeature_UNION.MoveNext 
                Loop 
                End If 
 
 
Ende: