Word Vorlage aus Excel
maschmi
habe mal wieder ein Problem. Ich habe in Excel eine Dokumentenverwaltung aufgebaut, wo alle in unserer Firma benutzten Excel und Word - Vorlagedateien (z.B. xxx.dot) abgelegt sind (per Comando-Button auswählbar). Problem ist (hoffe das ich es sinnvoll erklärt kriege): Ich bekomme die Vorlagedatei zwar geöffnet mit folgendem Code:
Sub DateinameÖffnen()
Pfad = "Pfad und Dateiname.dot"
Dim WdApp As Object
Dim wdDok As Object
Set WdApp = CreateObject("Word.Application")
Set wdDok = WdApp.documents.Open(Filename:=Pfad, ReadOnly:=True)
WdApp.Visible = True
WdApp.Activate
Set wdDok = Nothing
Set WdApp = Nothing
End Sub
aber, in der Word - Vorlage - Datei ist ebenfalls ein Code hinterlegt um einen Speicherort vorzugeben. Dieser ist aktiviert, wenn ich die Datei aus dem Windows-Explorer starte, aber nicht wenn ich über den Commandobutton in Excel auswähle. Dadurch will er das Word - Dokument immer als Vorlagedatei im Vorlagenordner speichern. Hat jemand ne idee, wie ich den Code aktivieren kann, damit er auch beim öffnen aus Excel funktioniert? Wenn ich nach dem öffnen über excel in word in den VBA Editor gucke ist der Code auch da, nur zeigt keine funktion - nur wenn ich aus dem Explorer öffne, bekomme ich auch meine Vorgabe - Speicherorte angezeitgt. Der Code in Word sieht übrigens so aus:
Sub FileSave()
If ActiveDocument.Path = "" Then
Call FileSaveAs
Exit Sub
End If
End Sub
Sub FileSaveAs()
Const Pfad As String = "P:\Schriftverkehr\" 'Anpassbarer Pfad
ChangeFileOpenDirectory (Pfad)
Dialogs(wdDialogFileSaveAs).Show
End Sub
Hoffe ich habe es einigermaßen erklärt bekommen und jemand kann mir helfen.
Danke im Voraus.
Gruß Maschmi