Delphi. OLE Automation (COM). MS Word. Значения некоторых констант

На предыдущую страницу…

См., также, здесь (исходники примера, где есть и эти константы).


Const
  MsWord_NonBreakingSpaceCode = 160;   //ascii-код символа "Неразрывный пробел в MS Word"
  MsWord_NonBreakingSpaceChar = #160;  //символ "Неразрывный пробел в MS Word"


Const

//..............................................
//https://docs.microsoft.com/en-us/office/vba/api/word.wdsaveformat
//Форматы сохранения файлов. WdSaveFormat Enumeration (Word)
  wdFormatDocument = 0; //Microsoft Office Word 97 - 2003 binary file format.
  wdFormatDOSText  = 4; //Microsoft DOS text format.
  wdFormatDOSTextLineBreaks = 5; //Microsoft DOS text with line breaks preserved.
  wdFormatEncodedText = 7; //Encoded text format.
  wdFormatFilteredHTML = 10; //Filtered HTML format.
  wdFormatFlatXML = 19; //Open XML file format saved as a single XML file.
  wdFormatFlatXML2 = 20; //Open XML file format with macros enabled saved as a single XML file.
  wdFormatFlatXMLTemplate = 21; //Open XML template format saved as a XML single file.
  wdFormatFlatXMLTemplateMacroEnabled = 22; //Open XML template format with macros enabled saved as a single XML file.
  wdFormatOpenDocumentText = 23; //OpenDocument Text format.
  wdFormatHTML = 8; //Standard HTML format.
  wdFormatRTF = 6; //Rich text format (RTF).
  wdFormatStrictOpenXMLDocument = 24; //Strict Open XML document format.
  wdFormatTemplate = 1; //Word template format.
  wdFormatText = 2; //Microsoft Windows text format.
  wdFormatTextLineBreaks = 3; //Windows text format with line breaks preserved.
  wdFormatUnicodeText = 7; //Unicode text format.
  wdFormatWebArchive = 9; //Web archive format.
  wdFormatXML = 11; //Extensible Markup Language (XML) format.
  wdFormatDocument97 = 0; //Microsoft Word 97 document format.
  wdFormatDocumentDefault = 16; //Word default document file format. For Word, this is the DOCX format.
  wdFormatPDF = 17; //PDF format.
  wdFormatTemplate97 = 1; //Word 97 template format.
  wdFormatXMLDocument = 12; //XML document format.
  wdFormatXMLDocumentMacroEnabled = 13; //XML document format with macros enabled.
  wdFormatXMLTemplate = 14; //XML template format.
  wdFormatXMLTemplateMacroEnabled = 15; //XML template format with macros enabled.
  wdFormatXPS = 18; //XPS format.
//..............................................

Const

//..............................................
//https://docs.microsoft.com/en-us/office/vba/api/word.wdsaveoptions
//WdSaveOptions Enumeration (Word)
  wdDoNotSaveChanges = 0; //Do not save pending changes.
  wdPromptToSaveChanges = -2; //Prompt the user to save pending changes.
  wdSaveChanges = -1; //Save pending changes automatically without prompting the user.
//..............................................


  //..............................................
  //Метод Selection.Move
  WdCharacter =1;  //Переход к следующему символу
  WdWord=2;        //Переход к следующему слову
  WdSentence=3;    //Переход к следующему предложению
  WdParagraph=4;   //Переход к следующему абзацу
  WdSection=8;     //Переход к следующему разделу
  WdStory=6;       //Переход в следующую текстовую область документа
  WdCell=12;       //Переход к следующей ячейки
  WdColumn=9;      //Переход к следующему столбцу
  WdRow=10;        //Переход к следующей строке
  WdTable=15;      //Переход к следующей таблице
  WdLine=5;        //Переход к следующей линии
  //..............................................

Const

  //..............................................
  //https://docs.microsoft.com/en-us/office/vba/api/word.wdcontentcontroltype
  //WdContentControlType enumeration (Word)
  wdContentControlBuildingBlockGallery = 5; //Specifies a building block gallery content control.
  wdContentControlCheckbox = 8; //Specifies a checkbox content control.
  wdContentControlComboBox = 3; //Specifies a combo box content control.
  wdContentControlDate = 6; //Specifies a date content control.
  wdContentControlGroup = 7; //Specifies a group content control.
  wdContentControlDropdownList = 4; //Specifies a drop-down list content control.
  wdContentControlPicture = 2; //Specifies a picture content control.
  wdContentControlRepeatingSection = 9; //Specifies a repeating section content control.
  wdContentControlRichText = 0; //Specifies a rich-text content control.
  wdContentControlText = 1; //Specifies a text content control
  //..............................................


//..............................................
//Коды символов
Const

  word_char_code_is_SLF = 11; //Код символа: "мягкий перенос строки"

//..............................................

Const

  //..............................................
  //VB. Типы модулей
  vbext_ct_StdModule       = 1;
  vbext_ct_ClassModule     = 2;
  vbext_ct_Document        = 100;
  vbext_ct_MSForm          = 3;
  vbext_ct_ActiveXDesigner = 11;
  //..............................................


const

  wdSeekMainDocument = $00000000;
  wdSeekPrimaryHeader = $00000001;
  wdSeekFirstPageHeader = $00000002;
  wdSeekEvenPagesHeader = $00000003;
  wdSeekPrimaryFooter = $00000004;
  wdSeekFirstPageFooter = $00000005;
  wdSeekEvenPagesFooter = $00000006;
  wdSeekFootnotes = $00000007;
  wdSeekEndnotes = $00000008;
  wdSeekCurrentPageHeader = $00000009;
  wdSeekCurrentPageFooter = $0000000A;

const

   wdFirstCharacterLineNumber = 10;

   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;
   wdGoToFirst = 1;
   wdGoToLast = -1;
   wdGoToNext = 2;   //интересно,
   wdGoToRelative = 2;  //чем отличаются эти две константы?
   wdGoToPrevious = 3;
   wdGoToAbsolute = 1;

   wdAlignParagraphLeft = $00000000;
   wdAlignParagraphCenter = $00000001;
   wdAlignParagraphRight = $00000002;
   wdAlignParagraphJustify = $00000003;
   wdAlignParagraphDistribute = $00000004;
   wdAlignParagraphJustifyMed = $00000005;
   wdAlignParagraphJustifyHi = $00000007;
   wdAlignParagraphJustifyLow = $00000008;

  wdWord9TableBehavior = 1;
  wdAutoFitFixed = 0;
  wdAutoFitContent = 1;
  wdAutoFitWindow = 2;

  //границы
  wdLineStyleNone = 0;
  wdLineStyleSingle = 1;
  wdLineStyleDot = 2;
  wdLineStyleDashSmallGap = 3;
  wdLineStyleDashLargeGap = 4;
  wdLineStyleDashDot = 5;
  wdLineStyleDashDotDot = 6;
  wdLineStyleDouble = 7;
  wdLineStyleTriple = 8;
  wdLineStyleThinThickSmallGap = 9;
  wdLineStyleThickThinSmallGap = 10;
  wdLineStyleThinThickThinSmallGap = 11;
  wdLineStyleThinThickMedGap = 12;
  wdLineStyleThickThinMedGap = 13;
  wdLineStyleThinThickThinMedGap = 14;
  wdLineStyleThinThickLargeGap = 15;
  wdLineStyleThickThinLargeGap = 16;
  wdLineStyleThinThickThinLargeGap = 17;
  wdLineStyleSingleWavy = 18;
  wdLineStyleDoubleWavy = 19;
  wdLineStyleDashDotStroked = 20;
  wdLineStyleEmboss3D = 21;
  wdLineStyleEngrave3D = 22;
  wdLineStyleOutset = 23;
  wdLineStyleInset = 24;

  //Для InsertBreak
  wdTextWrappingBreak = 11; //Конец текущей строки и продолжение вставки ниже изображения, таблицы или другого объекта. Материал продолжается на следующей пустой строке, которая не содержит таблицу, совмещенную с левой или правой границей.
  wdLineBreakClearRight = 10; //Перевод на новую строку.
  wdLineBreakClearLeft = 9; //Перевод на новую строку.
  wdColumnBreak = 8; //Разрыв колонки.
  wdPageBreak = 7; //Вставка новой страницы.
  wdLineBreak = 6; //Перевод на новую строку.
  wdSectionBreakOddPage = 5; //Начало нового раздела со следующей нечетной страницы.
  wdSectionBreakEvenPage = 4; //Начало нового раздела со следующей четной страницы.
  wdSectionBreakContinuous = 3; //Новый раздел без разрыва страницы.
  wdSectionBreakNextPage = 2; //Начало нового раздела со следующей страницы.



  //https://club.directum.ru/post/778
  //Единица измерения
  wdPreferredWidthPoints = 3;     //Сантиметры
  wdPreferredWidthPercent = 2;    //Проценты
  //Режим выравнивания
  wdCellAlignVerticalTop = 0; //По верхнему краю
  wdCellAlignVerticalCenter = 1; //По центру
  wdCellAlignVerticalBottom = 2; //По нижнему краю


Const
  wdFindAsk = 2; //После выполнения поиска в выделенном фрагменте или диапазон, Microsoft Word отображает сообщение с вопросом, следует ли выполнять поиск в оставшейся части документа.
  wdFindContinue = 1; //Операция поиска по-прежнему производится при начале или конце диапазон поиска является связаться с вами.
  wdFindStop = 0; //Операция поиска заканчивается, если достигнуто начало или конец диапазона поиска.
  wdReplaceOne = 1;
  wdReplaceAll = 2;


Const
  //-------------------------
  //WdFontBias Enum
  //https://docs.microsoft.com/ru-ru/dotnet/api/microsoft.office.interop.word.wdfontbias?view=word-pia
  wdFontBiasDefault  = 0;   //Смещение шрифта по умолчанию.
  wdFontBiasDontCare = 255; //Смещение шрифта не указан.
  wdFontBiasFareast  = 1;   //Смещение шрифта Дальнего Востока.
  //-------------------------

См., также, здесь (исходники примера, где есть и эти константы).


На предыдущую страницу…


Дата: 16.10.2022