Office: Excel-Daten nach Word bringen

Hallo Leute

Ich möchte bestimmte Daten aus einer Excel-Datei in eine Word Datei bringen.
Das ganze soll aus Excel heraus funktionieren.

Hintergrund:
In Excel wird ein Tabellenblatt generiert, welches ausgedruckt werden soll.
Dieses Blatt enthält eine Adressangabe mit Name,Adresse und Ort, welches so ausgedruckt werden soll, dass die Adresse in einem Umschlag mit Sichtfenster sichtbar ist.

In Word kann ich eine Pfalzmarke fest verankern und die Seite so einrichten, dass bei einem Ausdruck eben das oben genannte Ziel erreicht wird.
(dazu habe ich eine Word-Vorlage erstellt)
Abr ich bekomme nicht alle Daten von Excel nach Word.

bisher erreicht:

mit diesem Code:

Sub NachWord()
Dim appWord As Object
Dim docTest As Object
Dim test As String

Set appWord = CreateObject("Word.Application")
Set docTest = appWord.Documents.Add(ThisWorkbook.Path & "\MAEPlan.dot")

appWord.Visible = True

docTest.Activate
docTest.Bookmarks("adrname").Range.Text = Range("A2")
docTest.Bookmarks("adrstr").Range.Text = Range("A3")
docTest.Bookmarks("adrort").Range.Text = Range("A4")
docTest.Bookmarks("mazeitraum").Range.Text = Range("A6")

Rows("1:8").Delete Shift:=xlUp
Range("A1").Select

docTest.Bookmarks("maplan").Range = Range("A:A,B:B,C:C,D:D,E:E,F:F,G:G,H:H")

Set docTest = Nothing
Set appWord = Nothing
End Sub

Werden problemlos die Werte aus den Zellen A2 - A6 in Word übertragen.

Aber in DER Zeile, in der der ganze Rest der Excel-Tabelle (es können auch mal mehrere Seiten sein) an die Sprungmarke "maplan" übergeben werden soll, steigt das Makro mit Fehlermeldung aus.

Was mache ich falsch und wie kann ich z Bsp den Bereich A1:G100 aus Excel heraus nach Word übertragen?

Vielen DAnk schon mal im Voraus für Eure Hilfe.

Ciao
Thorsten

:)

 

Da "Range" (trotz des gleichen Begriffs) in Word etwas anderes ist als in Excel, kann man den einen nicht einfach dem anderen zuweisen.

Versuche doch mal statt

Range("A1").Select

docTest.Bookmarks("maplan").Range = Range("A:A,B:B,C:C,D*biggrin.gif*,E:E,F:F,G:G,H:H")

Folgende Zeilen:

Range(" A1:G100").copy
docTest.Bookmarks("maplan").Range.paste

Gruß, Jürgen

 

Hi,

was sind es denn für Textmarken? Textformularfelder? Ist das Dokument (Vorlage) geschützt?

Dann ersetzt die Codezeilen mit Range mal entsprechend so:

Code:

"docTest.Bookmarks("adrname").Range.Text = .... " funktionert dann leider nicht!