Word-Applikation schliessen
28.06.2005 17:17:15
Beat
Ich füge in einem Excel-Sheet über "Inhalte einfügen", "Microsoft Word Dokument-Objekt", "Als Symbol" einen Verweis auf ein Worddokument ein. Dieses Worddokument existiert nicht wirklich, sondern ich starte von Excel aus ein Makro in Word, welches einen Teil dieses Worddokumentes in meine Zwischenablage kopiert und füge dieses "virtuelle" Dokument als Symbol ein. Dies funktioniert ohne Probleme. Das Schliessen dieses Word-Objektes dauert nun ewig, das heisst, drei oder vier Minuten. Hat jemand eine Ahnung, warum das so ist und weiss Abhilfe?
Beiliegend das Script zum einfügen:
Sub Dokoeffnen()
Dim WordObj As Object
Dim WordDoc As Object
Dim z As String
z = Sheets("Grundtabelle Druck").Range("I2").Value
Set WordObj = CreateObject("word.application.10")
WordObj.Visible = True
Set WordDoc = WordObj.Documents.Open(z)
With WordObj
.Run "SeiteAngebot"
End With
Call Einfügen 'Fügt den Verweis auf das Worddokument ein
With WordObj
.Application.Quit
End With
Set WordObj = Nothing
Set WordDoc = Nothing
End Sub