Extreme Veteran
Beiträge: 587
 
| Hallo,
OrionVII - 06.04.26 15:16
Private Sub btnWordOpen_Click()
Dim WordObj As Word.Application
Set WordObj = New Word.Application
WordObj.Documents.Open "C:\Users\Pfad\MeineWordVorlage.dotx"
WordObj.Visible = True
End Sub
erhalte ich die Fehlermeldung: Benutzerdefinierter Typ nicht definiert. Kann es an private sub liegen?
Nein. Ich vermute, du willst ein neues Worddokument erstellen, das auf deiner MeineWordVorlage.dotx basiert, oder?
Probier's mal so:
Private Sub btnWordOpen_Click()
Dim WordObj As Object
Dim wdDoc As Object
Dim strTemplatePath As String
strTemplatePath = "C:\Users\Pfad\MeineWordVorlage.dotx"
Set WordObj = CreateObject("Word.Application")
Set wdDoc = WordObj.Documents.Add(Template:=strTemplatePath, NewTemplate:=False)
WordObj.Visible = True
Set WordObj = Nothing 'nicht vergesssen, aufzuräumen
End Sub
(ungetestet)
-----
Gruss - Peter |
