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
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