Hi!



versuchs mal so:



Sub Serienb()

Dim WinWord, WinDoc

Dim sFile As String

sFile = "C:\Dokumente und Einstellungen\R2005.doc"

Range("A2: AI" & z & "").Copy Destination:=Windows("Test.xls").ActiveSheet.Rows("2:2")





Set WinWord = CreateObject("Word.Application")

With WinWord

.Visible = True

Set WinDoc = .Documents.Open(sFile)

End With



Set WinWord = Nothing

Set WinDoc = Nothing

End Sub



Musst den Code nat. in deinen einarbeiten.

Wenns nicht funzt, geh mal mit F8 die Einzelschritte durch und guck mal wo genau

der Fehler liegt, vielleicht kann man da was erkennen.



Grüße



LXus

Grüße

 

LXus

 

Win7 x64

Office 2013 x64

geschrieben von LXus , 04.11.2005, 18:09 Uhr , 24 mal gelesen