Save 方法示例

下列示例保存工作台中所有打开的文档，对每个文档提示用户。

Dim iStatus As Long

iStatus = Application.Documents.Save(True)

下列示例打开文档 TestPicture ，并将其保存为TestPicture1，而不提示用户。

Dim iDoc As Object

Set iDoc = Application.Documents.open("C:\Program Files (x86)\GE\iFIX\pic\testpicture.grf")

iDoc.Save "TestPicture1.grf", False