ein neues Dokument auf Basis eines *.dot erzeugen

22/02/2009 - 12:31 von Thorsten Wiedemann | Report spam
Hallo Gemeinde,

ich habe eine Dokumentenvorlage gefertigt, die beim ersten Aufruf eine
userform zeigt. Hier werden verschiedene Eingaben abgefragt und dann in das
Dokument (was ja nun ein *.doc ist) eingefügt.

Da ich nun dem User bei einem weiteren Dokument ersparen möchte, wieder auf
die Verknüpfung doppelt zu klicken, dachte ich an ein Makro... Aber irgendwie
klappt das nicht:

Dokument durcken und schließen:
*****************************
Sub ausDrucken()

Dim myTask As Task
usfStart.Hide

ActiveDocument.PrintOut
ActiveDocument.Close (False)

End Sub
*********************************
So und dann dachte ich, dass ich über eine weitere Funktion / Sub das
gleiche nochmal mache, aber auch aus einem Button der Userform (die oben
stehende Sub wurde auch aus dem Button der Userform heraus aufgerufen)

*********************************
Sub neuesDokument()


Application.NewDocument.Add FileName:="T:\dienstlich\word\form1.dot", _
Section:=msoNewfromExistingFile, DisplayName:="New File", _
Action:=msoCreateNewFile

End Sub
*********************************


dies fand ich im web und habe es angepasst, aber es wird die *.dor zur
Bearbeitung geöffnet, nicht auf ihrer Grundlage ein neues *.doc erzeugt, was
ich gern hàtte, denn die userform wird mit der Document.new() geöffnet /
gezeigt.

Ich hoffe mal,dass das verstàndlich war und ich nicht gar zu verknotet denke
und spreche...-)


Vielen Dank für Eure Mühe


Gruß Thorsten
 

Lesen sie die antworten

#1 Lisa (Nora Richter)
22/02/2009 - 12:44 | Warnen spam
Hallo Thorsten,

Da ich nun dem User bei einem weiteren Dokument ersparen möchte, wieder auf
die Verknüpfung doppelt zu klicken, dachte ich an ein Makro... Aber irgendwie
klappt das nicht:

dies fand ich im web und habe es angepasst, aber es wird die *.dor zur
Bearbeitung geöffnet, nicht auf ihrer Grundlage ein neues *.doc erzeugt, was
ich gern hàtte, denn die userform wird mit der Document.new() geöffnet /
gezeigt.



Mit NewDocument wird ein Dokument zur Auflistung im Aufgabenbereich
hinzugefügt. Nimm mal lieber:
_____
Application.Documents.Add Template:="T:\dienstlich\word\form1.dot"
_____

Damit wird ein neues Dokument aus dem Template erzeugt und der
Documents-Auflistung (Liste der in Word geöffneten Dokumente
hinzugefügt).

Gruß
Lisa
_____
http://www.schreibbuero-richter.de/vba.html

Ähnliche fragen