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 , 22 mal gelesen