Hallo,
dann geht es vom Prinzip her folgendermaßen, wobei du natürlich Pfade, Namen und Umfang der Daten an deine Gegebenheiten anpassen musst. Wenn dein Button ein ActiveX-Button ist, gehört der Code ins Codemodul der Tabelle oder der Userform, wo er sich befindet. Wenn es sich um einen Formularbutton oder sonst eine Zeichnungsform handelt, musst du die erste Zeile (Private Sub CommandButton1_Click) z. B. ändern in Public Sub XL2WD(), den Code in ein allgemeines Modul einfügen (im VBA-Editor Einfügen --> Modul) und mit einem Rechtsklick auf die Form --> Makro zuweisen die Form mit diesem Code verbinden:
Private Sub CommandButton1_Click()
Dim wdApp As Object, wdDoc As Object, wdTbl As Object, _
Zeile As Long, Spalte As Long
Set wdApp = CreateObject("Word.Application")
wdApp.Visible = True
Set wdDoc = wdApp.Documents.Add("Y:\Word\Vorlagen\Tabelle.dot")
Set wdTbl = wdDoc.Tables(1)
For Zeile = 1 To 2
For Spalte = 1 To 3
wdTbl.Cell(Zeile, Spalte).Range.InsertAfter Cells(Zeile, Spalte)
Next Spalte, Zeile
wdDoc.SaveAs wdDoc.Path & "\Neue_Tabelle.doc"
wdApp.Quit
Set wdTbl = Nothing
Set wdDoc = Nothing
Set wdApp = Nothing
End Sub
Wenn noch Fragen offen bleiben, melde dich noch mal.
Gruß Jürgen
|