Sub Save_Then_Compare()

'Set original document as oDoc
Dim oDoc As Word.Document
Set oDoc = ActiveDocument

'Save original document
ActiveDocument.Save

'Select all text and paste into a new document
ActiveDocument.Range.Select
ActiveDocument.Range.Copy
Documents.Add
Selection.Paste

'Save as docx under a new filename
ActiveDocument.SaveAs2 Filename:="Output.docx", _
        FileFormat:=wdFormatDocumentDefault

'Run editing macros, then save and close the new file
EditMacro1
EditMacro2
ActiveDocument.Save
ActiveDocument.Close
        
'Compare the original and revised files and generate the comparison in oDoc
oDoc.Compare Name:="Output.docx", _
 CompareTarget:=wdCompareTargetCurrent, _
 IgnoreAllComparisonWarnings:=False, _
 Authorname:="Author"

Exit Sub
End Sub