Worddatei aus Excel VBA
Jürgen
ich habe ein kleinse Programm in Excel geschrieben. Den Ausdruck aus dem Programm möchte ich aber in Word machen.
Sobald jemand auf den Druckern Button klickt, habe ich u. a. folgenden Code geschrieben:
Sub TextmarkenInhaltfestlegen()
Dim objVorschlag As Object
Set objVorschlag = CreateObject("Word.Application")
With objVorschlag
.documents.Open Filename:="D:\Ausdruck.doc"
.Visible = True
.Activate
.Visible = 0 'Word unsichtbar machen
End With
'....Danch werden die Textmarken angesprugen und gefüllt
Nun ist es aber leider so, dass wenn jemand auf den Drucken Button klickt, dann dauert es sehr lange, bis Word und die Datei überhaupt aufgehen. Man hat fast den Eindruck, das nichts mehr passiert!Gibt es eine Methode, wie ich das beschleunigen kann. Meine Idee wäre noch gewesen, dass ich gleich nach dem Laden des Userform die obigen Codezeilen ablaufen lasse. In der Zwischenzeit ist der Anwender ja sowieso mit der Eingabe beschäftigt. Wäre das eine Lösung? Was würdet Ihr vorschlagen?
Eine kleine Frage habe ich noch zu diesem Teil:
.Visible = True
.Activate
.Visible = 0 'Word unsichtbar machen
Durch diesen Code, "popt" Word kurz auf und ist dann weg. Ich habe auch schon versucht das ganze in einer anderen Reihenfolge zu schreiben, doch dann wird das Dokument nicht aktiv geschaltet und ich kann die Textmarken nicht befüllen. Kann ich das ganze auch im Hintergrund befüllen?
Schon im voraus wieder besten Dank!
Viele Grüße
Jürgen