You can test whether Word considers the document had a change made before deciding whether to save.
Try changing this code
Code:
With wdDoc
Call Foot2Inline(wdDoc)
.Close SaveChanges:=True
End With
To this
(untested aircode)
Code:
With wdDoc
Call Foot2Inline(wdDoc)
If .Saved then
.Close SaveChanges:=False
Else
.Close SaveChanges:=True
End If
End With