Template with UserForm.

[Klaus H]

Sorry to crosspost. I don't known wich group is the right for my question


I have an template (rekv.dot) containing an UserForm, to create a rekvisiton
form.

I would like to save the final document, on closing the document, in two
different destinations.
If the document is reopened, I don't want it to save unless it was altered.


ThisDocument contains:

Private Sub Document_New()
UserForm1.Show
End Sub

Private Sub Document_Close()
ThisDocument.SaveAs FileName:="g:\test\kopi\" & ActiveDocument.Name
End Sub

UserForm! contains:
Private Sub CommandButtonUdfyld_Click()
Selection.EndKey Unit:=wdLine
Selection.Font.Name = "Arial"
Selection.Font.Size = 11
Selection.LanguageID = wdDanish

(filling out form)

Selection.InsertDateTime DateTimeFormat:="dd.MM.yyyy", InsertAsField:=False
ActiveDocument.SaveAs FileName:="g:\test\new\" & frmRekv & ".doc"

Unload UserForm1
End Sub

What am i doing wrong?

Klaus H

 

[Doug Robbins - Word MVP]

What is happening, or not happening as the case maybe?

--
Hope this helps.

Please reply to the newsgroup unless you wish to avail yourself of my
services on a paid consulting basis.

Doug Robbins - Word MVP

 

[Klaus H]

What is happening, or not happening as the case maybe?

One file is saved in g:\test\new
none in g:\test\backup

Klaus H

 

[Doug Robbins - Word MVP]

So the document is closing before the code in the Private Sub
Document_Close() is executed.

See the article "A Pseudo DocumentBeforeClose Event" at:

http://www.word.mvps.org/FAQs/MacrosVBA/PseudoBeforeClose.htm




--
Hope this helps.

Please reply to the newsgroup unless you wish to avail yourself of my
services on a paid consulting basis.

Doug Robbins - Word MVP

 

[Klaus H]

So the document is closing before the code in the Private Sub
Document_Close() is executed.

See the article "A Pseudo DocumentBeforeClose Event" at:

http://www.word.mvps.org/FAQs/MacrosVBA/PseudoBeforeClose.htm




--
Hope this helps.

Please reply to the newsgroup unless you wish to avail yourself of my
services on a paid consulting basis.

Doug Robbins - Word MVP