VBA für Word2000, Syntaxfehler?

Computer: Software & Programmierung Visual Basic
#1

Hallo!

Ich möchte einem Worddokument ein neues Vorlagedokument (eigene_vorlage.dot) zuweisen, welches im gleichen Verzeichnis wie die normal.dot liegt.
Bekomme immer diese Fehlermeldung: „Word kann diese Dokumentvorlage nicht öffnen“. Was ist falsch?

Sub test()
Dim vorlagedatei As Object
Dim name As String

Set vorlagedatei = ActiveDocument.AttachedTemplate
name = „eigene_vorlage.dot“

ActiveDocument.AttachedTemplate = vorlagedatei.Path _
& Application.PathSeparator & name

End Sub

Danke für alle hilfreichen Tipps,
Martin

#2

Moin, Martin,

der Code ist richtig, ich hab’s gerade nachgepielt. Vergewissere Dich mal, ob die eigene_vorlage.dot tatsächlich in diesem Pfad liegt.

Gruß Ralf

#3

hallo Martin,

gib bitte Variablen nie Namen die Word, Excel, Vba kennen, z.B: „name“
Nenn’s Namen, Nam, myname, sonstwie, aber bitte nicht name.
Ist wie bei Klaus Lage, 1000mal ist nix passiert, dann hats Zuuuum gemacht :smile:)

Probier mal dieses und berichte:

Sub test()
Dim vorlagedatei As Object, DotName As String
Set vorlagedatei = ActiveDocument.AttachedTemplate
DotName = "eigene\_vorlage.dot"
If Dir(vorlagedatei.Path & Application.PathSeparator & DotName) "" Then
 MsgBox vorlagedatei.Path & Application.PathSeparator & DotName & " existiert"
Else
 MsgBox vorlagedatei.Path & Application.PathSeparator & DotName & " existiert NICHT"
End If
'ActiveDocument.AttachedTemplate = vorlagedatei.Path \_
'& Application.PathSeparator & DotName
End Sub

Gruß
Reinhard

#4

Ich habe zwar eine Datei mit dem richtigen namen ins Vorlagenverzeichnis gespeichert, aber mit der Endung *.doc

Nachdem ich diesen blöden Fehler korrigiert habe, hat es auch einwandfrei geklappt.