📄 office_tlb.pas
字号:
function Get_accChildCount: Integer; safecall;
function Get_accChild(varChild: OleVariant): IDispatch; safecall;
function Get_accName(varChild: OleVariant): WideString; safecall;
function Get_accValue(varChild: OleVariant): WideString; safecall;
function Get_accDescription(varChild: OleVariant): WideString; safecall;
function Get_accRole(varChild: OleVariant): OleVariant; safecall;
function Get_accState(varChild: OleVariant): OleVariant; safecall;
function Get_accHelp(varChild: OleVariant): WideString; safecall;
function Get_accHelpTopic(out pszHelpFile: WideString; varChild: OleVariant): Integer; safecall;
function Get_accKeyboardShortcut(varChild: OleVariant): WideString; safecall;
function Get_accFocus: OleVariant; safecall;
function Get_accSelection: OleVariant; safecall;
function Get_accDefaultAction(varChild: OleVariant): WideString; safecall;
procedure accSelect(flagsSelect: Integer; varChild: OleVariant); safecall;
procedure accLocation(out pxLeft: Integer; out pyTop: Integer; out pcxWidth: Integer;
out pcyHeight: Integer; varChild: OleVariant); safecall;
function accNavigate(navDir: Integer; varStart: OleVariant): OleVariant; safecall;
function accHitTest(xLeft: Integer; yTop: Integer): OleVariant; safecall;
procedure accDoDefaultAction(varChild: OleVariant); safecall;
procedure Set_accName(varChild: OleVariant; const pszName: WideString); safecall;
procedure Set_accValue(varChild: OleVariant; const pszValue: WideString); safecall;
property accParent: IDispatch read Get_accParent;
property accChildCount: Integer read Get_accChildCount;
property accChild[varChild: OleVariant]: IDispatch read Get_accChild;
property accName[varChild: OleVariant]: WideString read Get_accName write Set_accName;
property accValue[varChild: OleVariant]: WideString read Get_accValue write Set_accValue;
property accDescription[varChild: OleVariant]: WideString read Get_accDescription;
property accRole[varChild: OleVariant]: OleVariant read Get_accRole;
property accState[varChild: OleVariant]: OleVariant read Get_accState;
property accHelp[varChild: OleVariant]: WideString read Get_accHelp;
property accHelpTopic[out pszHelpFile: WideString; varChild: OleVariant]: Integer read Get_accHelpTopic;
property accKeyboardShortcut[varChild: OleVariant]: WideString read Get_accKeyboardShortcut;
property accFocus: OleVariant read Get_accFocus;
property accSelection: OleVariant read Get_accSelection;
property accDefaultAction[varChild: OleVariant]: WideString read Get_accDefaultAction;
end;
// *********************************************************************//
// DispIntf: IAccessibleDisp
// Flags: (4432) Hidden Dual OleAutomation Dispatchable
// GUID: {618736E0-3C3D-11CF-810C-00AA00389B71}
// *********************************************************************//
IAccessibleDisp = dispinterface
['{618736E0-3C3D-11CF-810C-00AA00389B71}']
property accParent: IDispatch readonly dispid -5000;
property accChildCount: Integer readonly dispid -5001;
property accChild[varChild: OleVariant]: IDispatch readonly dispid -5002;
property accName[varChild: OleVariant]: WideString dispid -5003;
property accValue[varChild: OleVariant]: WideString dispid -5004;
property accDescription[varChild: OleVariant]: WideString readonly dispid -5005;
property accRole[varChild: OleVariant]: OleVariant readonly dispid -5006;
property accState[varChild: OleVariant]: OleVariant readonly dispid -5007;
property accHelp[varChild: OleVariant]: WideString readonly dispid -5008;
property accHelpTopic[out pszHelpFile: WideString; varChild: OleVariant]: Integer readonly dispid -5009;
property accKeyboardShortcut[varChild: OleVariant]: WideString readonly dispid -5010;
property accFocus: OleVariant readonly dispid -5011;
property accSelection: OleVariant readonly dispid -5012;
property accDefaultAction[varChild: OleVariant]: WideString readonly dispid -5013;
procedure accSelect(flagsSelect: Integer; varChild: OleVariant); dispid -5014;
procedure accLocation(out pxLeft: Integer; out pyTop: Integer; out pcxWidth: Integer;
out pcyHeight: Integer; varChild: OleVariant); dispid -5015;
function accNavigate(navDir: Integer; varStart: OleVariant): OleVariant; dispid -5016;
function accHitTest(xLeft: Integer; yTop: Integer): OleVariant; dispid -5017;
procedure accDoDefaultAction(varChild: OleVariant); dispid -5018;
end;
// *********************************************************************//
// Interface: _IMsoDispObj
// Flags: (4560) Hidden Dual NonExtensible OleAutomation Dispatchable
// GUID: {000C0300-0000-0000-C000-000000000046}
// *********************************************************************//
_IMsoDispObj = interface(IDispatch)
['{000C0300-0000-0000-C000-000000000046}']
function Get_Application_: IDispatch; safecall;
function Get_Creator: Integer; safecall;
property Application_: IDispatch read Get_Application_;
property Creator: Integer read Get_Creator;
end;
// *********************************************************************//
// DispIntf: _IMsoDispObjDisp
// Flags: (4560) Hidden Dual NonExtensible OleAutomation Dispatchable
// GUID: {000C0300-0000-0000-C000-000000000046}
// *********************************************************************//
_IMsoDispObjDisp = dispinterface
['{000C0300-0000-0000-C000-000000000046}']
property Application_: IDispatch readonly dispid 1610743808;
property Creator: Integer readonly dispid 1610743809;
end;
// *********************************************************************//
// Interface: _IMsoOleAccDispObj
// Flags: (4560) Hidden Dual NonExtensible OleAutomation Dispatchable
// GUID: {000C0301-0000-0000-C000-000000000046}
// *********************************************************************//
_IMsoOleAccDispObj = interface(IAccessible)
['{000C0301-0000-0000-C000-000000000046}']
function Get_Application_: IDispatch; safecall;
function Get_Creator: Integer; safecall;
property Application_: IDispatch read Get_Application_;
property Creator: Integer read Get_Creator;
end;
// *********************************************************************//
// DispIntf: _IMsoOleAccDispObjDisp
// Flags: (4560) Hidden Dual NonExtensible OleAutomation Dispatchable
// GUID: {000C0301-0000-0000-C000-000000000046}
// *********************************************************************//
_IMsoOleAccDispObjDisp = dispinterface
['{000C0301-0000-0000-C000-000000000046}']
property Application_: IDispatch readonly dispid 1610809344;
property Creator: Integer readonly dispid 1610809345;
property accParent: IDispatch readonly dispid -5000;
property accChildCount: Integer readonly dispid -5001;
property accChild[varChild: OleVariant]: IDispatch readonly dispid -5002;
property accName[varChild: OleVariant]: WideString dispid -5003;
property accValue[varChild: OleVariant]: WideString dispid -5004;
property accDescription[varChild: OleVariant]: WideString readonly dispid -5005;
property accRole[varChild: OleVariant]: OleVariant readonly dispid -5006;
property accState[varChild: OleVariant]: OleVariant readonly dispid -5007;
property accHelp[varChild: OleVariant]: WideString readonly dispid -5008;
property accHelpTopic[out pszHelpFile: WideString; varChild: OleVariant]: Integer readonly dispid -5009;
property accKeyboardShortcut[varChild: OleVariant]: WideString readonly dispid -5010;
property accFocus: OleVariant readonly dispid -5011;
property accSelection: OleVariant readonly dispid -5012;
property accDefaultAction[varChild: OleVariant]: WideString readonly dispid -5013;
procedure accSelect(flagsSelect: Integer; varChild: OleVariant); dispid -5014;
procedure accLocation(out pxLeft: Integer; out pyTop: Integer; out pcxWidth: Integer;
out pcyHeight: Integer; varChild: OleVariant); dispid -5015;
function accNavigate(navDir: Integer; varStart: OleVariant): OleVariant; dispid -5016;
function accHitTest(xLeft: Integer; yTop: Integer): OleVariant; dispid -5017;
procedure accDoDefaultAction(varChild: OleVariant); dispid -5018;
end;
// *********************************************************************//
// Interface: CommandBars
// Flags: (4544) Dual NonExtensible OleAutomation Dispatchable
// GUID: {000C0302-0000-0000-C000-000000000046}
// *********************************************************************//
CommandBars = interface(_IMsoDispObj)
['{000C0302-0000-0000-C000-000000000046}']
function Get_ActionControl: CommandBarControl; safecall;
function Get_ActiveMenuBar: CommandBar; safecall;
function Add(Name: OleVariant; Position: OleVariant; MenuBar: OleVariant; Temporary: OleVariant): CommandBar; safecall;
function Get_Count: SYSINT; safecall;
function Get_DisplayTooltips: WordBool; safecall;
procedure Set_DisplayTooltips(pvarfDisplayTooltips: WordBool); safecall;
function Get_DisplayKeysInTooltips: WordBool; safecall;
procedure Set_DisplayKeysInTooltips(pvarfDisplayKeys: WordBool); safecall;
function FindControl(Type_: OleVariant; Id: OleVariant; Tag: OleVariant; Visible: OleVariant): CommandBarControl; safecall;
function Get_Item(Index: OleVariant): CommandBar; safecall;
function Get_LargeButtons: WordBool; safecall;
procedure Set_LargeButtons(pvarfLargeButtons: WordBool); safecall;
function Get_MenuAnimationStyle: MsoMenuAnimation; safecall;
procedure Set_MenuAnimationStyle(pma: MsoMenuAnimation); safecall;
function Get__NewEnum: IUnknown; safecall;
function Get_Parent: IDispatch; safecall;
procedure ReleaseFocus; safecall;
property ActionControl: CommandBarControl read Get_ActionControl;
property ActiveMenuBar: CommandBar read Get_ActiveMenuBar;
property Count: SYSINT read Get_Count;
property DisplayTooltips: WordBool read Get_DisplayTooltips write Set_DisplayTooltips;
property DisplayKeysInTooltips: WordBool read Get_DisplayKeysInTooltips write Set_DisplayKeysInTooltips;
property Item[Index: OleVariant]: CommandBar read Get_Item;
property LargeButtons: WordBool read Get_LargeButtons write Set_LargeButtons;
property MenuAnimationStyle: MsoMenuAnimation read Get_MenuAnimationStyle write Set_MenuAnimationStyle;
property _NewEnum: IUnknown read Get__NewEnum;
property Parent: IDispatch read Get_Parent;
end;
// *********************************************************************//
// DispIntf: CommandBarsDisp
// Flags: (4544) Dual NonExtensible OleAutomation Dispatchable
// GUID: {000C0302-0000-0000-C000-000000000046}
// *********************************************************************//
CommandBarsDisp = dispinterface
['{000C0302-0000-0000-C000-000000000046}']
property ActionControl: CommandBarControl readonly dispid 1610809344;
property ActiveMenuBar: CommandBar readonly dispid 1610809345;
function Add(Name: OleVariant; Position: OleVariant; MenuBar: OleVariant; Temporary: OleVariant): CommandBar; dispid 1610809346;
property Count: SYSINT readonly dispid 1610809347;
property DisplayTooltips: WordBool dispid 1610809348;
property DisplayKeysInTooltips: WordBool dispid 1610809350;
function FindControl(Type_: OleVariant; Id: OleVariant; Tag: OleVariant; Visible: OleVariant): CommandBarControl; dispid 1610809352;
property Item[Index: OleVariant]: CommandBar readonly dispid 0; default;
property LargeButtons: WordBool dispid 1610809354;
property MenuAnimationStyle: MsoMenuAnimation dispid 1610809356;
property _NewEnum: IUnknown readonly dispid -4;
property Parent: IDispatch readonly dispid 1610809359;
procedure ReleaseFocus; dispid 1610809360;
property Application_: IDispatch readonly dispid 1610743808;
property Creator: Integer readonly dispid 1610743809;
end;
// *********************************************************************//
// Interface: CommandBar
// Flags: (4544) Dual NonExtensible OleAutomation Dispatchable
// GUID: {000C0304-0000-0000-C000-000000000046}
// *********************************************************************//
CommandBar = interface(_IMsoOleAccDispObj)
['{000C0304-0000-0000-C000-000000000046}']
function Get_BuiltIn: WordBool; safecall;
function Get_Context: WideString; safecall;
procedure Set_Context(const pbstrContext: WideString); safecall;
function Get_Controls_: CommandBarControls; safecall;
procedure Delete; safecall;
function Get_Enabled: WordBool; safecall;
procedure Set_Enabled(pvarfEnabled: WordBool); safecall;
function FindControl(Type_: OleVariant; Id: OleVariant; Tag: OleVariant; Visible: OleVariant;
Recursive: OleVariant): CommandBarControl; safecall;
function Get_Height: SYSINT; safecall;
procedure Set_Height(pdy: SYSINT); safecall;
function Get_Index: SYSINT; safecall;
function Get_InstanceId: Integer; safecall;
function Get_Left: SYSINT; safecall;
procedure Set_Left(pxpLeft: SYSINT); safecall;
function Get_Name: WideString; safecall;
procedure Set_Name(const pbstrName: WideString); safecall;
function Get_NameLocal: WideString; safecall;
procedure Set_NameLocal(const pbstrNameLocal: WideString); safecall;
function Get_Parent: IDispatch; safecall;
function Get_Position: MsoBarPosition; safecall;
procedure Set_Position(ppos: MsoBarPosition); safecall;
function Get_RowIndex: SYSINT; safecall;
procedure Set_RowIndex(piRow: SYSINT); safecall;
function Get_Protection: MsoBarProtection; safecall;
procedure Set_Protection(pprot: MsoBarProtection); safecall;
procedure Reset; safecall;
procedure ShowPopup(x: OleVariant; y: OleVariant); safecall;
function Get_Top: SYSINT; safecall;
procedure Set_Top(pypTop: SYSINT); safecall;
function Get_Type_: MsoBarType; safecall;
function Get_Visible: WordBool; safecall;
procedure Set_Visible(pvarfVisible: WordBool); safecall;
function Get_Width: SYSINT; safecall;
procedure Set_Width(pdx: SYSINT); safecall;
property BuiltIn: WordBool read Get_BuiltIn;
property Context: WideString read Get_Context write Set_Context;
property Controls_: CommandBarControls read Get_Controls_;
property Enabled: WordBool read Get_Enabled write Set_Enabled;
property Height: SYSINT read Get_Height write Set_Height;
property Index: SYSINT read Get_Index;
property InstanceId: Integer read Get_InstanceId;
property Left: SYSINT read Get_Left write Set_Left;
property Name: WideString read Get_Name write Set_Name;
property NameLocal: WideString read Get_NameLocal write Set_NameLocal;
property Parent: IDispatch read Get_Parent;
property Position: MsoBarPosition read Get_Position write Set_Position;
property RowIndex: SYSINT read Get_RowIndex write Set_RowIndex;
property Protection: MsoBarProtection read Get_Protection write Set_Protection;
property Top: SYSINT read Get_Top write Set_Top;
property Type_: MsoBarType read Get_Type_;
property Visible: WordBool read Get_Visible write Set_Visible;
property Width: SYSINT read Get_Width write Set_Width;
end;
// *********************************************************************//
// DispIntf: CommandBarDisp
// Flags: (4544) Dual NonExtensible OleAutomation Dispatchable
// GUID: {000C0304-0000-0000-C000-000000000046}
// *********************************************************************//
CommandBarDisp = dispinterface
['{000C0304-0000-0000-C000-000000000046}']
property BuiltIn: WordBool readonly dispid 1610874880;
property Context: WideString dispid 1610874881;
property Controls_: CommandBarControls readonly dispid 1610874883;
procedure Delete; dispid 1610874884;
property Enabled: WordBool dispid 1610874885;
function FindControl(Type_: OleVariant; Id: OleVariant; Tag: OleVariant; Visible: OleVariant;
Recursive: OleVariant): CommandBarControl; dispid 1610874887;
property Height: SYSINT dispid 1610874888;
property Index: SYSINT readonly dispid 1610874890;
property InstanceId: Integer readonly dispid 1610874891;
property Left: SYSINT dispid 1610874892;
property Name: WideString dispid 1610874894;
property NameLocal: WideString dispid 1610874896;
property Parent: IDispatch readonly dispid 1610874898;
property Position: MsoBarPosition dispid 1610874899;
property RowIndex: SYSINT dispid 1610874901;
property Protection: MsoBarProtection dispid 1610874903;
procedure Reset; dispid 1610874905;
procedure ShowPopup(x: OleVariant; y: OleVariant); dispid 1610874906;
property Top: SYSINT dispid 1610874907;
property Type_: MsoBarType readonly dispid 1610874909;
property Visible: WordBool dispid 1610874910;
property Width: SYSINT dispid 1610874912;
property Application_: IDispatch readonly dispid 1610809344;
property Creator: Integer readonly dispid 1610809345;
property accParent: IDispatch readonly dispid -5000;
property accChildCount: Integer readonly dispid -5001;
property accChild[varChild: OleVariant]: IDispatch readonly dispid -5002;
property accName[varChild: OleVariant]: WideString dispid -5003;
property accValue[varChild: OleVariant]: WideString dispid -5004;
property accDescription[varChild: OleVariant]: WideString readonly dispid -5005;
property accRole[varChild: OleVariant]: OleVariant readonly dispid -5006;
property accState[varChild: OleVariant]: OleVariant readonly dispid -5007;
property accHelp[varChild: OleVariant]: WideString readonly dispid -5008;
property accHelpTopic[out pszHelpFile: WideString; varChild: OleVariant]: Integer readonly dispid -5009;
property accKeyboardShortcut[varChild: OleVariant]: WideString readonly dispid -5010;
property accFocus: OleVariant readonly dispid -5011;
property accSelection: OleVariant readonly dispid -5012;
property accDefaultAction[varChild: OleVariant]: WideString readonly dispid -5013;
procedure accSelect(flagsSelect: Integer; varChild: OleVariant); dispid -5014;
procedure accLocation(out pxLeft: Integer; out pyTop: Integer; out pcxWidth: Integer;
out pcyHeight: Integer; varChild: OleVariant); dispid -5015;
function accNavigate(navDir: Integer; varStart: OleVariant): OleVariant; dispid -5016;
function accHitTest(xLeft: Integer; yTop: Integer): OleVariant; dispid -5017;
procedure accDoDefaultAction(varChild: OleVariant); dispid -5018;
end;
// *********************************************************************//
// Interface: CommandBarControls
// Flags: (4544) Dual NonExtensible OleAutomation Dispatchable
// GUID: {000C0306-0000-0000-C000-000000000046}
// *********************************************************************//
CommandBarControls = interface(_IMsoDispObj)
['{000C0306-0000-0000-C000-000000000046}']
function Add(Type_: OleVariant; Id: OleVariant; Parameter: OleVariant; Before: OleVariant;
Temporary: OleVariant): CommandBarControl; safecall;
function Get_Count: SYSINT; safecall;
function Get_Item(Index: OleVariant): CommandBarControl; safecall;
function Get__NewEnum: IUnknown; safecall;
function Get_Parent: CommandBar; safecall;
property Count: SYSINT read Get_Count;
property Item[Index: OleVariant]: CommandBarControl read Get_Item;
property _NewEnum: IUnknown read Get__NewEnum;
property Parent: CommandBar read Get_Parent;
end;
// *********************************************************************//
// DispIntf: CommandBarControlsDisp
// Flags: (4544) Dual NonExtensible OleAutomation Dispatchable
// GUID: {000C0306-0000-0000-C000-000000000046}
// *********************************************************************//
CommandBarControlsDisp = dispinterface
['{000C0306-0000-0000-C000-000000000046}']
function Add(Type_: OleVariant; Id: OleVariant; Parameter: OleVariant; Before: OleVariant;
Temporary: OleVariant): CommandBarControl; dispid 1610809344;
property Count: SYSINT readonly dispid 1610809345;
property Item[Index: OleVariant]: CommandBarControl readonly dispid 0; default;
property _NewEnum: IUnknown readonly dispid -4;
proper⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -