Sub get_xls_werte()
'Autor:  Heiko Hommes
'Datum:  11.12.2006
'Beschr: Testfunktion, um Texte an eine bestimmt Stelle (Bookmark) zu schreiben
'        und Werte aus einer Excel Datei in eine Wordtabelle zu schreiben

Dim wert_1 As Variant
Dim txtmark As Variant
wert1 = 99
'Bookmarkfunktion
'hh2 heisst der Bookmark
ActiveDocument.Bookmarks("hh2").Range = "Text an eine Bookmarkstelle schreiben"

'hole werte aus Exceldatei
Set xls_ws = GetObject("C:\Daten\vba_appl\xls_testwerte.xls")
wert1 = xls_ws.Worksheets("Tabelle1").Range("A3").Value
MsgBox ("wert= " & wert1)
ActiveDocument.Range(0, 0).InsertBefore wert1
With ActiveDocument.Tables(2).Cell(2, 3).Range
    .InsertAfter wert1
End With

End Sub