Word.dot nur speichern unter

[cyberchris]

Hallo ihr lieben,

ich habe mal wieder ein kleines Problemchen.

Eine Wordvolrage lasse ich per VBA öffnen. Der User soll dann Drucken, Bearbeiten und Speichern unter können.
Jedoch nicht die .dot überspeichern.

Wenn man über den Windows Explorer eine dot-Datei öffnet, lässt sich diese nur als Doc mit speichern unter speichern.
Wie kann ich das per VBA realisieren?

Hier mein bisheriger Code.

Dim objWord As Word.Application
    Set objWord = CreateObject("Word.Application")
    With objWord
        .Visible = True
        .Documents.Open (dok1)
        .ActiveDocument.FormFields("Vorrichtungsnummer").result = IdentNr.Value
        .ActiveDocument.FormFields("Bezeichnung").result = d1
        .ActiveDocument.FormFields("Zeichnung").result = d2
        .ActiveDocument.FormFields("Index").result = d3
        .ActiveDocument.FormFields("BestellPA").result = d4
        .ActiveDocument.FormFields("Kostenstelle").result = d5
        .ActiveDocument.FormFields("Personal").result = persnr
        '.ActiveDocument.FormFields("Prüfer").result = Name
    End With
'    objWord.ActiveDocument.PrintOut 'ausdrucken
'    objWord.ActiveDocument.Close SaveChanges:=wdDoNotSaveChanges
'    objWord.Quit`


Vielen Dank
Christoph

[DF6GL]

Hallo,

warum ÖFFNEST und bearbeitest Du die Dot-Datei?


Erzeuge ein NEUES Word-Doc auf Grundlage der Dot-Datei   (   .Documents.Add ("Vorlage.dot")  )  und bearbeite das neue DOC...


Wenn im Windows-Explorer auf eine Dot-Datei doppelt geklickt wird, wird auch ein NEUES DOC erzeugt. Nur wenn Du im Kontextmenu "öffnen" wählst, wird die Dot-Datei in Word geladen.

[cyberchris]

Vielen Dank!