OpenOffice storeToURL FilterName Set mySM = CreateObject("com.sun.star.ServiceManager") Set myArgs(0)=mySM.Bridge_GetStruct("com.sun.star.beans.PropertyValue") myArgs(0).Name = "FilterName" myArgs(0).Value = "MS Excel 97"