Rob,
Thanks for your reply.
Meanwhile I've found the solution and my Word now exports the macro's when
it quits (AutoExit macro). I want to back up my macro's because they often
need debugging. Because of the large amount of macro's I have I do not want
to cut and paste them one by one.
The following code does the trick:
===================================================
Option Explicit
Public Sub AutoExit()
Dim t As Integer
Dim sServerPath As String
Dim sLocalPath As String
Dim sDateTime As String
'fill in the paths
sServerPath = ""
sLocalPath = ""
sDateTime = _
Right("00" & Year(Now()), 4) & _
Right("00" & Month(Now()), 2) & _
Right("00" & Day(Now()), 2) & _
Right("00" & Hour(Now()), 2) & _
Right("00" & Minute(Now()), 2) & _
Right("00" & Second(Now()), 2)
sServerPath = sServerPath & "\" & sDateTime
sLocalPath = sLocalPath & "\" & sDateTime
MkDir sServerPath
MkDir sLocalPath
With Word.Application.NormalTemplate.VBProject.VBComponents
For t = 1 To .Count
Select Case .Item(t).Name()
Case "ThisDocument"
'do nothing
Case Else
.Item(t).Export sServerPath & "\" & .Item(t).Name() & ".bas"
.Item(t).Export sLocalPath & "\" & .Item(t).Name() & ".bas"
End Select
Next t
End With
End Sub
===================================================
As you can see, there are two locations to which I export the macro's,,
because I use a laptop computer. A local one and one at a server. The path is
created from the year, mont, day, minutes and seconds. So you can go back to
a previous point if you should (accidentally, off course!) destroy one of
your macro's.
You can cut and paste the code into the AutoExit module.
Be sure to adjust the paths to your needs!
With kind regards,
W. Kooy
Netherlands
