本示例当文档为空时关闭该文档,且不保存对其的修改。

If ActiveDocument.Content.StoryLength = 1 Then _
    ActiveDocument.Close SaveChanges:=wpsDoNotSaveChanges