worddecs.pas

Delphi写的Microsoft Word模板程序,可以在Word中加入选单。用法：将编译好的testwll.dll改名为test.wll

unit worddecs; 

interface

uses sysutils;

{$IFNDEF WIN32}  type shortstring = string[255]; {$ENDIF}

{**************************** Word Command Codes *****************************}

const
  wdAbs                           = -32768; 
  wdActivate                      = -32670; 
  wdActivateObject                =    126;
  wdAddAddIn                      = -32392; 
  wdAddButton                     = -32395; 
  wdAddCommand                    = -32394; 
  wdAddDropDownItem               = -32376; 
  wdAddInState                    = -32381; 
  wdAllCaps                       = -32693; 
  wdAnnotationRefFromSelStr       = -32434; 
  wdAppActivate                   = -32669; 
  wdAppClose                      = -32505; 
  wdAppCount                      = -32504; 
  wdAppGetNames                   = -32503; 
  wdAppHide                       = -32502; 
  wdAppInfoStr                    = -32587; 
  wdAppIsRunning                  = -32501; 
  wdAppMaximize                   = -32702; 
  wdAppMinimize                   = -32703; 
  wdAppMove                       = -32704;
  wdAppRestore                    = -32701; 
  wdAppSendMessage                = -32496; 
  wdAppShow                       = -32479; 
  wdAppSize                       = -32705; 
  wdAppWindowHeight               = -32445; 
  wdAppWindowPosLeft              = -32446; 
  wdAppWindowPosTop               = -32494; 
  wdAppWindowWidth                = -32444; 
  wdAsc                           = -32764; 
  wdAtEndOfDocument               = -32292; 
  wdAtStartOfDocument             = -32291; 
  wdAutoMarkIndexEntries          = -32422; 
  wdAutoText                      =    653;
  wdAutoTextNameStr               = -32727; 
  wdBeep                          = -32724; 
  wdBold                          = -32696; 
  wdBookmarkNameStr               = -32737; 
  wdBorderBottom                  = -16346; 
  wdBorderInside                  = -16344; 
  wdBorderLeft                    = -16347; 
  wdBorderLineStyle               = -32453; 
  wdBorderNone                    = -16359; 
  wdBorderOutside                 = -16360;
  wdBorderRight                   = -16345; 
  wdBorderTop                     = -16348; 
  wdCancel                        =     72;
  wdCancelButton                  = -32568; 
  wdCenterPara                    = -32685; 
  wdChangeCase                    = -32588; 
  wdCharColor                     = -32697; 
  wdCharLeft                      = -16384; 
  wdCharRight                     = -16383; 
  wdChDefaultDir                  = -32360; 
  wdChDir                         = -32596; 
  wdCheckBox                      = -32552; 
  wdCheckBoxFormField             =    350;
  wdChooseButtonImage             =    627;
  wdChrStr                        = -32763; 
  wdCleanStringStr                = -32341; 
  wdClearAddIns                   = -32382; 
  wdClearFormField                =    706;
  wdClosePane                     =    243;
  wdClosePreview                  =    437;
  wdCloseUpPara                   = -32677; 
  wdCloseViewHeaderFooter         =    640;
  wdCmpBookmarks                  = -32745;
  wdColumnSelect                  = -32751; 
  wdComboBox                      = -32548; 
  wdCommandValid                  = -32572; 
  wdConnect                       =    420;
  wdControlRun                    =    235;
  wdConverterLookup               = -32349; 
  wdConverterStr                  = -32346; 
  wdConvertObject                 =    392;
  wdCopyBookmark                  = -32744; 
  wdCopyButtonImage               = -32366; 
  wdCopyFile                      =    300;
  wdCopyFormat                    =     73;
  wdCopyText                      =     19;
  wdCountAddIns                   = -32383; 
  wdCountAutoTextEntries          = -32728; 
  wdCountBookmarks                = -32739; 
  wdCountDirectories              = -32536; 
  wdCountDocumentVars             = -32344; 
  wdCountFiles                    = -32730; 
  wdCountFonts                    = -32645; 
  wdCountFoundFiles               = -32583; 
  wdCountKeys                     = -32577; 
  wdCountLanguages                = -32641;
  wdCountMacros                   = -32585; 
  wdCountMenuItems                = -32447; 
  wdCountMenus                    = -32449; 
  wdCountMergeFields              = -32738; 
  wdCountStyles                   = -32735; 
  wdCountToolbarButtons           = -32295; 
  wdCountToolbars                 = -32363; 
  wdCountToolsGrammarStatistics   = -32462; 
  wdCountWindows                  = -32710; 
  wdCreateSubdocument             =    491;
  wdDateSerial                    = -32528; 
  wdDateStr                       = -32756; 
  wdDateValue                     = -32527; 
  wdDay                           = -32526; 
  wdDays360                       = -32525; 
  wdDDEExecute                    = -32673; 
  wdDDEInitiate                   = -32676; 
  wdDDEPoke                       = -32672; 
  wdDDERequestStr                 = -32671; 
  wdDDETerminate                  = -32675; 
  wdDDETerminateAll               = -32674; 
  wdDefaultDirStr                 = -32372; 
  wdDeleteAddIn                   = -32393;
  wdDeleteBackWord                =     29;
  wdDeleteButton                  = -32396; 
  wdDeleteWord                    =     28;
  wdDemoteList                    =    592;
  wdDemoteToBodyText              =    366;
  wdDialogEditor                  =    552;
  wdDisableAutoMacros             = -32554; 
  wdDisableInput                  = -32610; 
  wdDlgControlId                  = -32477; 
  wdDlgEnable                     = -32485; 
  wdDlgFilePreview                = -32387; 
  wdDlgFilePreviewStr             = -32458; 
  wdDlgFocus                      = -32456; 
  wdDlgFocusStr                   = -32480; 
  wdDlgListBoxArray               = -32478; 
  wdDlgSetPicture                 = -32474; 
  wdDlgText                       = -32457; 
  wdDlgTextStr                    = -32481; 
  wdDlgUpdateFilePreview          = -32484; 
  wdDlgValue                      = -32482; 
  wdDlgVisible                    = -32483; 
  wdDocClose                      = -32609; 
  wdDocMaximize                   = -32700;
  wdDocMinimize                   = -32507; 
  wdDocMove                       = -32718; 
  wdDocRestore                    =    233;
  wdDocSize                       = -32717; 
  wdDocSplit                      = -32707; 
  wdDocumentStatistics            =     78;
  wdDocWindowHeight               = -32518; 
  wdDocWindowPosLeft              = -32442; 
  wdDocWindowPosTop               = -32443; 
  wdDocWindowWidth                = -32517; 
  wdDoFieldClick                  =    282;
  wdDOSToWinStr                   = -32516; 
  wdDottedUnderline               = -32461; 
  wdDoubleUnderline               = -32689; 
  wdDrawAlign                     = 634;
  wdDrawArc                       = 455;    
  wdDrawBringForward              = 500;    
  wdDrawBringInFrontOfText        = 469;    
  wdDrawBringToFront              = 466;    
  wdDrawCallout                   = 611;    
  wdDrawClearRange                = -32417; 
  wdDrawCount                     = -32416; 
  wdDrawCountPolyPoints           = -32410;
  wdDrawDisassemblePicture        = 575;    
  wdDrawEllipse                   = 454;    
  wdDrawExtendSelect              = -32414; 
  wdDrawFlipHorizontal            = 559;    
  wdDrawFlipVertical              = 560;    
  wdDrawFreeformPolygon           = 538;    
  wdDrawGetCalloutTextbox         = -32407; 
  wdDrawGetPolyPoints             = -32409; 
  wdDrawGetType                   = -32411; 
  wdDrawGroup                     = 465;    
  wdDrawInsertWordPicture         = 648;    
  wdDrawLine                      = 376;    
  wdDrawNudgeDown                 = 671;    
  wdDrawNudgeDownPixel            = 701;    
  wdDrawNudgeLeft                 = 672;    
  wdDrawNudgeLeftPixel            = 702;    
  wdDrawNudgeRight                = 673;    
  wdDrawNudgeRightPixel           = 703;    
  wdDrawNudgeUp                   = 670;    
  wdDrawNudgeUpPixel              = 700;    
  wdDrawRectangle                 = 377;    
  wdDrawResetWordPicture          = 696;    
  wdDrawReshape                   = 608;
  wdDrawRotateLeft                = 562;    
  wdDrawRotateRight               = 561;    
  wdDrawRoundRectangle            = 537;    
  wdDrawSelect                    = -32415; 
  wdDrawSelectNext                = 709;    
  wdDrawSelectPrevious            = 710;    
  wdDrawSendBackward              = 501;    
  wdDrawSendBehindText            = 468;    
  wdDrawSendToBack                = 467;    
  wdDrawSetCalloutTextbox         = -32406; 
  wdDrawSetInsertToAnchor         = -32412; 
  wdDrawSetInsertToTextbox        = -32413; 
  wdDrawSetPolyPoints             = -32408; 
  wdDrawSetRange                  = -32419; 
  wdDrawSnapToGrid                = 633;
  wdDrawTextbox                   = 363;    
  wdDrawUngroup                   = 485;    
  wdDrawUnselect                  = 708;    
  wdDropDownFormField             = 351;    
  wdDropListBox                   = -32440; 
  wdEditAutoText                  = 123;
  wdEditBookmark                  = 168;
  wdEditButtonImage               = -32364;
  wdEditClear                     = -32639; 
  wdEditConvertAllEndnotes        = 440;    
  wdEditConvertAllFootnotes       = 439;    
  wdEditConvertNotes              = 462;    
  wdEditCopy                      = 109;    
  wdEditCut                       = 108;    
  wdEditFind                      = 112;
  wdEditFindClearFormatting       = 116;    
  wdEditFindFont                  = 113;
  wdEditFindFound                 = -32553; 
  wdEditFindLang                  = 428;
  wdEditFindPara                  = 114;
  wdEditFindStyle                 = 115;
  wdEditGoTo                      = 122;
  wdEditLinks                     = 124;
  wdEditObject                    = 125;
  wdEditPaste                     = 110;    
  wdEditPasteSpecial              = 111;
  wdEditPicture                   = 296;    
  wdEditRedo                      = -32358; 
  wdEditRepeat                    = 68;     
  wdEditReplace                   = 117;
  wdEditReplaceClearFormatting    = 121;
  wdEditReplaceFont               = 118;
  wdEditReplaceLang               = 429;
  wdEditReplacePara               = 119;
  wdEditReplaceStyle              = 120;
  wdEditSelectAll                 = 237;    
  wdEditSwapAllNotes              = 441;    
  wdEditTOACategory               = 625;
  wdEditUndo                      = -32359; 
  wdEmptyBookmark                 = -32740; 
  wdEnableFormField               = -32431; 
  wdEndOfColumn                   = -32556; 
  wdEndOfDocument                 = -16367; 
  wdEndOfLine                     = -16371; 
  wdEndOfRow                      = -32558; 
  wdEndOfWindow                   = -16369; 
  wdEnvironStr                    = -32530; 
  wdEof                           = -32599; 
  wdExistingBookmark              = -32741; 
  wdExitWindows                   = -32555; 
  wdExtendMode                    = -32615; 
  wdExtendSelection               = -32616; 
  wdFieldSeparatorStr             = -32288; 
  wdFile1                         = -32637;
  wdFile2                         = -32636; 
  wdFile3                         = -32635; 
  wdFile4                         = -32634; 
  wdFile5                         = -32633; 
  wdFile6                         = -32632; 
  wdFile7                         = -32631; 
  wdFile8                         = -32630; 
  wdFile9                         = -32629; 
  wdFileClose                     = -32608; 
  wdFileCloseAll                  = -32438; 
  wdFileClosePicture              = 694;    
  wdFileConfirmConversions        = -32348; 
  wdFileExit                      = -32606; 
  wdFileFind                      = 99;
  wdFileList                      = -32638; 
  wdFileNameFromWindowStr         = -32429; 
  wdFileNameInfoStr               = -32371; 
  wdFileNameStr                   = -32731; 
  wdFileNew                       = 79;
  wdFileNewDefault                = 301;    
  wdFileOpen                      = 80;
  wdFilePageSetup                 = 178;
  wdFilePreview                   = -32459;
  wdFilePrint                     = 88;
  wdFilePrintDefault              = 302;    
  wdFilePrintPreview              = -32604; 
  wdFilePrintPreviewFullScreen    = 516;    
  wdFilePrintPreviewPages         = -32602; 
  wdFilePrintSetup                = 97;
  wdFileQuit                      = -32350; 
  wdFileRoutingSlip               = 624;
  wdFileSave                      = 83;     
  wdFileSaveAll                   = -32605; 
  wdFileSaveAs                    = 84;
  wdFileSendMail                  = 613;    
  wdFilesStr                      = -32607; 
  wdFileSummaryInfo               = 86;
  wdFileTemplates                 = 87;
  wdFont                          = -32644; 
  wdFontSize                      = -32643; 
  wdFontSizeSelect                = 43;     
  wdFontStr                       = -32646; 
  wdFontSubstitution              = 581;
  wdFormatAddrFonts               = 103;
  wdFormatAutoFormat              = 385;    
  wdFormatBordersAndShading       = 189;
  wdFormatBullet                  = 389;
  wdFormatBulletDefault           = -32390; 
  wdFormatBulletsAndNumbering     = 397;
  wdFormatCallout                 = 610;
  wdFormatChangeCase              = 322;