Triggering Save As dialog box when updating a dotm file

I have a macro that trigger a Save As dialog box whenever a custom dotm file is opened. I made a minor change to the macro, but now the Save As dialog box is not triggered when I open the dotm file. Can anyone provide guidance on what I might be missing? Thank you.

Code:

---

Sub AutoOpen()
    If ActiveDocument.CustomDocumentProperties.Count = 0 Then
        ActiveDocument.CustomDocumentProperties.Add Name:="AlreadyProcessed", LinkToContent:=False, Value:=1, Type:=msoPropertyTypeBoolean
        Call FormatCaptions
        Call CentreFigures
        Call SaveDoc
        Selection.HomeKey Unit:=wdStory
    End If
End Sub

Private Sub FormatCaptions()

...
Private Sub CentreFigures()
...

Private Sub SaveDoc()
    If ActiveDocument.Bookmarks.Exists("Title") Then
        ActiveDocument.BuiltInDocumentProperties("Title") = ActiveDocument.Bookmarks("Title").Range.Text
    Else
        ActiveDocument.BuiltInDocumentProperties("Title") = ActiveDocument.Name
    End If
    ActiveDocument.BuiltInDocumentProperties("Company") = "XYZ"
    ActiveDocument.BuiltInDocumentProperties("Author") = "ABC"
    ActiveDocument.BuiltInDocumentProperties("Last author") = "LMN"
    ActiveDocument.BuiltInDocumentProperties("Subject") = ""
    ActiveDocument.BuiltInDocumentProperties("Keywords") = ""
    ActiveDocument.BuiltInDocumentProperties("Category") = ""
   
    With Dialogs(wdDialogFileSaveAs)
        .Name = ActiveDocument.BuiltInDocumentProperties("Title")
        .Format = wdFormatXMLDocument  ' actually saves file as a DOCX
        If .Show Then
            .Execute
        End If
    End With
       
End Sub

---

Hello amankap
Welcome to ExcelFox

We don’t currently have many WORD experts passing here.
If you are still looking for help, here is one Word Sub forum that I know has some clever Word people passing by recently, https://eileenslounge.com/viewforum.php?f=26

I will take a guess that if you post this question there, then they would likely ask you the obvious question of what the minor change was that you made

Alan

The issue is that ActiveDocument refers to the dotm file itself, not the document being opened. Try changing ActiveDocument to ThisDocument in your SaveDoc sub.