Dim oWord As Object
    Dim odoc As Object
    Dim m_wdTabelle As Object
Sub Dateioeffnen(ByVal name As String)
 Try
        oword = GetObject(, "Word.Application")
        odoc = oword.Documents.Open(name)
  End Sub
 
Sub MacheTabelle(ByVal Zeilen As Integer, _
    ByVal Spalten As Integer, ByVal texzeile As Integer, ByVal texspalte As _
    Integer, ByVal text As String)
        m_wdTabelle = _
            odoc.Tables.Add(oWord.Selection.Range, _
            Zeilen, Spalten)
End Sub
 
 Sub TextInGeradegemachteTabelle(ByVal Text As String, _
       ByVal Zeile As Integer, _
       ByVal Spalte As Integer)
        m_wdTabelle.Rows().Item(Zeile).Cells().Item(Spalte). _
      Range.Text = Text
  End Sub
 
sub TextInSchonInderVorlageVorhandeneTabelle
"Wie spreche ich die schon vorhandene Tabelle an,_
 damit ich in eine gewisse Zelle Text schreiben kann????????????"
End Sub