Excel nach Word
05.12.2007 15:50:26
Hugo
Mit dem Risiko, dass ich halt nochmals eine Abfuhr erhalte, schreibe ich nochmals wegen meines Problems:
Ich habe es inzwischen geschaft, dass die Zelle g3 bei der Textmarke ExcelWert1 im Worddoc test.dot eingefügt wird. Hier mein Code:
Sub NachWord()
Dim appWord As Object
Dim docTest As Object
Set appWord = CreateObject("Word.Application")
Set docTest = appWord.Documents.Add("C:\daten\privat\Test.dot")
appWord.Visible = True
docTest.Activate
docTest.Bookmarks("ExcelWert1").Range.Text = Range("g3")
Set docTest = Nothing
Set appWord = Nothing
End Sub
Was mir jedoch weiterhin schleierhaft ist, wie ich es schaffe, dass nun der Wert der Zelle d3 bei der Textmarke InspNr eingesetzt wird!
Weiss jemand von Euch Rat?
Besten Dank.
Gruss
Hugo