Automatisierungsfehler
17.07.2004 15:35:37
Michael
ich habe folgendes Problem. Nach einer Neuinstallation ("Drüberinstallation") von Windows funktioniert mein Code nicht mehr.
Der sieht so aus, und soll eigentlich zwei Word Dateien in einem neu erschaffenen Ordner kopieren. Dies tut er allerdings nicht mehr, sondern bringt in der Zeile mit dem CreateObject den Fehler Automatisierungsfehler.
Was könnte das sein?
Vielen Dank im voraus
Michael
Der betreffende Teil im Code:
...
Dim objWord As Word.Application
Dim objDoc As Word.Document
Dim shAdr As Worksheet
ActiveWorkbook.Worksheets("Verbrauch").Range("A1:A6").Copy
Set objWord = CreateObject("Word.Application") (HIER KOMMT DER FEHLER!)
Set objDoc = objWord.Documents.Open("C:\Eigene Dateien\Programmdateien Sattelhof\Angebot.doc")
objDoc.Shapes("Text Box 6").TextFrame.TextRange.PasteSpecial DataType:=wdPasteText
objDoc.SaveAs Filename:=f.Path & "\Ang-" & name & ".doc"
Set objDoc = objWord.Documents.Open("C:\Eigene Dateien\Programmdateien Sattelhof\Schriftverkehr.doc")
objDoc.Shapes("Text Box 6").TextFrame.TextRange.PasteSpecial DataType:=wdPasteText
objDoc.SaveAs Filename:=f.Path & "\Schriftv-" & name & ".doc"
objWord.Quit
Set objDoc = Nothing
Set objWord = Nothing
Unload Me
Application.CutCopyMode = False
ActiveWorkbook.Saved = True
ActiveWorkbook.Close