IUnknown(TVarData(Params[0]).VPointer) as Range

 IUnknown(TVarData(Params[0]).VPointer) as Range 修改为  IUnknown(TVarData(Params[0]).VPointer) as WOrd_TLB.Range {const Range},

【推广】 免费学中医，健康全家人
原文地址：https://www.cnblogs.com/lgzh3/p/4465860.html