Sub Daten_uebernehmen()
'
' Daten_uebernehmen Makro
' Makro am 26.11.2003 von   aufgezeichnet
'
Dim worddokupfad As String
Dim verzeichnis As String
Dim datei As String
Dim dateiexcel As String
Dim exceldokupfad As String
Dim meinexcel As Excel.Application
Dim worddatei As String
 
    worddokupfad = "U:\projekte\Besuchsberichte\alle_Berichte\"
    datei = "100_KV_16303_KLASchw_20030514_0.doc"
    'worddokupfad = verzeichnis & datei
    exceldokupfad = "U:\projekte\Besuchsberichte"
    dateiexecl = "Berichtsauswertung"
 
    Set meinexcel = GetObject(, "Excel.Application")
    meinexcel.Visible = True
 
    worddatei = Dir(worddokupfad)
    MsgBox (worddokupfad & datei)
 
    documents.Open Filename:=worddokupfad & datei
 
End Sub