wordtlb.pas

aoto excel and delphi

unit WordTLB;

{ This file contains pascal declarations imported from a type library.
  This file will be written during each import or refresh of the type
  library editor.  Changes to this file will be discarded during the
  refresh process. }

{ Microsoft Word 8.0 Object Library }
{ Version 8.0 }

{ Conversion log:
  Warning: 'Object' is a reserved word. Parameter 'Object' in _Application.IsObjectValid changed to 'Object_'
  Warning: 'To' is a reserved word. Parameter 'To' in _Application.PrintOut changed to 'To_'
  Warning: 'Repeat' is a reserved word. _Application.Repeat changed to Repeat_
  Warning: 'Object' is a reserved word. Parameter 'Object' in _Application.OrganizerCopy changed to 'Object_'
  Warning: 'Object' is a reserved word. Parameter 'Object' in _Application.OrganizerDelete changed to 'Object_'
  Warning: 'Object' is a reserved word. Parameter 'Object' in _Application.OrganizerRename changed to 'Object_'
  Warning: 'String' is a reserved word. Parameter 'String' in _Application.CheckGrammar changed to 'String_'
  Warning: 'String' is a reserved word. Parameter 'String' in _Application.CleanString changed to 'String_'
  Warning: 'Object' is a reserved word. Parameter 'Object' in _Global.IsObjectValid changed to 'Object_'
  Warning: 'Repeat' is a reserved word. _Global.Repeat changed to Repeat_
  Warning: 'String' is a reserved word. Parameter 'String' in _Global.CleanString changed to 'String_'
  Warning: 'Type' is a reserved word. _Document.Type changed to Type_
  Warning: 'Type' is a reserved word. Parameter 'Type' in _Document.Compatibility changed to 'Type_'
  Warning: 'To' is a reserved word. Parameter 'To' in _Document.PrintOut changed to 'To_'
  Warning: 'End' is a reserved word. Parameter 'End' in _Document.Range changed to 'End_'
  Warning: 'GoTo' is a reserved word. _Document.GoTo changed to GoTo_
  Warning: 'Type' is a reserved word. Parameter 'Type' in _Document.Protect changed to 'Type_'
  Warning: 'Type' is a reserved word. Parameter 'Type' in _Document.EditionOptions changed to 'Type_'
  Warning: 'Type' is a reserved word. Template.Type changed to Type_
  Warning: 'End' is a reserved word. Bookmark.End changed to End_
  Warning: 'Type' is a reserved word. Window.Type changed to Type_
  Warning: 'To' is a reserved word. Parameter 'To' in Window.PrintOut changed to 'To_'
  Warning: 'End' is a reserved word. Range.End changed to End_
  Warning: 'Case' is a reserved word. Range.Case changed to Case_
  Warning: 'Type' is a reserved word. Parameter 'Type' in Range.Information changed to 'Type_'
  Warning: 'End' is a reserved word. Parameter 'End' in Range.SetRange changed to 'End_'
  Warning: 'Unit' is a reserved word. Parameter 'Unit' in Range.Next changed to 'Unit_'
  Warning: 'Unit' is a reserved word. Parameter 'Unit' in Range.Previous changed to 'Unit_'
  Warning: 'Unit' is a reserved word. Parameter 'Unit' in Range.StartOf changed to 'Unit_'
  Warning: 'Unit' is a reserved word. Parameter 'Unit' in Range.EndOf changed to 'Unit_'
  Warning: 'Unit' is a reserved word. Parameter 'Unit' in Range.Move changed to 'Unit_'
  Warning: 'Unit' is a reserved word. Parameter 'Unit' in Range.MoveStart changed to 'Unit_'
  Warning: 'Unit' is a reserved word. Parameter 'Unit' in Range.MoveEnd changed to 'Unit_'
  Warning: 'Type' is a reserved word. Parameter 'Type' in Range.InsertBreak changed to 'Type_'
  Warning: 'Unit' is a reserved word. Parameter 'Unit' in Range.Delete changed to 'Unit_'
  Warning: 'Unit' is a reserved word. Parameter 'Unit' in Range.Expand changed to 'Unit_'
  Warning: 'Label' is a reserved word. Parameter 'Label' in Range.InsertCaption changed to 'Label_'
  Warning: 'GoTo' is a reserved word. Range.GoTo changed to GoTo_
  Warning: 'To' is a reserved word. Parameter 'To' in Range.InsertDatabase changed to 'To_'
  Warning: 'Label' is a reserved word. OLEFormat.Label changed to Label_
  Warning: 'Object' is a reserved word. OLEFormat.Object changed to Object_
  Warning: 'Type' is a reserved word. LinkFormat.Type changed to Type_
  Warning: 'Type' is a reserved word. Parameter 'Type' in Fields.Add changed to 'Type_'
  Warning: 'Type' is a reserved word. Field.Type changed to Type_
  Warning: 'Type' is a reserved word. Parameter 'Type' in Styles.Add changed to 'Type_'
  Warning: 'Type' is a reserved word. Style.Type changed to Type_
  Warning: 'Type' is a reserved word. Parameter 'Type' in FormFields.Add changed to 'Type_'
  Warning: 'Type' is a reserved word. FormField.Type changed to Type_
  Warning: 'Type' is a reserved word. TextInput.Type changed to Type_
  Warning: 'Type' is a reserved word. Parameter 'Type' in TextInput.EditType changed to 'Type_'
  Warning: 'Type' is a reserved word. Parameter 'Type' in MailMerge.UseAddressBook changed to 'Type_'
  Warning: 'Type' is a reserved word. MailMergeField.Type changed to Type_
  Warning: 'Type' is a reserved word. MailMergeDataSource.Type changed to Type_
  Warning: 'Type' is a reserved word. Dialog.Type changed to Type_
  Warning: 'End' is a reserved word. Selection.End changed to End_
  Warning: 'Type' is a reserved word. Selection.Type changed to Type_
  Warning: 'Type' is a reserved word. Parameter 'Type' in Selection.Information changed to 'Type_'
  Warning: 'End' is a reserved word. Parameter 'End' in Selection.SetRange changed to 'End_'
  Warning: 'Unit' is a reserved word. Parameter 'Unit' in Selection.Next changed to 'Unit_'
  Warning: 'Unit' is a reserved word. Parameter 'Unit' in Selection.Previous changed to 'Unit_'
  Warning: 'Unit' is a reserved word. Parameter 'Unit' in Selection.StartOf changed to 'Unit_'
  Warning: 'Unit' is a reserved word. Parameter 'Unit' in Selection.EndOf changed to 'Unit_'
  Warning: 'Unit' is a reserved word. Parameter 'Unit' in Selection.Move changed to 'Unit_'
  Warning: 'Unit' is a reserved word. Parameter 'Unit' in Selection.MoveStart changed to 'Unit_'
  Warning: 'Unit' is a reserved word. Parameter 'Unit' in Selection.MoveEnd changed to 'Unit_'
  Warning: 'Type' is a reserved word. Parameter 'Type' in Selection.InsertBreak changed to 'Type_'
  Warning: 'Unit' is a reserved word. Parameter 'Unit' in Selection.Delete changed to 'Unit_'
  Warning: 'Unit' is a reserved word. Parameter 'Unit' in Selection.Expand changed to 'Unit_'
  Warning: 'Label' is a reserved word. Parameter 'Label' in Selection.InsertCaption changed to 'Label_'
  Warning: 'GoTo' is a reserved word. Selection.GoTo changed to GoTo_
  Warning: 'Unit' is a reserved word. Parameter 'Unit' in Selection.MoveLeft changed to 'Unit_'
  Warning: 'Unit' is a reserved word. Parameter 'Unit' in Selection.MoveRight changed to 'Unit_'
  Warning: 'Unit' is a reserved word. Parameter 'Unit' in Selection.MoveUp changed to 'Unit_'
  Warning: 'Unit' is a reserved word. Parameter 'Unit' in Selection.MoveDown changed to 'Unit_'
  Warning: 'Unit' is a reserved word. Parameter 'Unit' in Selection.HomeKey changed to 'Unit_'
  Warning: 'Unit' is a reserved word. Parameter 'Unit' in Selection.EndKey changed to 'Unit_'
  Warning: 'Type' is a reserved word. Parameter 'Type' in Indexes.Add changed to 'Type_'
  Warning: 'Type' is a reserved word. Index.Type changed to Type_
  Warning: 'Type' is a reserved word. Revision.Type changed to Type_
  Warning: 'Protected' is a reserved word. KeyBinding.Protected changed to Protected_
  Warning: 'Type' is a reserved word. Hyperlink.Type changed to Type_
  Warning: 'Type' is a reserved word. Parameter 'Type' in Shapes.AddCallout changed to 'Type_'
  Warning: 'Type' is a reserved word. Parameter 'Type' in Shapes.AddConnector changed to 'Type_'
  Warning: 'Type' is a reserved word. Parameter 'Type' in Shapes.AddShape changed to 'Type_'
  Warning: 'Type' is a reserved word. ShapeRange.Type changed to Type_
  Warning: 'Type' is a reserved word. Shape.Type changed to Type_
  Warning: 'Type' is a reserved word. View.Type changed to Type_
  Warning: 'Type' is a reserved word. InlineShape.Type changed to Type_
  Warning: 'Type' is a reserved word. Dictionary.Type changed to Type_
  Warning: 'Type' is a reserved word. ProofreadingErrors.Type changed to Type_
  Warning: 'Type' is a reserved word. WrapFormat.Type changed to Type_
  Warning: 'Type' is a reserved word. CalloutFormat.Type changed to Type_
  Warning: 'Type' is a reserved word. ColorFormat.Type changed to Type_
  Warning: 'Type' is a reserved word. ConnectorFormat.Type changed to Type_
  Warning: 'Type' is a reserved word. FillFormat.Type changed to Type_
  Warning: 'Type' is a reserved word. ShadowFormat.Type changed to Type_
  Warning: _Application.AddAddress parameter Value of type PSafeArray was written as OleVariant.
  Warning: _Application.AddAddress parameter TagID of type PSafeArray was written as OleVariant.
  Warning: _Application.AddAddress parameter Value of type PSafeArray was written as OleVariant.
 }

interface

uses Windows, ActiveX, Classes, Graphics, OleCtrls, StdVCL, Office_TLB, VBIDE_TLB;

const
  LIBID_Word: TGUID = '{00020905-0000-0000-C000-000000000046}';

const

{ WdMailSystem }

  wdNoMailSystem = 0;
  wdMAPI = 1;
  wdPowerTalk = 2;
  wdMAPIandPowerTalk = 3;

{ WdTemplateType }

  wdNormalTemplate = 0;
  wdGlobalTemplate = 1;
  wdAttachedTemplate = 2;

{ WdContinue }

  wdContinueDisabled = 0;
  wdResetList = 1;
  wdContinueList = 2;

{ WdIMEMode }

  wdIMEModeNoControl = 0;
  wdIMEModeOn = 1;
  wdIMEModeOff = 2;
  wdIMEModeHiragana = 4;
  wdIMEModeKatakana = 5;
  wdIMEModeKatakanaHalf = 6;
  wdIMEModeAlphaFull = 7;
  wdIMEModeAlpha = 8;
  wdIMEModeHangulFull = 9;
  wdIMEModeHangul = 10;

{ WdBaselineAlignment }

  wdBaselineAlignTop = 0;
  wdBaselineAlignCenter = 1;
  wdBaselineAlignBaseline = 2;
  wdBaselineAlignFarEast50 = 3;
  wdBaselineAlignAuto = 4;

{ WdIndexFilter }

  wdIndexFilterNone = 0;
  wdIndexFilterAiueo = 1;
  wdIndexFilterAkasatana = 2;
  wdIndexFilterChosung = 3;
  wdIndexFilterLow = 4;
  wdIndexFilterMedium = 5;
  wdIndexFilterFull = 6;

{ WdIndexSortBy }

  wdIndexSortByStroke = 0;
  wdIndexSortBySyllable = 1;

{ WdJustificationMode }

  wdJustificationModeExpand = 0;
  wdJustificationModeCompress = 1;
  wdJustificationModeCompressKana = 2;

{ WdFarEastLineBreakLevel }

  wdFarEastLineBreakLevelNormal = 0;
  wdFarEastLineBreakLevelStrict = 1;
  wdFarEastLineBreakLevelCustom = 2;

{ WdMultipleWordConversionsMode }

  wdHangulToHanja = 0;
  wdHanjaToHangul = 1;

{ WdColorIndex }

  wdAuto = 0;
  wdBlack = 1;
  wdBlue = 2;
  wdTurquoise = 3;
  wdBrightGreen = 4;
  wdPink = 5;
  wdRed = 6;
  wdYellow = 7;
  wdWhite = 8;
  wdDarkBlue = 9;
  wdTeal = 10;
  wdGreen = 11;
  wdViolet = 12;
  wdDarkRed = 13;
  wdDarkYellow = 14;
  wdGray50 = 15;
  wdGray25 = 16;
  wdByAuthor = -1;
  wdNoHighlight = 0;

{ WdTextureIndex }

  wdTextureNone = 0;
  wdTexture2Pt5Percent = 25;
  wdTexture5Percent = 50;
  wdTexture7Pt5Percent = 75;
  wdTexture10Percent = 100;
  wdTexture12Pt5Percent = 125;
  wdTexture15Percent = 150;
  wdTexture17Pt5Percent = 175;
  wdTexture20Percent = 200;
  wdTexture22Pt5Percent = 225;
  wdTexture25Percent = 250;
  wdTexture27Pt5Percent = 275;
  wdTexture30Percent = 300;
  wdTexture32Pt5Percent = 325;
  wdTexture35Percent = 350;
  wdTexture37Pt5Percent = 375;
  wdTexture40Percent = 400;
  wdTexture42Pt5Percent = 425;
  wdTexture45Percent = 450;
  wdTexture47Pt5Percent = 475;
  wdTexture50Percent = 500;
  wdTexture52Pt5Percent = 525;
  wdTexture55Percent = 550;
  wdTexture57Pt5Percent = 575;
  wdTexture60Percent = 600;
  wdTexture62Pt5Percent = 625;
  wdTexture65Percent = 650;
  wdTexture67Pt5Percent = 675;
  wdTexture70Percent = 700;
  wdTexture72Pt5Percent = 725;
  wdTexture75Percent = 750;
  wdTexture77Pt5Percent = 775;
  wdTexture80Percent = 800;
  wdTexture82Pt5Percent = 825;
  wdTexture85Percent = 850;
  wdTexture87Pt5Percent = 875;
  wdTexture90Percent = 900;
  wdTexture92Pt5Percent = 925;
  wdTexture95Percent = 950;
  wdTexture97Pt5Percent = 975;
  wdTextureSolid = 1000;
  wdTextureDarkHorizontal = -1;
  wdTextureDarkVertical = -2;
  wdTextureDarkDiagonalDown = -3;
  wdTextureDarkDiagonalUp = -4;
  wdTextureDarkCross = -5;
  wdTextureDarkDiagonalCross = -6;
  wdTextureHorizontal = -7;
  wdTextureVertical = -8;
  wdTextureDiagonalDown = -9;
  wdTextureDiagonalUp = -10;
  wdTextureCross = -11;
  wdTextureDiagonalCross = -12;

{ WdUnderline }

  wdUnderlineNone = 0;
  wdUnderlineSingle = 1;
  wdUnderlineWords = 2;
  wdUnderlineDouble = 3;
  wdUnderlineDotted = 4;
  wdUnderlineThick = 6;
  wdUnderlineDash = 7;
  wdUnderlineDotDash = 9;
  wdUnderlineDotDotDash = 10;
  wdUnderlineWavy = 11;

{ WdEmphasisMark }

  wdEmphasisMarkNone = 0;
  wdEmphasisMarkOverSolidCircle = 1;
  wdEmphasisMarkOverComma = 2;
  wdEmphasisMarkOverWhiteCircle = 3;
  wdEmphasisMarkUnderSolidCircle = 4;

{ WdInternationalIndex }

  wdListSeparator = 17;
  wdDecimalSeparator = 18;
  wdThousandsSeparator = 19;
  wdCurrencyCode = 20;
  wd24HourClock = 21;
  wdInternationalAM = 22;
  wdInternationalPM = 23;
  wdTimeSeparator = 24;
  wdDateSeparator = 25;
  wdProductLanguageID = 26;

{ WdAutoMacros }

  wdAutoExec = 0;
  wdAutoNew = 1;
  wdAutoOpen = 2;
  wdAutoClose = 3;
  wdAutoExit = 4;

{ WdCaptionPosition }

  wdCaptionPositionAbove = 0;
  wdCaptionPositionBelow = 1;

{ WdCountry }

  wdUS = 1;
  wdCanada = 2;
  wdLatinAmerica = 3;
  wdNetherlands = 31;
  wdFrance = 33;
  wdSpain = 34;
  wdItaly = 39;
  wdUK = 44;
  wdDenmark = 45;
  wdSweden = 46;
  wdNorway = 47;
  wdGermany = 49;
  wdPeru = 51;
  wdMexico = 52;
  wdArgentina = 54;
  wdBrazil = 55;
  wdChile = 56;
  wdVenezuela = 58;
  wdJapan = 81;
  wdTaiwan = 886;
  wdChina = 86;
  wdKorea = 82;
  wdFinland = 358;
  wdIceland = 354;

{ WdHeadingSeparator }

  wdHeadingSeparatorNone = 0;
  wdHeadingSeparatorBlankLine = 1;
  wdHeadingSeparatorLetter = 2;
  wdHeadingSeparatorLetterLow = 3;
  wdHeadingSeparatorLetterFull = 4;

{ WdSeparatorType }

  wdSeparatorHyphen = 0;
  wdSeparatorPeriod = 1;
  wdSeparatorColon = 2;
  wdSeparatorEmDash = 3;
  wdSeparatorEnDash = 4;

{ WdPageNumberAlignment }

  wdAlignPageNumberLeft = 0;
  wdAlignPageNumberCenter = 1;
  wdAlignPageNumberRight = 2;
  wdAlignPageNumberInside = 3;
  wdAlignPageNumberOutside = 4;

{ WdBorderType }

  wdBorderTop = -1;
  wdBorderLeft = -2;
  wdBorderBottom = -3;
  wdBorderRight = -4;
  wdBorderHorizontal = -5;
  wdBorderVertical = -6;

{ WdBorderTypeHID }

  wdBorderDiagonalDown = -7;
  wdBorderDiagonalUp = -8;

{ WdFramePosition }

  wdFrameTop = -999999;
  wdFrameLeft = -999998;
  wdFrameBottom = -999997;
  wdFrameRight = -999996;
  wdFrameCenter = -999995;
  wdFrameInside = -999994;
  wdFrameOutside = -999993;

{ WdAnimation }

  wdAnimationNone = 0;
  wdAnimationLasVegasLights = 1;
  wdAnimationBlinkingBackground = 2;
  wdAnimationSparkleText = 3;
  wdAnimationMarchingBlackAnts = 4;
  wdAnimationMarchingRedAnts = 5;
  wdAnimationShimmer = 6;

{ WdCharacterCase }

  wdNextCase = -1;
  wdLowerCase = 0;
  wdUpperCase = 1;
  wdTitleWord = 2;
  wdTitleSentence = 4;
  wdToggleCase = 5;

{ WdCharacterCaseHID }

  wdHalfWidth = 6;
  wdFullWidth = 7;
  wdKatakana = 8;
  wdHiragana = 9;

{ WdSummaryMode }

  wdSummaryModeHighlight = 0;
  wdSummaryModeHideAllButSummary = 1;
  wdSummaryModeInsert = 2;
  wdSummaryModeCreateNew = 3;

{ WdSummaryLength }

  wd10Sentences = -2;
  wd20Sentences = -3;
  wd100Words = -4;
  wd500Words = -5;
  wd10Percent = -6;
  wd25Percent = -7;
  wd50Percent = -8;
  wd75Percent = -9;

{ WdStyleType }

  wdStyleTypeParagraph = 1;
  wdStyleTypeCharacter = 2;

{ WdUnits }

  wdCharacter = 1;
  wdWord = 2;
  wdSentence = 3;
  wdParagraph = 4;
  wdLine = 5;
  wdStory = 6;
  wdScreen = 7;
  wdSection = 8;
  wdColumn = 9;
  wdRow = 10;
  wdWindow = 11;
  wdCell = 12;
  wdCharacterFormatting = 13;
  wdParagraphFormatting = 14;
  wdTable = 15;
  wdItem = 16;

{ WdGoToItem }

  wdGoToBookmark = -1;
  wdGoToSection = 0;
  wdGoToPage = 1;
  wdGoToTable = 2;
  wdGoToLine = 3;
  wdGoToFootnote = 4;
  wdGoToEndnote = 5;
  wdGoToComment = 6;
  wdGoToField = 7;
  wdGoToGraphic = 8;
  wdGoToObject = 9;
  wdGoToEquation = 10;
  wdGoToHeading = 11;
  wdGoToPercent = 12;
  wdGoToSpellingError = 13;
  wdGoToGrammaticalError = 14;
  wdGoToProofreadingError = 15;

{ WdGoToDirection }

  wdGoToFirst = 1;
  wdGoToLast = -1;
  wdGoToNext = 2;
  wdGoToRelative = 2;
  wdGoToPrevious = 3;
  wdGoToAbsolute = 1;

{ WdCollapseDirection }

  wdCollapseStart = 1;
  wdCollapseEnd = 0;

{ WdRowHeightRule }

  wdRowHeightAuto = 0;
  wdRowHeightAtLeast = 1;
  wdRowHeightExactly = 2;

{ WdFrameSizeRule }