Jag undrar om det är någon som vet hur man skriver
koden till "spara som" ett word dokument med commondialog1.
Öppna dokumentet är inga problem men jag får inte till det när
jag ska spara det.
Tacksam för lite hjälp


Här är lite kod
<code>
Private Sub cmdspara_Click()
On Error Resume Next


If Len(Dir(App.Path & "\Mittdokument.doc")) = 0 Then 'Kollar dokumentet
MsgBox "Du måste skapa dokumentet först!", vbInformation, "Fel!"
Exit Sub
End If

Set wrd = CreateObject("word.application") 'Öppnar upp word
wrd.Documents.Open App.Path & "\Mittdokument.doc", , True, False
wrd.Visible = False

On Error GoTo 0
On Error GoTo Cancel

With CommonDialog1 'Sparar som
.Flags = &H2
.CancelError = True
.InitDir = App.Path
.Filter = "Word-dokument (*.doc) |*.doc"
.DefaultExt = ".doc"
.DialogTitle = "Spara som:"
.FileName = "Mittdokument"
.ShowSave
End With 'Här blir det fel!
wrd.ActiveDocument.SaveFile CommonDialog1.FileName


wrd.Quit 'städar
Set wordrange = Nothing
Set worddoc = Nothing
Set wrd = Nothing

Exit Sub
Cancel:
Exit Sub

End Sub
</code>
Per

Hoppsan!!
Löste det själv

mall.ActiveDocument.Saveas CommonDialog1.FileName

istället för

mall.ActiveDocument.SaveFile CommonDialog1.FileName

Enkelt när man kommer på det!!

Per