Markierte Bereiche/Tabellen aus Excel mit VBA in Word einfügen

[Phima]

Hallo zusammen,
ich benötige eure Hilfe.

Ich bekomme es nicht hin, ein Makro zu erstellen, dass mir markierte Bereiche bzw. Excel Tabellen in ein geöffnetes Word-Dokument überträgt. Die Tabellen/Bereiche sollten, nachdem sie in Word übertragen wurden mittels Autofit in der Breite angepasst sein.

Bin über jede Hilfe oder Anregung dankbar.

Vielen Dank und Grüße
Philipp

[schauan]

Hallöcehn,

im Prinzip so:

Dim objWord As Object
Range("A1:D15").Copy
Set objWord = GetObject("word.application")
Set objDoc = objWord.activedocument
'nur Inhalte, Achtung! Ersetzt den Inhalt des Documents
objDoc.Range.Pasteexceltable False, False, True
'alles ans Ende des Dokuments
objDoc.Range(objDoc.Range.End - 1, objDoc.Range.End).Paste

Wegen den Positionen gehen auch andere, z.B. Bookmarks, siehe hier:
http://www.clever-excel-forum.de/thread-7265.html