ich bräuchte mal hilfe.
ich habe in excelsheet 5 datenfelder, deren daten ich in word übernehmen möchte.
wie muss ich das programmieren?
danke
ich bräuchte mal hilfe.
ich habe in excelsheet 5 datenfelder, deren daten ich in word übernehmen möchte.
wie muss ich das programmieren?
danke
'Unter Menue Extras/Verweise Microsoft Word 8.0 oder höher
'einfügen.
'Gewünschte Zellen Makieren und Sub Starten.
'**********************************************
'Programmcode
'**********************************************
Public Sub ÜbernahmeWord()
Dim app As Application
Dim tb As Range
Dim appWord As Word.Application
Dim doc As Word.Document
Set app = Application
Set appWord = New Word.Application
appWord.Visible = True
Set doc = appWord.Documents.Add
For Each tb In app.Selection
doc.Range.InsertAfter (tb.Value)
doc.Range.InsertParagraphAfter
Next tb
End Sub