]I don't see why your SaveDoc macro is not executed when you open the template.
You can try putting a stop in the AutoOpen macro then when your code hits the step, stop through (with the F8 key) and troubleshoot. Maybe the CustomDocumentProperties.Count is not = 0
[CODE]Sub AutoOpen()
Stop
If ActiveDocument.CustomDocumentProperties.Count = 0 Then
ActiveDocument.CustomDocumentProperties.Add Name:="AlreadyProcessed",
LinkToContent:=False, Value:=1, Type:=msoPropertyTypeBoolean
FormatCaptions
CentreFigures
SaveDoc
Selection.HomeKey Unit:=wdStory
End If
End Sub[/CODE
|