I finally figured it out myself. Its kind of klugey.
Add the following code to the Load function pointed to by the xml
[VBA] Application.Documents.Add
If ActiveDocument.Name <> ThisDocument.Name Then
With ActiveDocument
.Saved = True
.Close
End With
End If[/VBA]