Aus Excel unbestimmte anzahl an Zeilen in Word
Detege
mit hilfe des Forums habe ich es geschafft durch Textmarken mittels VBA zeilen aus Excel in Word einzufügen. Ich schaffe es jedoch nicht es nach meinen bedürfnissen anzupassen.
Mein Code sieht zur Zeit so aus :
Sub Copywordtoexcel()
Dim strData As String
Dim objWord As Object
'zum beispiel...
strData = ActiveSheet.Range("A1")
'word objekt instanzieren
Set objWord = CreateObject("Word.Application")
'vorlage öffnen
objWord.documents.Open "C:++vorlage.dot"
'wenn word angezeigt werden soll
objWord.Visible = True
With objWord
If .ActiveDocument.Bookmarks.Exists("Data") Then
.ActiveDocument.Bookmarks("Data").Range.Text = strData
End If
End With
'datum gleich als dokumentnamen nutzen
objWord.ActiveDocument.SaveAs "C:\++& Date & .doc"
'word beenden
'objWord.Quit
'objekt löschen
Set objWord = Nothing
End Sub
manchmal habe ich 20 Zeilen manchmal 80 die ich gerne ins folgende Word Dokument reinsetzen möchte.
Dabei würde ich es gerne so haben, das meine Zeilenanzahl in excel variieren darf und an den stellen wo Info aus Zeile dransteht die daten aus der zeile reinkommen, jeweils unter punkt 1 bis 6
dann auf die nächste seite usw..
Meine Tabelle sieht so aus :
Eine möglichkeit die ich habe, wäre an jedem punkt eine textmarkein word zu setzen und die daten reinzukopieren, wobei ich aber dann jede Zeile die kopieren möchte ins code schreiben muss. Gibt es hierzu eine/keine einfachere möglichkeit ?
Vielen Dank für jegliche Hilfe.
MFG