Dim Programm As New Programm()
        Dim Datei As New DateiKlasse.Büroprogramme.Word2007TabelleDatei( _
          "VorlageTabelle2007.docx", "Ziel2007.docx")
        Datei.InnenteileErstellen(2, "test")
        Datei.AbschnittSchreiben(6, "Inhalt")
        Datei.AbschnittSchreiben(2, 12, "Inhat2")
        Datei.InProgrammÖffnen(Programm.Word2007Tabelle)
        Datei.DateiSchließen()

        Dim ff As New DateiKlasse.Büroprogramme.BüroDatei( _
          "VorlageWord2007.docx", "Ziel2007.docx", 13)
        ff.InnenteileErstellen(2, "test")
        ff.AbschnittSchreiben(6, "Inhalt")
        ff.AbschnittSchreiben(2, 12, "Inhalt2")
        ff.InProgrammÖffnen()
        ff.DateiSchließen()

   Public Class BüroDatei
 
        Private Word2007Text As DateiKlasse.Büroprogramme.Word2007TextDatei
 
        Public Sub New(ByVal QuellDateiname As String, ByVal ZielDateiname As _
          String, ByVal Programm As Integer)
 
           Select Case intProgramm
            ...
                Case 13
                     Word2007Text = New _
                       DateiKlasse.Büroprogramme.Word2007TextDatei( _
                       strQuellDateiname, strZielDateiname)
                Case 14
                    Word2007Tabelle = New _
                      DateiKlasse.Büroprogramme.Word2007TabelleDatei( _
                      strQuellDateiname, strZielDateiname)
            End Select
 
 
        Public Sub AbschnittSchreiben(ByVal intMarkierungsnummer As Integer, _
          ByVal strEinzufügenderInhalt As String)
 
            Select Case intProgramm
             ...
                Case 13
                    Word2007Text.AbschnittSchreiben(intMarkierungsnummer, _
                      strEinzufügenderInhalt)
                Case 14
                    Word2007Tabelle.AbschnittSchreiben(intMarkierungsnummer, _
                      strEinzufügenderInhalt)
            End Select
 
   End Sub
 
...
 
end class

Inherits OpenDokumentTabelleDatei

 Inherits clsBüroDateiKlasse