О как.
Могу дать от 11-го.
Код:
OBJECT Report 50001 wd
{
OBJECT-PROPERTIES
{
Date=09.10.08;
Time=[ 9:56:00];
Modified=Yes;
Version List=;
}
PROPERTIES
{
}
DATAITEMS
{
}
REQUESTFORM
{
PROPERTIES
{
Width=9020;
Height=3410;
}
CONTROLS
{
}
}
CODE
{
VAR
wdApp@1000000000 : Automation "{00020905-0000-0000-C000-000000000046} 8.3:{000209FF-0000-0000-C000-000000000046}:'Microsoft Word 11.0 Object Library'.Application" WITHEVENTS;
EVENT wdApp@1000000000::Quit@2();
BEGIN
END;
EVENT wdApp@1000000000::DocumentChange@3();
BEGIN
END;
EVENT wdApp@1000000000::DocumentOpen@4(Doc@1000000000 : Automation "{00020905-0000-0000-C000-000000000046} 8.3:{00020906-0000-0000-C000-000000000046}:'Microsoft Word 11.0 Object Library'.Document");
BEGIN
END;
EVENT wdApp@1000000000::DocumentBeforeClose@6(Doc@1000000001 : Automation "{00020905-0000-0000-C000-000000000046} 8.3:{00020906-0000-0000-C000-000000000046}:'Microsoft Word 11.0 Object Library'.Document";VAR Cancel@1000000000 : Boolean);
BEGIN
END;
EVENT wdApp@1000000000::DocumentBeforePrint@7(Doc@1000000001 : Automation "{00020905-0000-0000-C000-000000000046} 8.3:{00020906-0000-0000-C000-000000000046}:'Microsoft Word 11.0 Object Library'.Document";VAR Cancel@1000000000 : Boolean);
BEGIN
END;
EVENT wdApp@1000000000::DocumentBeforeSave@8(Doc@1000000002 : Automation "{00020905-0000-0000-C000-000000000046} 8.3:{00020906-0000-0000-C000-000000000046}:'Microsoft Word 11.0 Object Library'.Document";VAR SaveAsUI@1000000001 : Boolean;VAR Cancel@1000000000 : Boolean);
BEGIN
END;
EVENT wdApp@1000000000::NewDocument@9(Doc@1000000000 : Automation "{00020905-0000-0000-C000-000000000046} 8.3:{00020906-0000-0000-C000-000000000046}:'Microsoft Word 11.0 Object Library'.Document");
BEGIN
END;
EVENT wdApp@1000000000::WindowActivate@10(Doc@1000000001 : Automation "{00020905-0000-0000-C000-000000000046} 8.3:{00020906-0000-0000-C000-000000000046}:'Microsoft Word 11.0 Object Library'.Document";Wn@1000000000 : Automation "{00020905-0000-0000-C000-000000000046} 8.3:{00020962-0000-0000-C000-000000000046}:'Microsoft Word 11.0 Object Library'.Window");
BEGIN
END;
EVENT wdApp@1000000000::WindowDeactivate@11(Doc@1000000001 : Automation "{00020905-0000-0000-C000-000000000046} 8.3:{00020906-0000-0000-C000-000000000046}:'Microsoft Word 11.0 Object Library'.Document";Wn@1000000000 : Automation "{00020905-0000-0000-C000-000000000046} 8.3:{00020962-0000-0000-C000-000000000046}:'Microsoft Word 11.0 Object Library'.Window");
BEGIN
END;
EVENT wdApp@1000000000::WindowSelectionChange@12(Sel@1000000000 : Automation "{00020905-0000-0000-C000-000000000046} 8.3:{00020975-0000-0000-C000-000000000046}:'Microsoft Word 11.0 Object Library'.Selection");
BEGIN
END;
EVENT wdApp@1000000000::WindowBeforeRightClick@13(Sel@1000000001 : Automation "{00020905-0000-0000-C000-000000000046} 8.3:{00020975-0000-0000-C000-000000000046}:'Microsoft Word 11.0 Object Library'.Selection";VAR Cancel@1000000000 : Boolean);
BEGIN
END;
EVENT wdApp@1000000000::WindowBeforeDoubleClick@14(Sel@1000000001 : Automation "{00020905-0000-0000-C000-000000000046} 8.3:{00020975-0000-0000-C000-000000000046}:'Microsoft Word 11.0 Object Library'.Selection";VAR Cancel@1000000000 : Boolean);
BEGIN
END;
EVENT wdApp@1000000000::EPostagePropertyDialog@15(Doc@1000000000 : Automation "{00020905-0000-0000-C000-000000000046} 8.3:{00020906-0000-0000-C000-000000000046}:'Microsoft Word 11.0 Object Library'.Document");
BEGIN
END;
EVENT wdApp@1000000000::EPostageInsert@16(Doc@1000000000 : Automation "{00020905-0000-0000-C000-000000000046} 8.3:{00020906-0000-0000-C000-000000000046}:'Microsoft Word 11.0 Object Library'.Document");
BEGIN
END;
EVENT wdApp@1000000000::MailMergeAfterMerge@17(Doc@1000000001 : Automation "{00020905-0000-0000-C000-000000000046} 8.3:{00020906-0000-0000-C000-000000000046}:'Microsoft Word 11.0 Object Library'.Document";DocResult@1000000000 : Automation "{00020905-0000-0000-C000-000000000046} 8.3:{00020906-0000-0000-C000-000000000046}:'Microsoft Word 11.0 Object Library'.Document");
BEGIN
END;
EVENT wdApp@1000000000::MailMergeAfterRecordMerge@18(Doc@1000000000 : Automation "{00020905-0000-0000-C000-000000000046} 8.3:{00020906-0000-0000-C000-000000000046}:'Microsoft Word 11.0 Object Library'.Document");
BEGIN
END;
EVENT wdApp@1000000000::MailMergeBeforeMerge@19(Doc@1000000003 : Automation "{00020905-0000-0000-C000-000000000046} 8.3:{00020906-0000-0000-C000-000000000046}:'Microsoft Word 11.0 Object Library'.Document";StartRecord@1000000002 : Integer;EndRecord@1000000001 : Integer;VAR Cancel@1000000000 : Boolean);
BEGIN
END;
EVENT wdApp@1000000000::MailMergeBeforeRecordMerge@20(Doc@1000000001 : Automation "{00020905-0000-0000-C000-000000000046} 8.3:{00020906-0000-0000-C000-000000000046}:'Microsoft Word 11.0 Object Library'.Document";VAR Cancel@1000000000 : Boolean);
BEGIN
END;
EVENT wdApp@1000000000::MailMergeDataSourceLoad@21(Doc@1000000000 : Automation "{00020905-0000-0000-C000-000000000046} 8.3:{00020906-0000-0000-C000-000000000046}:'Microsoft Word 11.0 Object Library'.Document");
BEGIN
END;
EVENT wdApp@1000000000::MailMergeDataSourceValidate@22(Doc@1000000001 : Automation "{00020905-0000-0000-C000-000000000046} 8.3:{00020906-0000-0000-C000-000000000046}:'Microsoft Word 11.0 Object Library'.Document";VAR Handled@1000000000 : Boolean);
BEGIN
END;
EVENT wdApp@1000000000::MailMergeWizardSendToCustom@23(Doc@1000000000 : Automation "{00020905-0000-0000-C000-000000000046} 8.3:{00020906-0000-0000-C000-000000000046}:'Microsoft Word 11.0 Object Library'.Document");
BEGIN
END;
EVENT wdApp@1000000000::MailMergeWizardStateChange@24(Doc@1000000003 : Automation "{00020905-0000-0000-C000-000000000046} 8.3:{00020906-0000-0000-C000-000000000046}:'Microsoft Word 11.0 Object Library'.Document";VAR FromState@1000000002 : Variant;VAR ToState@1000000001 : Variant;VAR Handled@1000000000 : Boolean);
BEGIN
END;
EVENT wdApp@1000000000::WindowSize@25(Doc@1000000001 : Automation "{00020905-0000-0000-C000-000000000046} 8.3:{00020906-0000-0000-C000-000000000046}:'Microsoft Word 11.0 Object Library'.Document";Wn@1000000000 : Automation "{00020905-0000-0000-C000-000000000046} 8.3:{00020962-0000-0000-C000-000000000046}:'Microsoft Word 11.0 Object Library'.Window");
BEGIN
END;
EVENT wdApp@1000000000::XMLSelectionChange@26(Sel@1000000003 : Automation "{00020905-0000-0000-C000-000000000046} 8.3:{00020975-0000-0000-C000-000000000046}:'Microsoft Word 11.0 Object Library'.Selection";OldXMLNode@1000000002 : Automation "{00020905-0000-0000-C000-000000000046} 8.3:{09760240-0B89-49F7-A79D-479F24723F56}:'Microsoft Word 11.0 Object Library'.XMLNode";NewXMLNode@1000000001 : Automation "{00020905-0000-0000-C000-000000000046} 8.3:{09760240-0B89-49F7-A79D-479F24723F56}:'Microsoft Word 11.0 Object Library'.XMLNode";VAR Reason@1000000000 : Integer);
BEGIN
END;
EVENT wdApp@1000000000::XMLValidationError@27(XMLNode@1000000000 : Automation "{00020905-0000-0000-C000-000000000046} 8.3:{09760240-0B89-49F7-A79D-479F24723F56}:'Microsoft Word 11.0 Object Library'.XMLNode");
BEGIN
END;
EVENT wdApp@1000000000::DocumentSync@28(Doc@1000000001 : Automation "{00020905-0000-0000-C000-000000000046} 8.3:{00020906-0000-0000-C000-000000000046}:'Microsoft Word 11.0 Object Library'.Document";SyncEventType@1000000000 : Integer);
BEGIN
END;
EVENT wdApp@1000000000::EPostageInsertEx@29(Doc@1000000010 : Automation "{00020905-0000-0000-C000-000000000046} 8.3:{00020906-0000-0000-C000-000000000046}:'Microsoft Word 11.0 Object Library'.Document";cpDeliveryAddrStart@1000000009 : Variant;cpDeliveryAddrEnd@1000000008 : Variant;cpReturnAddrStart@1000000007 : Variant;cpReturnAddrEnd@1000000006 : Variant;xaWidth@1000000005 : Variant;yaHeight@1000000004 : Variant;bstrPrinterName@1000000003 : Text[1024];bstrPaperFeed@1000000002 : Text[1024];fPrint@1000000001 : Boolean;VAR fCancel@1000000000 : Boolean);
BEGIN
END;
BEGIN
END.
}
}
Остальные предлагаю добывать с msdn
http://msdn.microsoft.com/en-us/library/bb288738.aspx
Не знаю как у тебя, но я могу сохранить проблемый объект если снять флаг Компилировать.