[VBA] Dokumentenvorlage öffnen

[kuekenMcNugget]

Hi @ all,

ich habe folgendes Problem. Ich will aus MSProject 98 heraus eine neue Worddatei auf Basis einer Dokumentenvorlage erstellen.

Mein letzter Versuch:

        Const c_sPath = "datei.dot"


        Set objMSWord = CreateObject("Word.Application")

        If objMSWord Is Nothing Then

            MsgBox "Konnte keine Verbindung zu Word herstellen!", 16, "Problem"

            Exit Sub 'Prozedur beenden im Fehlerfall

        End If

        objMSWord.Visible = True

        objMSWord.Documents.Open c_sPath, , True

Nur dabei wird direkt die *.dot datei geöffnet und keine neue *.doc Datei, was ich eigentlich vor habe. Des Weiteren dürfen die Makros in der Dokumentenvorlage auch nicht mit ausgeführt werden.

Wie realisiere ich das am besten???

[kuekenMcNugget]

Seit ihr alle im Urlaub???

Also ich bin jetzt selber etwas weiter gekommen. Ich habe folgendes geändert:

                Set objMSWord = CreateObject("Word.Application")

                If objMSWord Is Nothing Then

                    MsgBox c_sNoWord, 16, "Problem"

                    Exit Sub 'Prozedur beenden im Fehlerfall

                End If

                objMSWord.Visible = True

                [b]objMSWord.Documents.Add Template:=c_sPath, NewTemplate:=True[/b]

Nur wird immer noch Word mehrmals geöffnet und am wichtigestens ist noch, wie bekomme ich es hin die Wordvorlage zu öffnen, ohne dabei die Makros zu starten?

[NightmareonWax]

Du musst beim öffnen des Documentes die "shift"-taste gedrückt halten.

>>NoW<<

[xmurrix]

Hi,

wenn du ein Dokument auf Basis einer Dokumentvorlage öffnen willst, solltest du der Documents-Objekt (Auflistung), ein neues Dokument in folgender Form hizufügen:

objMSWord.Documents.Add(c_sPath)

mfg,

xmurrix

[kuekenMcNugget]

Original geschrieben von NightmareonWax

Du musst beim öffnen des Documentes die "shift"-taste gedrückt halten.

Es gibt ja doch noch ein paar Leute hier.

Kann man das mit der Shift-Taste auch irgendwie in ein Makro bringen. Will nicht hunderten von Usern zumuten jedes mal die Shift-Taste zu drücken!!!

[NightmareonWax]

Kann man das mit der Shift-Taste auch irgendwie in ein Makro bringen. Will nicht hunderten von Usern zumuten jedes mal die Shift-Taste zu drücken!!!

verstehe, aber nach meinem Wissen führt sich ein macro nur mit dem "AutoOpen"- befehl selbst, nach öffnen des Documentes, aus.... also warum nimmst Du diesen befehl nicht raus? MAl davon abgesehen weiss ich nich genau was, wie, wann das macro angewendet wird. Vielleicht helfen mir ja mehr informationen, wenn Dir der Tipp noch nicht geholfen hat.

>>NoW<<

[kuekenMcNugget]

habe das Problem selber gelöst!

der Code, den ich brauchte war:

objMSWord.WordBasic.DisableAutoMacros 1