G
Greg
Users have reported that after installing Acrobat 7 that changes made
to normal.dot are not being saved. One of the posters confirmed that
Shift+File>SaveAll before closing Word resolved his problem. I am
wonder if the following AutoExit would work? I don't have Acrobate 7
(open to donations) so I can't test it here.
Sub AutoExit()
'Place this macro in Normal and other document templates
Dim myTemplate As Template
Dim myString As String
Dim oChgAlert As Balloon
Set myTemplate = ActiveDocument.AttachedTemplate
myString = myTemplate.Name
If myTemplate.Saved = False Then
Set oChgAlert = Assistant.NewBalloon
With oChgAlert
.Heading = "Microsoft Word Alert!!"
.Text = "Changes have been made that effect the" _
& " Global template, " & myString & ". Do you want" _
& " to save these changes?"
.Button = msoButtonSetYesNo
.Animation = msoAnimationGetAttentionMinor
If .Show = msoBalloonButtonYes Then
myTemplate.Save
End If
End With
End If
End Sub
to normal.dot are not being saved. One of the posters confirmed that
Shift+File>SaveAll before closing Word resolved his problem. I am
wonder if the following AutoExit would work? I don't have Acrobate 7
(open to donations) so I can't test it here.
Sub AutoExit()
'Place this macro in Normal and other document templates
Dim myTemplate As Template
Dim myString As String
Dim oChgAlert As Balloon
Set myTemplate = ActiveDocument.AttachedTemplate
myString = myTemplate.Name
If myTemplate.Saved = False Then
Set oChgAlert = Assistant.NewBalloon
With oChgAlert
.Heading = "Microsoft Word Alert!!"
.Text = "Changes have been made that effect the" _
& " Global template, " & myString & ". Do you want" _
& " to save these changes?"
.Button = msoButtonSetYesNo
.Animation = msoAnimationGetAttentionMinor
If .Show = msoBalloonButtonYes Then
myTemplate.Save
End If
End With
End If
End Sub