Word VBA to AHK translation needed

Get help with using AutoHotkey (v1.1 and older) and its commands and hotkeys
Trisolaris
Posts: 79
Joined: 10 Mar 2019, 10:28

Word VBA to AHK translation needed

28 Sep 2021, 04:59

Hi,

I'm trying to manipulate Word's cumbersome Crossreference window via COM, so that it starts with a specific set of pre-sets.

Can one of you COM gurus translate following Word VBA snippet to AHK (I use AHK 1.1.30.01). This should help me get started. I have no idea how to pass the many InsertCrossReference parameters to Word.

Code: Select all

Selection.InsertCrossReference ReferenceType:="Table", ReferenceKind:= _
        wdOnlyLabelAndNumber, ReferenceItem:="1", InsertAsHyperlink:=True, _
        IncludePosition:=False, SeparateNumbers:=False, SeparatorString:=" "
swagfag
Posts: 6222
Joined: 11 Jan 2017, 17:59

Re: Word VBA to AHK translation needed

28 Sep 2021, 06:08

Code: Select all

wdRefTypeNumberedItem     :=  0 ; Numbered item.
wdRefTypeHeading          :=  1 ; Heading.
wdRefTypeBookmark         :=  2 ; Bookmark.
wdRefTypeFootnote         :=  3 ; Footnote.
wdRefTypeEndnote          :=  4 ; Endnote.

wdContentText             :=  1 ; Insert text value of the specified item. For example, insert text of the specified heading.
wdEndnoteNumber           :=  6 ; Insert endnote reference mark.
wdEndnoteNumberFormatted  := 17 ; Insert formatted endnote reference mark.
wdEntireCaption           :=  2 ; Insert label, number, and any additional caption of specified equation, figure, or table.
wdFootnoteNumber          :=  5 ; Insert footnote reference mark.
wdFootnoteNumberFormatted := 16 ; Insert formatted footnote reference mark.
wdNumberFullContext       :=  4 ; Insert complete heading or paragraph number.
wdNumberNoContext         :=  3 ; Insert heading or paragraph without its relative position in the outline numbered list.
wdNumberRelativeContext   :=  2 ; Insert heading or paragraph with as much of its relative position in the outline numbered list as necessary to identify the item.
wdOnlyCaptionText         :=  4 ; Insert only the caption text of the specified equation, figure, or table.
wdOnlyLabelAndNumber      :=  3 ; Insert only the label and number of the specified equation, figure, or table.
wdPageNumber              :=  7 ; Insert page number of specified item.
wdPosition                := 15 ; Insert the word "Above" or the word "Below" as appropriate.

Word := ComObjActive("Word.Application")
Selection := Word.ActiveDocument.ActiveWindow.Selection
Selection.InsertCrossReference( ReferenceType     := wdRefTypeNumberedItem ; The type of item for which a cross-reference is to be inserted. Can be any WdReferenceType or WdCaptionLabelID constant or a user defined caption label.
                              , ReferenceKind     := wdPageNumber ; The information to be included in the cross-reference.
                              , ReferenceItem     := "4. Fourth bullet point." ; If ReferenceType is wdRefTypeBookmark, this argument specifies a bookmark name. For all other ReferenceType values, this argument specifies the item number or name in the Reference type box in the Cross-reference dialog box. Use the GetCrossReferenceItems method to return a list of item names that can be used with this argument.
                              , InsertAsHyperlink := true ; True to insert the cross-reference as a hyperlink to the referenced item.
                              , IncludePosition   := false ; True to insert "above" or "below," depending on the location of the reference item in relation to the cross-reference.
                              , SeparateNumbers   := false ; True to use a separator to separate the numbers from the associated text. (Use only if the ReferenceType parameter is set to wdRefTypeNumberedItem and the ReferenceKind parameter is set to wdNumberFullContext.)
                              , SeparatorString   := " " ) ; Specifies the string to use as a separator if the SeparateNumbers parameter is set to True.
Trisolaris
Posts: 79
Joined: 10 Mar 2019, 10:28

Re: Word VBA to AHK translation needed

28 Sep 2021, 07:19

@swagfag
That was fast, thanks you!

I've just tested your code, and it inserts a cross-ref without opening the cross-ref window.

How can I adapt the scirpt to make all presets except for the ReferenceItem, and to open the cross-ref window so that I can select the ReferenceItem manually?
swagfag
Posts: 6222
Joined: 11 Jan 2017, 17:59

Re: Word VBA to AHK translation needed

28 Sep 2021, 11:15

usually ud start by looking at the docs and seeing what u can find
https://docs.microsoft.com/en-us/office/vba/api/overview/word/object-model

Code: Select all

Word := ComObjActive("Word.Application")

wdDialogBuildingBlockOrganizer          := 2067 ; (none)
wdDialogConnect                         :=  420 ; Drive, Path, Password
wdDialogConsistencyChecker              := 1121 ; (none)
wdDialogContentControlProperties        := 2394 ; (none)
wdDialogControlRun                      :=  235 ; Application
wdDialogConvertObject                   :=  392 ; IconNumber, ActivateAs, IconFileName, Caption, Class, DisplayIcon, Floating
wdDialogCopyFile                        :=  300 ; FileName, Directory
wdDialogCreateAutoText                  :=  872 ; (none)
wdDialogCreateSource                    := 1922 ; (none)
wdDialogCSSLinks                        := 1261 ; LinkStyles
wdDialogDocumentInspector               := 1482 ; (none)
wdDialogDocumentStatistics              :=   78 ; FileName, Directory, Template, Title, Created, LastSaved, LastSavedBy, Revision, Time, Printed, Pages, Words, Characters, Paragraphs, Lines, FileSize
wdDialogDrawAlign                       :=  634 ; Horizontal, Vertical, RelativeTo
wdDialogDrawSnapToGrid                  :=  633 ; SnapToGrid, XGrid, YGrid, XOrigin, YOrigin, SnapToShapes, XGridDisplay, YGridDisplay, FollowMargins, ViewGridLines, DefineLineBasedOnGrid
wdDialogEditAutoText                    :=  985 ; Name, Context, InsertAs, Insert, Add, Define, InsertAsText, Delete, CompleteAT
wdDialogEditCreatePublisher             :=  732 ; Macintosh-only. For information about this constant, consult the language reference Help included with Microsoft Office Macintosh Edition.
wdDialogEditFind                        :=  112 ; Find, Replace, Direction, MatchCase, WholeWord, PatternMatch, SoundsLike, FindNext, ReplaceOne, ReplaceAll, Format, Wrap, FindAllWordForms, MatchByte, FuzzyFind, Destination, CorrectEnd, MatchKashida, MatchDiacritics, MatchAlefHamza, MatchControl
wdDialogEditFrame                       :=  458 ; Wrap, WidthRule, FixedWidth, HeightRule, FixedHeight, PositionHorz, PositionHorzRel, DistFromText, PositionVert, PositionVertRel, DistVertFromText, MoveWithText, LockAnchor, RemoveFrame
wdDialogEditGoTo                        :=  896 ; Find, Replace, Direction, MatchCase, WholeWord, PatternMatch, SoundsLike, FindNext, ReplaceOne, ReplaceAll, Format, Wrap, FindAllWordForms, MatchByte, FuzzyFind, Destination, CorrectEnd, MatchKashida, MatchDiacritics, MatchAlefHamza, MatchControl
wdDialogEditGoToOld                     :=  811 ; (none)
wdDialogEditLinks                       :=  124 ; UpdateMode, Locked, SavePictureInDoc, UpdateNow, OpenSource, KillLink, Link, Application, Item, FileName, PreserveFormatLinkUpdate
wdDialogEditObject                      :=  125 ; Verb
wdDialogEditPasteSpecial                :=  111 ; IconNumber, Link, DisplayIcon, Class, DataType, IconFileName, Caption, Floating
wdDialogEditPublishOptions              :=  735 ; Macintosh-only. For information about this constant, consult the language reference Help included with Microsoft Office Macintosh Edition.
wdDialogEditReplace                     :=  117 ; Find, Replace, Direction, MatchCase, WholeWord, PatternMatch, SoundsLike, FindNext, ReplaceOne, ReplaceAll, Format, Wrap, FindAllWordForms, MatchByte, FuzzyFind, Destination, CorrectEnd, MatchKashida, MatchDiacritics, MatchAlefHamza, MatchControl
wdDialogEditStyle                       :=  120 ; (none)
wdDialogEditSubscribeOptions            :=  736 ; Macintosh-only. For information about this constant, consult the language reference Help included with Microsoft Office Macintosh Edition.
wdDialogEditSubscribeTo                 :=  733 ; Macintosh-only. For information about this constant, consult the language reference Help included with Microsoft Office Macintosh Edition.
wdDialogEditTOACategory                 :=  625 ; Category, CategoryName
wdDialogEmailOptions                    :=  863 ; (none)
wdDialogFileDocumentLayout              :=  178 ; Tab, PaperSize, TopMargin, BottomMargin, LeftMargin, RightMargin, Gutter, PageWidth, PageHeight, Orientation, FirstPage, OtherPages, VertAlign, ApplyPropsTo, Default, FacingPages, HeaderDistance, FooterDistance, SectionStart, OddAndEvenPages, DifferentFirstPage, Endnotes, LineNum, StartingNum, FromText, CountBy, NumMode, TwoOnOne, GutterPosition, LayoutMode, CharsLine, LinesPage, CharPitch, LinePitch, DocFontName, DocFontSize, PageColumns, TextFlow, FirstPageOnLeft, SectionType, RTLAlignment
wdDialogFileFind                        :=   99 ; SearchName, SearchPath, Name, SubDir, Title, Author, Keywords, Subject, Options, MatchCase, Text, PatternMatch, DateSavedFrom, DateSavedTo, SavedBy, DateCreatedFrom, DateCreatedTo, View, SortBy, ListBy, SelectedFile, Add, Delete, ShowFolders, MatchByte
wdDialogFileMacCustomPageSetupGX        :=  737 ; Macintosh-only. For information about this constant, consult the language reference Help included with Microsoft Office Macintosh Edition.
wdDialogFileMacPageSetup                :=  685 ; Macintosh-only. For information about this constant, consult the language reference Help included with Microsoft Office Macintosh Edition.
wdDialogFileMacPageSetupGX              :=  444 ; Macintosh-only. For information about this constant, consult the language reference Help included with Microsoft Office Macintosh Edition.
wdDialogFileNew                         :=   79 ; Template, NewTemplate, DocumentType, Visible
wdDialogFileOpen                        :=   80 ; Name, ConfirmConversions, ReadOnly, LinkToSource, AddToMru, PasswordDoc, PasswordDot, Revert, WritePasswordDoc, WritePasswordDot, Connection, SQLStatement, SQLStatement1, Format, Encoding, Visible, OpenExclusive, OpenAndRepair, SubType, DocumentDirection, NoEncodingDialog, XMLTransform
wdDialogFilePageSetup                   :=  178 ; Tab, PaperSize, TopMargin, BottomMargin, LeftMargin, RightMargin, Gutter, PageWidth, PageHeight, Orientation, FirstPage, OtherPages, VertAlign, ApplyPropsTo, Default, FacingPages, HeaderDistance, FooterDistance, SectionStart, OddAndEvenPages, DifferentFirstPage, Endnotes, LineNum, StartingNum, FromText, CountBy, NumMode, TwoOnOne, GutterPosition, LayoutMode, CharsLine, LinesPage, CharPitch, LinePitch, DocFontName, DocFontSize, PageColumns, TextFlow, FirstPageOnLeft, SectionType, RTLAlignment, FolioPrint
wdDialogFilePrint                       :=   88 ; Background, AppendPrFile, Range, PrToFileName, From, To, Type, NumCopies, Pages, Order, PrintToFile, Collate, FileName, Printer, OutputPrinter, DuplexPrint, PrintZoomColumn, PrintZoomRow, PrintZoomPaperWidth, PrintZoomPaperHeight, ZoomPaper
wdDialogFilePrintOneCopy                :=  445 ; Macintosh-only. For information about this constant, consult the language reference Help included with Microsoft Office Macintosh Edition.
wdDialogFilePrintSetup                  :=   97 ; Printer, Options, Network, DoNotSetAsSysDefault
wdDialogFileRoutingSlip                 :=  624 ; Subject, Message, AllAtOnce, ReturnWhenDone, TrackStatus, Protect, AddSlip, RouteDocument, AddRecipient, OldRecipient, ResetSlip, ClearSlip, ClearRecipients, Address
wdDialogFileSaveAs                      :=   84 ; Name, Format, LockAnnot, Password, AddToMru, WritePassword, RecommendReadOnly, EmbedFonts, NativePictureFormat, FormsData, SaveAsAOCELetter, WriteVersion, VersionDesc, InsertLineBreaks, AllowSubstitutions, LineEnding, AddBiDiMarks
wdDialogFileSaveVersion                 := 1007 ; (none)
wdDialogFileSummaryInfo                 :=   86 ; Title, Subject, Author, Keywords, Comments, FileName, Directory, Template, CreateDate, LastSavedDate, LastSavedBy, RevisionNumber, EditTime, LastPrintedDate, NumPages, NumWords, NumChars, NumParas, NumLines, Update, FileSize
wdDialogFileVersions                    :=  945 ; AutoVersion, VersionDesc
wdDialogFitText                         :=  983 ; FitTextWidth
wdDialogFontSubstitution                :=  581 ; UnavailableFont, SubstituteFont
wdDialogFormatAddrFonts                 :=  103 ; Points, Underline, Color, StrikeThrough, Superscript, Subscript, Hidden, SmallCaps, AllCaps, Spacing, Position, Kerning, KerningMin, Default, Tab, Font, Bold, Italic, DoubleStrikeThrough, Shadow, Outline, Emboss, Engrave, Scale, Animations, CharAccent, FontMajor, FontLowAnsi, FontHighAnsi, CharacterWidthGrid, ColorRGB, UnderlineColor, PointsBi, ColorBi, FontNameBi, BoldBi, ItalicBi, DiacColor
wdDialogFormatBordersAndShading         :=  189 ; ApplyTo, Shadow, TopBorder, LeftBorder, BottomBorder, RightBorder, HorizBorder, VertBorder, TopColor, LeftColor, BottomColor, RightColor, HorizColor, VertColor, FromText, Shading, Foreground, Background, Tab, FineShading, TopStyle, LeftStyle, BottomStyle, RightStyle, HorizStyle, VertStyle, TopWeight, LeftWeight, BottomWeight, RightWeight, HorizWeight, VertWeight, BorderObjectType, BorderArtWeight, BorderArt, FromTextTop, FromTextBottom, FromTextLeft, FromTextRight, OffsetFrom, InFront, SurroundHeader, SurroundFooter, JoinBorder, LineColor, WhichPages, TL2BRBorder, TR2BLBorder, TL2BRColor, TR2BLColor, TL2BRStyle, TR2BLStyle, TL2BRWeight, TR2BLWeight, ForegroundRGB, BackgroundRGB, TopColorRGB, LeftColorRGB, BottomColorRGB, RightColorRGB, HorizColorRGB, VertColorRGB, TL2BRColorRGB, TR2BLColorRGB, LineColorRGB
wdDialogFormatBulletsAndNumbering       :=  824 ; (none)
wdDialogFormatCallout                   :=  610 ; Type, Gap, Angle, Drop, Length, Border, AutoAttach, Accent
wdDialogFormatChangeCase                :=  322 ; Type
wdDialogFormatColumns                   :=  177 ; Columns, ColumnNo, ColumnWidth, ColumnSpacing, EvenlySpaced, ApplyColsTo, ColLine, StartNewCol, FlowColumnsRtl
wdDialogFormatDefineStyleBorders        :=  185 ; ApplyTo, Shadow, TopBorder, LeftBorder, BottomBorder, RightBorder, HorizBorder, VertBorder, TopColor, LeftColor, BottomColor, RightColor, HorizColor, VertColor, FromText, Shading, Foreground, Background, Tab, FineShading, TopStyle, LeftStyle, BottomStyle, RightStyle, HorizStyle, VertStyle, TopWeight, LeftWeight, BottomWeight, RightWeight, HorizWeight, VertWeight, BorderObjectType, BorderArtWeight, BorderArt, FromTextTop, FromTextBottom, FromTextLeft, FromTextRight, OffsetFrom, InFront, SurroundHeader, SurroundFooter, JoinBorder, LineColor, WhichPages, TL2BRBorder, TR2BLBorder, TL2BRColor, TR2BLColor, TL2BRStyle, TR2BLStyle, TL2BRWeight, TR2BLWeight, ForegroundRGB, BackgroundRGB, TopColorRGB, LeftColorRGB, BottomColorRGB, RightColorRGB, HorizColorRGB, VertColorRGB, TL2BRColorRGB, TR2BLColorRGB, LineColorRGB
wdDialogFormatDefineStyleFont           :=  181 ; Points, Underline, Color, StrikeThrough, Superscript, Subscript, Hidden, SmallCaps, AllCaps, Spacing, Position, Kerning, KerningMin, Default, Tab, Font, Bold, Italic, DoubleStrikeThrough, Shadow, Outline, Emboss, Engrave, Scale, Animations, CharAccent, FontMajor, FontLowAnsi, FontHighAnsi, CharacterWidthGrid, ColorRGB, UnderlineColor, PointsBi, ColorBi, FontNameBi, BoldBi, ItalicBi, DiacColor
wdDialogFormatDefineStyleFrame          :=  184 ; Wrap, WidthRule, FixedWidth, HeightRule, FixedHeight, PositionHorz, PositionHorzRel, DistFromText, PositionVert, PositionVertRel, DistVertFromText, MoveWithText, LockAnchor, RemoveFrame
wdDialogFormatDefineStyleLang           :=  186 ; Language, CheckLanguage, Default, NoProof
wdDialogFormatDefineStylePara           :=  182 ; LeftIndent, RightIndent, Before, After, LineSpacingRule, LineSpacing, Alignment, WidowControl, KeepWithNext, KeepTogether, PageBreak, NoLineNum, DontHyphen, Tab, FirstIndent, OutlineLevel, Kinsoku, WordWrap, OverflowPunct, TopLinePunct, AutoSpaceDE, LineHeightGrid, AutoSpaceDN, CharAlign, CharacterUnitLeftIndent, AdjustRight, CharacterUnitFirstIndent, CharacterUnitRightIndent, LineUnitBefore, LineUnitAfter, NoSpaceBetweenParagraphsOfSameStyle, OrientationBi
wdDialogFormatDefineStyleTabs           :=  183 ; Position, DefTabs, Align, Leader, Set, Clear, ClearAll
wdDialogFormatDrawingObject             :=  960 ; Left, PositionHorzRel, Top, PositionVertRel, LockAnchor, FloatOverText, LayoutInCell, WrapSide, TopDistanceFromText, BottomDistanceFromText, LeftDistanceFromText, RightDistanceFromText, Wrap, WordWrap, AutoSize, HRWidthType, HRHeight, HRNoshade, HRAlign, Text, AllowOverlap, HorizRule
wdDialogFormatDropCap                   :=  488 ; Position, Font, DropHeight, DistFromText
wdDialogFormatEncloseCharacters         := 1162 ; Style, Text, Enclosure
wdDialogFormatFont                      :=  174 ; Points, Underline, Color, StrikeThrough, Superscript, Subscript, Hidden, SmallCaps, AllCaps, Spacing, Position, Kerning, KerningMin, Default, Tab, Font, Bold, Italic, DoubleStrikeThrough, Shadow, Outline, Emboss, Engrave, Scale, Animations, CharAccent, FontMajor, FontLowAnsi, FontHighAnsi, CharacterWidthGrid, ColorRGB, UnderlineColor, PointsBi, ColorBi, FontNameBi, BoldBi, ItalicBi, DiacColor
wdDialogFormatFrame                     :=  190 ; Wrap, WidthRule, FixedWidth, HeightRule, FixedHeight, PositionHorz, PositionHorzRel, DistFromText, PositionVert, PositionVertRel, DistVertFromText, MoveWithText, LockAnchor, RemoveFrame
wdDialogFormatPageNumber                :=  298 ; ChapterNumber, NumRestart, NumFormat, StartingNum, Level, Separator, DoubleQuote, PgNumberingStyle
wdDialogFormatParagraph                 :=  175 ; LeftIndent, RightIndent, Before, After, LineSpacingRule, LineSpacing, Alignment, WidowControl, KeepWithNext, KeepTogether, PageBreak, NoLineNum, DontHyphen, Tab, FirstIndent, OutlineLevel, Kinsoku, WordWrap, OverflowPunct, TopLinePunct, AutoSpaceDE, LineHeightGrid, AutoSpaceDN, CharAlign, CharacterUnitLeftIndent, AdjustRight, CharacterUnitFirstIndent, CharacterUnitRightIndent, LineUnitBefore, LineUnitAfter, NoSpaceBetweenParagraphsOfSameStyle, OrientationBi
wdDialogFormatPicture                   :=  187 ; SetSize, CropLeft, CropRight, CropTop, CropBottom, ScaleX, ScaleY, SizeX, SizeY
wdDialogFormatRetAddrFonts              :=  221 ; Points, Underline, Color, StrikeThrough, Superscript, Subscript, Hidden, SmallCaps, AllCaps, Spacing, Position, Kerning, KerningMin, Default, Tab, Font, Bold, Italic, DoubleStrikeThrough, Shadow, Outline, Emboss, Engrave, Scale, Animations, CharAccent, FontMajor, FontLowAnsi, FontHighAnsi, CharacterWidthGrid, ColorRGB, UnderlineColor, PointsBi, ColorBi, FontNameBi, BoldBi, ItalicBi, DiacColor
wdDialogFormatSectionLayout             :=  176 ; SectionStart, VertAlign, Endnotes, LineNum, StartingNum, FromText, CountBy, NumMode, SectionType
wdDialogFormatStyle                     :=  180 ; Name, Delete, Merge, NewName, BasedOn, NextStyle, Type, FileName, Source, AddToTemplate, Define, Rename, Apply, New, Link
wdDialogFormatStyleGallery              :=  505 ; Template, Preview
wdDialogFormatStylesCustom              := 1248 ; (none)
wdDialogFormatTabs                      :=  179 ; Position, DefTabs, Align, Leader, Set, Clear, ClearAll
wdDialogFormatTheme                     :=  855 ; (none)
wdDialogFormattingRestrictions          := 1427 ; (none)
wdDialogFormFieldHelp                   :=  361 ; (none)
wdDialogFormFieldOptions                :=  353 ; Entry, Exit, Name, Enable, TextType, TextWidth, TextDefault, TextFormat, CheckSize, CheckWidth, CheckDefault, Type, OwnHelp, HelpText, OwnStat, StatText, Calculate
wdDialogFrameSetProperties              := 1074 ; (none)
wdDialogHelpAbout                       :=    9 ; APPNAME, APPCOPYRIGHT, APPUSERNAME, APPORGANIZATION, APPSERIALNUMBER
wdDialogHelpWordPerfectHelp             :=   10 ; WPCommand, HelpText, DemoGuidance
wdDialogHelpWordPerfectHelpOptions      :=  511 ; CommandKeyHelp, DocNavKeys, MouseSimulation, DemoGuidance, DemoSpeed, HelpType
wdDialogHorizontalInVertical            := 1160 ; (none)
wdDialogIMESetDefault                   := 1094 ; (none)
wdDialogInsertAddCaption                :=  402 ; Name
wdDialogInsertAutoCaption               :=  359 ; Clear, ClearAll, Object, Label, Position
wdDialogInsertBookmark                  :=  168 ; Name, SortBy, Add, Delete, Goto, Hidden
wdDialogInsertBreak                     :=  159 ; Type
wdDialogInsertCaption                   :=  357 ; Label, TitleAutoText, Title, Delete, Position, AutoCaption, ExcludeLabel
wdDialogInsertCaptionNumbering          :=  358 ; Label, FormatNumber, ChapterNumber, Level, Separator, CapNumberingStyle
wdDialogInsertCrossReference            :=  367 ; ReferenceType, ReferenceKind, ReferenceItem, InsertAsHyperLink, InsertPosition, SeparateNumbers, SeparatorCharacters
wdDialogInsertDatabase                  :=  341 ; Format, Style, LinkToSource, Connection, SQLStatement, SQLStatement1, PasswordDoc, PasswordDot, DataSource, From, To, IncludeFields, WritePasswordDoc, WritePasswordDot
wdDialogInsertDateTime                  :=  165 ; DateTimePic, InsertAsField, DbCharField, DateLanguage, CalendarType
wdDialogInsertField                     :=  166 ; Field
wdDialogInsertFile                      :=  164 ; Name, Range, ConfirmConversions, Link, Attachment
wdDialogInsertFootnote                  :=  370 ; Reference, NoteType, Symbol, FootNumberAs, EndNumberAs, FootnotesAt, EndnotesAt, FootNumberingStyle, EndNumberingStyle, FootStartingNum, FootRestartNum, EndStartingNum, EndRestartNum, ApplyPropsTo
wdDialogInsertFormField                 :=  483 ; Entry, Exit, Name, Enable, TextType, TextWidth, TextDefault, TextFormat, CheckSize, CheckWidth, CheckDefault, Type, OwnHelp, HelpText, OwnStat, StatText, Calculate
wdDialogInsertHyperlink                 :=  925 ; (none)
wdDialogInsertIndex                     :=  170 ; Outline, Fields, From, To, TableId, AddedStyles, Caption, HeadingSeparator, Replace, MarkEntry, AutoMark, MarkCitation, Type, RightAlignPageNumbers, Passim, KeepFormatting, Columns, Category, Label, ShowPageNumbers, AccentedLetters, Filter, SortBy, Leader, TOCUseHyperlinks, TOCHidePageNumInWeb, IndexLanguage, UseOutlineLevel
wdDialogInsertIndexAndTables            :=  473 ; Outline, Fields, From, To, TableId, AddedStyles, Caption, HeadingSeparator, Replace, MarkEntry, AutoMark, MarkCitation, Type, RightAlignPageNumbers, Passim, KeepFormatting, Columns, Category, Label, ShowPageNumbers, AccentedLetters, Filter, SortBy, Leader, TOCUseHyperlinks, TOCHidePageNumInWeb, IndexLanguage, UseOutlineLevel
wdDialogInsertMergeField                :=  167 ; MergeField, WordField
wdDialogInsertNumber                    :=  812 ; NumPic
wdDialogInsertObject                    :=  172 ; IconNumber, FileName, Link, DisplayIcon, Tab, Class, IconFileName, Caption, Floating
wdDialogInsertPageNumbers               :=  294 ; Type, Position, FirstPage
wdDialogInsertPicture                   :=  163 ; Name, LinkToFile, New, FloatOverText
wdDialogInsertPlaceholder               := 2348 ; (none)
wdDialogInsertSource                    := 2120 ; (none)
wdDialogInsertSubdocument               :=  583 ; Name, ConfirmConversions, ReadOnly, LinkToSource, AddToMru, PasswordDoc, PasswordDot, Revert, WritePasswordDoc, WritePasswordDot, Connection, SQLStatement, SQLStatement1, Format, Encoding, Visible, OpenExclusive, OpenAndRepair, SubType, DocumentDirection, NoEncodingDialog, XMLTransform
wdDialogInsertSymbol                    :=  162 ; Font, Tab, CharNum, CharNumLow, Unicode, Hint
wdDialogInsertTableOfAuthorities        :=  471 ; Outline, Fields, From, To, TableId, AddedStyles, Caption, HeadingSeparator, Replace, MarkEntry, AutoMark, MarkCitation, Type, RightAlignPageNumbers, Passim, KeepFormatting, Columns, Category, Label, ShowPageNumbers, AccentedLetters, Filter, SortBy, Leader, TOCUseHyperlinks, TOCHidePageNumInWeb, IndexLanguage, UseOutlineLevel
wdDialogInsertTableOfContents           :=  171 ; Outline, Fields, From, To, TableId, AddedStyles, Caption, HeadingSeparator, Replace, MarkEntry, AutoMark, MarkCitation, Type, RightAlignPageNumbers, Passim, KeepFormatting, Columns, Category, Label, ShowPageNumbers, AccentedLetters, Filter, SortBy, Leader, TOCUseHyperlinks, TOCHidePageNumInWeb, IndexLanguage, UseOutlineLevel
wdDialogInsertTableOfFigures            :=  472 ; Outline, Fields, From, To, TableId, AddedStyles, Caption, HeadingSeparator, Replace, MarkEntry, AutoMark, MarkCitation, Type, RightAlignPageNumbers, Passim, KeepFormatting, Columns, Category, Label, ShowPageNumbers, AccentedLetters, Filter, SortBy, Leader, TOCUseHyperlinks, TOCHidePageNumInWeb, IndexLanguage, UseOutlineLevel
wdDialogInsertWebComponent              := 1324 ; IconNumber, FileName, Link, DisplayIcon, Tab, Class, IconFileName, Caption, Floating
wdDialogLabelOptions                    := 1367 ; (none)
wdDialogLetterWizard                    :=  821 ; SenderCity, DateFormat, IncludeHeaderFooter, LetterStyle, Letterhead, LetterheadLocation, LetterheadSize, RecipientName, RecipientAddress, Salutation, SalutationType, RecipientGender, RecipientReference, MailingInstructions, AttentionLine, LetterSubject, CCList, SenderName, ReturnAddress, Closing, SenderJobTitle, SenderCompany, SenderInitials, EnclosureNumber, PageDesign, InfoBlock, SenderGender, ReturnAddressSF, RecipientCode, SenderCode, SenderReference
wdDialogListCommands                    :=  723 ; ListType
wdDialogMailMerge                       :=  676 ; CheckErrors, Destination, MergeRecords, From, To, Suppression, MailMerge, QueryOptions, MailSubject, MailAsAttachment, MailAddress
wdDialogMailMergeCheck                  :=  677 ; CheckErrors
wdDialogMailMergeCreateDataSource       :=  642 ; FileName, PasswordDoc, PasswordDot, HeaderRecord, MSQuery, SQLStatement, SQLStatement1, Connection, LinkToSource, WritePasswordDoc
wdDialogMailMergeCreateHeaderSource     :=  643 ; FileName, PasswordDoc, PasswordDot, HeaderRecord, MSQuery, SQLStatement, SQLStatement1, Connection, LinkToSource, WritePasswordDoc
wdDialogMailMergeFieldMapping           := 1304 ; (none)
wdDialogMailMergeFindRecipient          := 1326 ; (none)
wdDialogMailMergeFindRecord             :=  569 ; (none)
wdDialogMailMergeHelper                 :=  680 ; (none)
wdDialogMailMergeInsertAddressBlock     := 1305 ; (none)
wdDialogMailMergeInsertAsk              := 4047 ; (none)
wdDialogMailMergeInsertFields           := 1307 ; (none)
wdDialogMailMergeInsertFillIn           := 4048 ; (none)
wdDialogMailMergeInsertGreetingLine     := 1306 ; (none)
wdDialogMailMergeInsertIf               := 4049 ; (none)
wdDialogMailMergeInsertNextIf           := 4053 ; (none)
wdDialogMailMergeInsertSet              := 4054 ; (none)
wdDialogMailMergeInsertSkipIf           := 4055 ; (none)
wdDialogMailMergeOpenDataSource         :=   81 ; (none)
wdDialogMailMergeOpenHeaderSource       :=   82 ; (none)
wdDialogMailMergeQueryOptions           :=  681 ; (none)
wdDialogMailMergeRecipients             := 1308 ; (none)
wdDialogMailMergeSetDocumentType        := 1339 ; (none)
wdDialogMailMergeUseAddressBook         :=  779 ; (none)
wdDialogMarkCitation                    :=  463 ; (none)
wdDialogMarkIndexEntry                  :=  169 ; (none)
wdDialogMarkTableOfContentsEntry        :=  442 ; (none)
wdDialogMyPermission                    := 1437 ; (none)
wdDialogNewToolbar                      :=  586 ; (none)
wdDialogNoteOptions                     :=  373 ; (none)
wdDialogOMathRecognizedFunctions        := 2165 ; (none)
wdDialogOrganizer                       :=  222 ; (none)
wdDialogPermission                      := 1469 ; (none)
wdDialogPhoneticGuide                   :=  986 ; (none)
wdDialogReviewAfmtRevisions             :=  570 ; (none)
wdDialogSchemaLibrary                   := 1417 ; (none)
wdDialogSearch                          := 1363 ; (none)
wdDialogShowRepairs                     := 1381 ; (none)
wdDialogSourceManager                   := 1920 ; (none)
wdDialogStyleManagement                 := 1948 ; (none)
wdDialogTableAutoFormat                 :=  563 ; (none)
wdDialogTableCellOptions                := 1081 ; (none)
wdDialogTableColumnWidth                :=  143 ; (none)
wdDialogTableDeleteCells                :=  133 ; (none)
wdDialogTableFormatCell                 :=  612 ; (none)
wdDialogTableFormula                    :=  348 ; (none)
wdDialogTableInsertCells                :=  130 ; (none)
wdDialogTableInsertRow                  :=  131 ; (none)
wdDialogTableInsertTable                :=  129 ; (none)
wdDialogTableOfCaptionsOptions          :=  551 ; (none)
wdDialogTableOfContentsOptions          :=  470 ; (none)
wdDialogTableProperties                 :=  861 ; (none)
wdDialogTableRowHeight                  :=  142 ; (none)
wdDialogTableSort                       :=  199 ; (none)
wdDialogTableSplitCells                 :=  137 ; (none)
wdDialogTableTableOptions               := 1080 ; (none)
wdDialogTableToText                     :=  128 ; (none)
wdDialogTableWrapping                   :=  854 ; (none)
wdDialogTCSCTranslator                  := 1156 ; (none)
wdDialogTextToTable                     :=  127 ; (none)
wdDialogToolsAcceptRejectChanges        :=  506 ; (none)
wdDialogToolsAdvancedSettings           :=  206 ; (none)
wdDialogToolsAutoCorrect                :=  378 ; (none)
wdDialogToolsAutoCorrectExceptions      :=  762 ; (none)
wdDialogToolsAutoManager                :=  915 ; (none)
wdDialogToolsAutoSummarize              :=  874 ; (none)
wdDialogToolsBulletsNumbers             :=  196 ; (none)
wdDialogToolsCompareDocuments           :=  198 ; (none)
wdDialogToolsCreateDirectory            :=  833 ; (none)
wdDialogToolsCreateEnvelope             :=  173 ; (none)
wdDialogToolsCreateLabels               :=  489 ; (none)
wdDialogToolsCustomize                  :=  152 ; (none)
wdDialogToolsCustomizeKeyboard          :=  432 ; (none)
wdDialogToolsCustomizeMenuBar           :=  615 ; (none)
wdDialogToolsCustomizeMenus             :=  433 ; (none)
wdDialogToolsDictionary                 :=  989 ; (none)
wdDialogToolsEnvelopesAndLabels         :=  607 ; (none)
wdDialogToolsGrammarSettings            :=  885 ; (none)
wdDialogToolsHangulHanjaConversion      :=  784 ; (none)
wdDialogToolsHighlightChanges           :=  197 ; (none)
wdDialogToolsHyphenation                :=  195 ; (none)
wdDialogToolsLanguage                   :=  188 ; (none)
wdDialogToolsMacro                      :=  215 ; (none)
wdDialogToolsMacroRecord                :=  214 ; (none)
wdDialogToolsManageFields               :=  631 ; (none)
wdDialogToolsMergeDocuments             :=  435 ; (none)
wdDialogToolsOptions                    :=  974 ; (none)
wdDialogToolsOptionsAutoFormat          :=  959 ; (none)
wdDialogToolsOptionsAutoFormatAsYouType :=  778 ; (none)
wdDialogToolsOptionsBidi                := 1029 ; (none)
wdDialogToolsOptionsCompatibility       :=  525 ; (none)
wdDialogToolsOptionsEdit                :=  224 ; (none)
wdDialogToolsOptionsEditCopyPaste       := 1356 ; (none)
wdDialogToolsOptionsFileLocations       :=  225 ; (none)
wdDialogToolsOptionsFuzzy               :=  790 ; (none)
wdDialogToolsOptionsGeneral             :=  203 ; (none)
wdDialogToolsOptionsPrint               :=  208 ; (none)
wdDialogToolsOptionsSave                :=  209 ; (none)
wdDialogToolsOptionsSecurity            := 1361 ; (none)
wdDialogToolsOptionsSmartTag            := 1395 ; (none)
wdDialogToolsOptionsSpellingAndGrammar  :=  211 ; (none)
wdDialogToolsOptionsTrackChanges        :=  386 ; (none)
wdDialogToolsOptionsTypography          :=  739 ; (none)
wdDialogToolsOptionsUserInfo            :=  213 ; (none)
wdDialogToolsOptionsView                :=  204 ; (none)
wdDialogToolsProtectDocument            :=  503 ; (none)
wdDialogToolsProtectSection             :=  578 ; (none)
wdDialogToolsRevisions                  :=  197 ; (none)
wdDialogToolsSpellingAndGrammar         :=  828 ; (none)
wdDialogToolsTemplates                  :=   87 ; (none)
wdDialogToolsThesaurus                  :=  194 ; (none)
wdDialogToolsUnprotectDocument          :=  521 ; (none)
wdDialogToolsWordCount                  :=  228 ; (none)
wdDialogTwoLinesInOne                   := 1161 ; (none)
wdDialogUpdateTOC                       :=  331 ; (none)
wdDialogViewZoom                        :=  577 ; (none)
wdDialogWebOptions                      :=  898 ; (none)
wdDialogWindowActivate                  :=  220 ; (none)
wdDialogXMLElementAttributes            := 1460 ; (none)
wdDialogXMLOptions                      := 1425 ; (none)

DialogInsertCrossReference := Word.Dialogs(wdDialogInsertCrossReference)

wdRefTypeNumberedItem     :=  0 ; Numbered item.
wdRefTypeHeading          :=  1 ; Heading.
wdRefTypeBookmark         :=  2 ; Bookmark.
wdRefTypeFootnote         :=  3 ; Footnote.
wdRefTypeEndnote          :=  4 ; Endnote.

wdContentText             :=  1 ; Insert text value of the specified item. For example, insert text of the specified heading.
wdEndnoteNumber           :=  6 ; Insert endnote reference mark.
wdEndnoteNumberFormatted  := 17 ; Insert formatted endnote reference mark.
wdEntireCaption           :=  2 ; Insert label, number, and any additional caption of specified equation, figure, or table.
wdFootnoteNumber          :=  5 ; Insert footnote reference mark.
wdFootnoteNumberFormatted := 16 ; Insert formatted footnote reference mark.
wdNumberFullContext       :=  4 ; Insert complete heading or paragraph number.
wdNumberNoContext         :=  3 ; Insert heading or paragraph without its relative position in the outline numbered list.
wdNumberRelativeContext   :=  2 ; Insert heading or paragraph with as much of its relative position in the outline numbered list as necessary to identify the item.
wdOnlyCaptionText         :=  4 ; Insert only the caption text of the specified equation, figure, or table.
wdOnlyLabelAndNumber      :=  3 ; Insert only the label and number of the specified equation, figure, or table.
wdPageNumber              :=  7 ; Insert page number of specified item.
wdPosition                := 15 ; Insert the word "Above" or the word "Below" as appropriate.

DialogInsertCrossReference.ReferenceType     := wdRefTypeNumberedItem ; The type of item for which a cross-reference is to be inserted. Can be any WdReferenceType or WdCaptionLabelID constant or a user defined caption label.
DialogInsertCrossReference.ReferenceKind     := wdPageNumber ; The information to be included in the cross-reference.
DialogInsertCrossReference.InsertAsHyperlink := true ; True to insert the cross-reference as a hyperlink to the referenced item.
DialogInsertCrossReference.SeparateNumbers   := false ; True to use a separator to separate the numbers from the associated text. (Use only if the ReferenceType parameter is set to wdRefTypeNumberedItem and the ReferenceKind parameter is set to wdNumberFullContext.)
DialogInsertCrossReference.Show()
AHK_user
Posts: 515
Joined: 04 Dec 2015, 14:52
Location: Belgium

Re: Word VBA to AHK translation needed

28 Sep 2021, 23:24

I have made a script that tries to translate vba to ahk. It should know the constants and should work with excel and word. So try it out.

viewtopic.php?f=6&t=83370
Trisolaris
Posts: 79
Joined: 10 Mar 2019, 10:28

Re: Word VBA to AHK translation needed

29 Sep 2021, 04:50

swagfag wrote:
28 Sep 2021, 11:15
usually ud start by looking at the docs and seeing what u can find
https://docs.microsoft.com/en-us/office/vba/api/overview/word/object-model

Code: Select all

Word := ComObjActive("Word.Application")

wdDialogBuildingBlockOrganizer          := 2067 ; (none)
wdDialogConnect                         :=  420 ; Drive, Path, Password
wdDialogConsistencyChecker              := 1121 ; (none)
wdDialogContentControlProperties        := 2394 ; (none)
wdDialogControlRun                      :=  235 ; Application
wdDialogConvertObject                   :=  392 ; IconNumber, ActivateAs, IconFileName, Caption, Class, DisplayIcon, Floating
wdDialogCopyFile                        :=  300 ; FileName, Directory
wdDialogCreateAutoText                  :=  872 ; (none)
wdDialogCreateSource                    := 1922 ; (none)
wdDialogCSSLinks                        := 1261 ; LinkStyles
wdDialogDocumentInspector               := 1482 ; (none)
wdDialogDocumentStatistics              :=   78 ; FileName, Directory, Template, Title, Created, LastSaved, LastSavedBy, Revision, Time, Printed, Pages, Words, Characters, Paragraphs, Lines, FileSize
wdDialogDrawAlign                       :=  634 ; Horizontal, Vertical, RelativeTo
wdDialogDrawSnapToGrid                  :=  633 ; SnapToGrid, XGrid, YGrid, XOrigin, YOrigin, SnapToShapes, XGridDisplay, YGridDisplay, FollowMargins, ViewGridLines, DefineLineBasedOnGrid
wdDialogEditAutoText                    :=  985 ; Name, Context, InsertAs, Insert, Add, Define, InsertAsText, Delete, CompleteAT
wdDialogEditCreatePublisher             :=  732 ; Macintosh-only. For information about this constant, consult the language reference Help included with Microsoft Office Macintosh Edition.
wdDialogEditFind                        :=  112 ; Find, Replace, Direction, MatchCase, WholeWord, PatternMatch, SoundsLike, FindNext, ReplaceOne, ReplaceAll, Format, Wrap, FindAllWordForms, MatchByte, FuzzyFind, Destination, CorrectEnd, MatchKashida, MatchDiacritics, MatchAlefHamza, MatchControl
wdDialogEditFrame                       :=  458 ; Wrap, WidthRule, FixedWidth, HeightRule, FixedHeight, PositionHorz, PositionHorzRel, DistFromText, PositionVert, PositionVertRel, DistVertFromText, MoveWithText, LockAnchor, RemoveFrame
wdDialogEditGoTo                        :=  896 ; Find, Replace, Direction, MatchCase, WholeWord, PatternMatch, SoundsLike, FindNext, ReplaceOne, ReplaceAll, Format, Wrap, FindAllWordForms, MatchByte, FuzzyFind, Destination, CorrectEnd, MatchKashida, MatchDiacritics, MatchAlefHamza, MatchControl
wdDialogEditGoToOld                     :=  811 ; (none)
wdDialogEditLinks                       :=  124 ; UpdateMode, Locked, SavePictureInDoc, UpdateNow, OpenSource, KillLink, Link, Application, Item, FileName, PreserveFormatLinkUpdate
wdDialogEditObject                      :=  125 ; Verb
wdDialogEditPasteSpecial                :=  111 ; IconNumber, Link, DisplayIcon, Class, DataType, IconFileName, Caption, Floating
wdDialogEditPublishOptions              :=  735 ; Macintosh-only. For information about this constant, consult the language reference Help included with Microsoft Office Macintosh Edition.
wdDialogEditReplace                     :=  117 ; Find, Replace, Direction, MatchCase, WholeWord, PatternMatch, SoundsLike, FindNext, ReplaceOne, ReplaceAll, Format, Wrap, FindAllWordForms, MatchByte, FuzzyFind, Destination, CorrectEnd, MatchKashida, MatchDiacritics, MatchAlefHamza, MatchControl
wdDialogEditStyle                       :=  120 ; (none)
wdDialogEditSubscribeOptions            :=  736 ; Macintosh-only. For information about this constant, consult the language reference Help included with Microsoft Office Macintosh Edition.
wdDialogEditSubscribeTo                 :=  733 ; Macintosh-only. For information about this constant, consult the language reference Help included with Microsoft Office Macintosh Edition.
wdDialogEditTOACategory                 :=  625 ; Category, CategoryName
wdDialogEmailOptions                    :=  863 ; (none)
wdDialogFileDocumentLayout              :=  178 ; Tab, PaperSize, TopMargin, BottomMargin, LeftMargin, RightMargin, Gutter, PageWidth, PageHeight, Orientation, FirstPage, OtherPages, VertAlign, ApplyPropsTo, Default, FacingPages, HeaderDistance, FooterDistance, SectionStart, OddAndEvenPages, DifferentFirstPage, Endnotes, LineNum, StartingNum, FromText, CountBy, NumMode, TwoOnOne, GutterPosition, LayoutMode, CharsLine, LinesPage, CharPitch, LinePitch, DocFontName, DocFontSize, PageColumns, TextFlow, FirstPageOnLeft, SectionType, RTLAlignment
wdDialogFileFind                        :=   99 ; SearchName, SearchPath, Name, SubDir, Title, Author, Keywords, Subject, Options, MatchCase, Text, PatternMatch, DateSavedFrom, DateSavedTo, SavedBy, DateCreatedFrom, DateCreatedTo, View, SortBy, ListBy, SelectedFile, Add, Delete, ShowFolders, MatchByte
wdDialogFileMacCustomPageSetupGX        :=  737 ; Macintosh-only. For information about this constant, consult the language reference Help included with Microsoft Office Macintosh Edition.
wdDialogFileMacPageSetup                :=  685 ; Macintosh-only. For information about this constant, consult the language reference Help included with Microsoft Office Macintosh Edition.
wdDialogFileMacPageSetupGX              :=  444 ; Macintosh-only. For information about this constant, consult the language reference Help included with Microsoft Office Macintosh Edition.
wdDialogFileNew                         :=   79 ; Template, NewTemplate, DocumentType, Visible
wdDialogFileOpen                        :=   80 ; Name, ConfirmConversions, ReadOnly, LinkToSource, AddToMru, PasswordDoc, PasswordDot, Revert, WritePasswordDoc, WritePasswordDot, Connection, SQLStatement, SQLStatement1, Format, Encoding, Visible, OpenExclusive, OpenAndRepair, SubType, DocumentDirection, NoEncodingDialog, XMLTransform
wdDialogFilePageSetup                   :=  178 ; Tab, PaperSize, TopMargin, BottomMargin, LeftMargin, RightMargin, Gutter, PageWidth, PageHeight, Orientation, FirstPage, OtherPages, VertAlign, ApplyPropsTo, Default, FacingPages, HeaderDistance, FooterDistance, SectionStart, OddAndEvenPages, DifferentFirstPage, Endnotes, LineNum, StartingNum, FromText, CountBy, NumMode, TwoOnOne, GutterPosition, LayoutMode, CharsLine, LinesPage, CharPitch, LinePitch, DocFontName, DocFontSize, PageColumns, TextFlow, FirstPageOnLeft, SectionType, RTLAlignment, FolioPrint
wdDialogFilePrint                       :=   88 ; Background, AppendPrFile, Range, PrToFileName, From, To, Type, NumCopies, Pages, Order, PrintToFile, Collate, FileName, Printer, OutputPrinter, DuplexPrint, PrintZoomColumn, PrintZoomRow, PrintZoomPaperWidth, PrintZoomPaperHeight, ZoomPaper
wdDialogFilePrintOneCopy                :=  445 ; Macintosh-only. For information about this constant, consult the language reference Help included with Microsoft Office Macintosh Edition.
wdDialogFilePrintSetup                  :=   97 ; Printer, Options, Network, DoNotSetAsSysDefault
wdDialogFileRoutingSlip                 :=  624 ; Subject, Message, AllAtOnce, ReturnWhenDone, TrackStatus, Protect, AddSlip, RouteDocument, AddRecipient, OldRecipient, ResetSlip, ClearSlip, ClearRecipients, Address
wdDialogFileSaveAs                      :=   84 ; Name, Format, LockAnnot, Password, AddToMru, WritePassword, RecommendReadOnly, EmbedFonts, NativePictureFormat, FormsData, SaveAsAOCELetter, WriteVersion, VersionDesc, InsertLineBreaks, AllowSubstitutions, LineEnding, AddBiDiMarks
wdDialogFileSaveVersion                 := 1007 ; (none)
wdDialogFileSummaryInfo                 :=   86 ; Title, Subject, Author, Keywords, Comments, FileName, Directory, Template, CreateDate, LastSavedDate, LastSavedBy, RevisionNumber, EditTime, LastPrintedDate, NumPages, NumWords, NumChars, NumParas, NumLines, Update, FileSize
wdDialogFileVersions                    :=  945 ; AutoVersion, VersionDesc
wdDialogFitText                         :=  983 ; FitTextWidth
wdDialogFontSubstitution                :=  581 ; UnavailableFont, SubstituteFont
wdDialogFormatAddrFonts                 :=  103 ; Points, Underline, Color, StrikeThrough, Superscript, Subscript, Hidden, SmallCaps, AllCaps, Spacing, Position, Kerning, KerningMin, Default, Tab, Font, Bold, Italic, DoubleStrikeThrough, Shadow, Outline, Emboss, Engrave, Scale, Animations, CharAccent, FontMajor, FontLowAnsi, FontHighAnsi, CharacterWidthGrid, ColorRGB, UnderlineColor, PointsBi, ColorBi, FontNameBi, BoldBi, ItalicBi, DiacColor
wdDialogFormatBordersAndShading         :=  189 ; ApplyTo, Shadow, TopBorder, LeftBorder, BottomBorder, RightBorder, HorizBorder, VertBorder, TopColor, LeftColor, BottomColor, RightColor, HorizColor, VertColor, FromText, Shading, Foreground, Background, Tab, FineShading, TopStyle, LeftStyle, BottomStyle, RightStyle, HorizStyle, VertStyle, TopWeight, LeftWeight, BottomWeight, RightWeight, HorizWeight, VertWeight, BorderObjectType, BorderArtWeight, BorderArt, FromTextTop, FromTextBottom, FromTextLeft, FromTextRight, OffsetFrom, InFront, SurroundHeader, SurroundFooter, JoinBorder, LineColor, WhichPages, TL2BRBorder, TR2BLBorder, TL2BRColor, TR2BLColor, TL2BRStyle, TR2BLStyle, TL2BRWeight, TR2BLWeight, ForegroundRGB, BackgroundRGB, TopColorRGB, LeftColorRGB, BottomColorRGB, RightColorRGB, HorizColorRGB, VertColorRGB, TL2BRColorRGB, TR2BLColorRGB, LineColorRGB
wdDialogFormatBulletsAndNumbering       :=  824 ; (none)
wdDialogFormatCallout                   :=  610 ; Type, Gap, Angle, Drop, Length, Border, AutoAttach, Accent
wdDialogFormatChangeCase                :=  322 ; Type
wdDialogFormatColumns                   :=  177 ; Columns, ColumnNo, ColumnWidth, ColumnSpacing, EvenlySpaced, ApplyColsTo, ColLine, StartNewCol, FlowColumnsRtl
wdDialogFormatDefineStyleBorders        :=  185 ; ApplyTo, Shadow, TopBorder, LeftBorder, BottomBorder, RightBorder, HorizBorder, VertBorder, TopColor, LeftColor, BottomColor, RightColor, HorizColor, VertColor, FromText, Shading, Foreground, Background, Tab, FineShading, TopStyle, LeftStyle, BottomStyle, RightStyle, HorizStyle, VertStyle, TopWeight, LeftWeight, BottomWeight, RightWeight, HorizWeight, VertWeight, BorderObjectType, BorderArtWeight, BorderArt, FromTextTop, FromTextBottom, FromTextLeft, FromTextRight, OffsetFrom, InFront, SurroundHeader, SurroundFooter, JoinBorder, LineColor, WhichPages, TL2BRBorder, TR2BLBorder, TL2BRColor, TR2BLColor, TL2BRStyle, TR2BLStyle, TL2BRWeight, TR2BLWeight, ForegroundRGB, BackgroundRGB, TopColorRGB, LeftColorRGB, BottomColorRGB, RightColorRGB, HorizColorRGB, VertColorRGB, TL2BRColorRGB, TR2BLColorRGB, LineColorRGB
wdDialogFormatDefineStyleFont           :=  181 ; Points, Underline, Color, StrikeThrough, Superscript, Subscript, Hidden, SmallCaps, AllCaps, Spacing, Position, Kerning, KerningMin, Default, Tab, Font, Bold, Italic, DoubleStrikeThrough, Shadow, Outline, Emboss, Engrave, Scale, Animations, CharAccent, FontMajor, FontLowAnsi, FontHighAnsi, CharacterWidthGrid, ColorRGB, UnderlineColor, PointsBi, ColorBi, FontNameBi, BoldBi, ItalicBi, DiacColor
wdDialogFormatDefineStyleFrame          :=  184 ; Wrap, WidthRule, FixedWidth, HeightRule, FixedHeight, PositionHorz, PositionHorzRel, DistFromText, PositionVert, PositionVertRel, DistVertFromText, MoveWithText, LockAnchor, RemoveFrame
wdDialogFormatDefineStyleLang           :=  186 ; Language, CheckLanguage, Default, NoProof
wdDialogFormatDefineStylePara           :=  182 ; LeftIndent, RightIndent, Before, After, LineSpacingRule, LineSpacing, Alignment, WidowControl, KeepWithNext, KeepTogether, PageBreak, NoLineNum, DontHyphen, Tab, FirstIndent, OutlineLevel, Kinsoku, WordWrap, OverflowPunct, TopLinePunct, AutoSpaceDE, LineHeightGrid, AutoSpaceDN, CharAlign, CharacterUnitLeftIndent, AdjustRight, CharacterUnitFirstIndent, CharacterUnitRightIndent, LineUnitBefore, LineUnitAfter, NoSpaceBetweenParagraphsOfSameStyle, OrientationBi
wdDialogFormatDefineStyleTabs           :=  183 ; Position, DefTabs, Align, Leader, Set, Clear, ClearAll
wdDialogFormatDrawingObject             :=  960 ; Left, PositionHorzRel, Top, PositionVertRel, LockAnchor, FloatOverText, LayoutInCell, WrapSide, TopDistanceFromText, BottomDistanceFromText, LeftDistanceFromText, RightDistanceFromText, Wrap, WordWrap, AutoSize, HRWidthType, HRHeight, HRNoshade, HRAlign, Text, AllowOverlap, HorizRule
wdDialogFormatDropCap                   :=  488 ; Position, Font, DropHeight, DistFromText
wdDialogFormatEncloseCharacters         := 1162 ; Style, Text, Enclosure
wdDialogFormatFont                      :=  174 ; Points, Underline, Color, StrikeThrough, Superscript, Subscript, Hidden, SmallCaps, AllCaps, Spacing, Position, Kerning, KerningMin, Default, Tab, Font, Bold, Italic, DoubleStrikeThrough, Shadow, Outline, Emboss, Engrave, Scale, Animations, CharAccent, FontMajor, FontLowAnsi, FontHighAnsi, CharacterWidthGrid, ColorRGB, UnderlineColor, PointsBi, ColorBi, FontNameBi, BoldBi, ItalicBi, DiacColor
wdDialogFormatFrame                     :=  190 ; Wrap, WidthRule, FixedWidth, HeightRule, FixedHeight, PositionHorz, PositionHorzRel, DistFromText, PositionVert, PositionVertRel, DistVertFromText, MoveWithText, LockAnchor, RemoveFrame
wdDialogFormatPageNumber                :=  298 ; ChapterNumber, NumRestart, NumFormat, StartingNum, Level, Separator, DoubleQuote, PgNumberingStyle
wdDialogFormatParagraph                 :=  175 ; LeftIndent, RightIndent, Before, After, LineSpacingRule, LineSpacing, Alignment, WidowControl, KeepWithNext, KeepTogether, PageBreak, NoLineNum, DontHyphen, Tab, FirstIndent, OutlineLevel, Kinsoku, WordWrap, OverflowPunct, TopLinePunct, AutoSpaceDE, LineHeightGrid, AutoSpaceDN, CharAlign, CharacterUnitLeftIndent, AdjustRight, CharacterUnitFirstIndent, CharacterUnitRightIndent, LineUnitBefore, LineUnitAfter, NoSpaceBetweenParagraphsOfSameStyle, OrientationBi
wdDialogFormatPicture                   :=  187 ; SetSize, CropLeft, CropRight, CropTop, CropBottom, ScaleX, ScaleY, SizeX, SizeY
wdDialogFormatRetAddrFonts              :=  221 ; Points, Underline, Color, StrikeThrough, Superscript, Subscript, Hidden, SmallCaps, AllCaps, Spacing, Position, Kerning, KerningMin, Default, Tab, Font, Bold, Italic, DoubleStrikeThrough, Shadow, Outline, Emboss, Engrave, Scale, Animations, CharAccent, FontMajor, FontLowAnsi, FontHighAnsi, CharacterWidthGrid, ColorRGB, UnderlineColor, PointsBi, ColorBi, FontNameBi, BoldBi, ItalicBi, DiacColor
wdDialogFormatSectionLayout             :=  176 ; SectionStart, VertAlign, Endnotes, LineNum, StartingNum, FromText, CountBy, NumMode, SectionType
wdDialogFormatStyle                     :=  180 ; Name, Delete, Merge, NewName, BasedOn, NextStyle, Type, FileName, Source, AddToTemplate, Define, Rename, Apply, New, Link
wdDialogFormatStyleGallery              :=  505 ; Template, Preview
wdDialogFormatStylesCustom              := 1248 ; (none)
wdDialogFormatTabs                      :=  179 ; Position, DefTabs, Align, Leader, Set, Clear, ClearAll
wdDialogFormatTheme                     :=  855 ; (none)
wdDialogFormattingRestrictions          := 1427 ; (none)
wdDialogFormFieldHelp                   :=  361 ; (none)
wdDialogFormFieldOptions                :=  353 ; Entry, Exit, Name, Enable, TextType, TextWidth, TextDefault, TextFormat, CheckSize, CheckWidth, CheckDefault, Type, OwnHelp, HelpText, OwnStat, StatText, Calculate
wdDialogFrameSetProperties              := 1074 ; (none)
wdDialogHelpAbout                       :=    9 ; APPNAME, APPCOPYRIGHT, APPUSERNAME, APPORGANIZATION, APPSERIALNUMBER
wdDialogHelpWordPerfectHelp             :=   10 ; WPCommand, HelpText, DemoGuidance
wdDialogHelpWordPerfectHelpOptions      :=  511 ; CommandKeyHelp, DocNavKeys, MouseSimulation, DemoGuidance, DemoSpeed, HelpType
wdDialogHorizontalInVertical            := 1160 ; (none)
wdDialogIMESetDefault                   := 1094 ; (none)
wdDialogInsertAddCaption                :=  402 ; Name
wdDialogInsertAutoCaption               :=  359 ; Clear, ClearAll, Object, Label, Position
wdDialogInsertBookmark                  :=  168 ; Name, SortBy, Add, Delete, Goto, Hidden
wdDialogInsertBreak                     :=  159 ; Type
wdDialogInsertCaption                   :=  357 ; Label, TitleAutoText, Title, Delete, Position, AutoCaption, ExcludeLabel
wdDialogInsertCaptionNumbering          :=  358 ; Label, FormatNumber, ChapterNumber, Level, Separator, CapNumberingStyle
wdDialogInsertCrossReference            :=  367 ; ReferenceType, ReferenceKind, ReferenceItem, InsertAsHyperLink, InsertPosition, SeparateNumbers, SeparatorCharacters
wdDialogInsertDatabase                  :=  341 ; Format, Style, LinkToSource, Connection, SQLStatement, SQLStatement1, PasswordDoc, PasswordDot, DataSource, From, To, IncludeFields, WritePasswordDoc, WritePasswordDot
wdDialogInsertDateTime                  :=  165 ; DateTimePic, InsertAsField, DbCharField, DateLanguage, CalendarType
wdDialogInsertField                     :=  166 ; Field
wdDialogInsertFile                      :=  164 ; Name, Range, ConfirmConversions, Link, Attachment
wdDialogInsertFootnote                  :=  370 ; Reference, NoteType, Symbol, FootNumberAs, EndNumberAs, FootnotesAt, EndnotesAt, FootNumberingStyle, EndNumberingStyle, FootStartingNum, FootRestartNum, EndStartingNum, EndRestartNum, ApplyPropsTo
wdDialogInsertFormField                 :=  483 ; Entry, Exit, Name, Enable, TextType, TextWidth, TextDefault, TextFormat, CheckSize, CheckWidth, CheckDefault, Type, OwnHelp, HelpText, OwnStat, StatText, Calculate
wdDialogInsertHyperlink                 :=  925 ; (none)
wdDialogInsertIndex                     :=  170 ; Outline, Fields, From, To, TableId, AddedStyles, Caption, HeadingSeparator, Replace, MarkEntry, AutoMark, MarkCitation, Type, RightAlignPageNumbers, Passim, KeepFormatting, Columns, Category, Label, ShowPageNumbers, AccentedLetters, Filter, SortBy, Leader, TOCUseHyperlinks, TOCHidePageNumInWeb, IndexLanguage, UseOutlineLevel
wdDialogInsertIndexAndTables            :=  473 ; Outline, Fields, From, To, TableId, AddedStyles, Caption, HeadingSeparator, Replace, MarkEntry, AutoMark, MarkCitation, Type, RightAlignPageNumbers, Passim, KeepFormatting, Columns, Category, Label, ShowPageNumbers, AccentedLetters, Filter, SortBy, Leader, TOCUseHyperlinks, TOCHidePageNumInWeb, IndexLanguage, UseOutlineLevel
wdDialogInsertMergeField                :=  167 ; MergeField, WordField
wdDialogInsertNumber                    :=  812 ; NumPic
wdDialogInsertObject                    :=  172 ; IconNumber, FileName, Link, DisplayIcon, Tab, Class, IconFileName, Caption, Floating
wdDialogInsertPageNumbers               :=  294 ; Type, Position, FirstPage
wdDialogInsertPicture                   :=  163 ; Name, LinkToFile, New, FloatOverText
wdDialogInsertPlaceholder               := 2348 ; (none)
wdDialogInsertSource                    := 2120 ; (none)
wdDialogInsertSubdocument               :=  583 ; Name, ConfirmConversions, ReadOnly, LinkToSource, AddToMru, PasswordDoc, PasswordDot, Revert, WritePasswordDoc, WritePasswordDot, Connection, SQLStatement, SQLStatement1, Format, Encoding, Visible, OpenExclusive, OpenAndRepair, SubType, DocumentDirection, NoEncodingDialog, XMLTransform
wdDialogInsertSymbol                    :=  162 ; Font, Tab, CharNum, CharNumLow, Unicode, Hint
wdDialogInsertTableOfAuthorities        :=  471 ; Outline, Fields, From, To, TableId, AddedStyles, Caption, HeadingSeparator, Replace, MarkEntry, AutoMark, MarkCitation, Type, RightAlignPageNumbers, Passim, KeepFormatting, Columns, Category, Label, ShowPageNumbers, AccentedLetters, Filter, SortBy, Leader, TOCUseHyperlinks, TOCHidePageNumInWeb, IndexLanguage, UseOutlineLevel
wdDialogInsertTableOfContents           :=  171 ; Outline, Fields, From, To, TableId, AddedStyles, Caption, HeadingSeparator, Replace, MarkEntry, AutoMark, MarkCitation, Type, RightAlignPageNumbers, Passim, KeepFormatting, Columns, Category, Label, ShowPageNumbers, AccentedLetters, Filter, SortBy, Leader, TOCUseHyperlinks, TOCHidePageNumInWeb, IndexLanguage, UseOutlineLevel
wdDialogInsertTableOfFigures            :=  472 ; Outline, Fields, From, To, TableId, AddedStyles, Caption, HeadingSeparator, Replace, MarkEntry, AutoMark, MarkCitation, Type, RightAlignPageNumbers, Passim, KeepFormatting, Columns, Category, Label, ShowPageNumbers, AccentedLetters, Filter, SortBy, Leader, TOCUseHyperlinks, TOCHidePageNumInWeb, IndexLanguage, UseOutlineLevel
wdDialogInsertWebComponent              := 1324 ; IconNumber, FileName, Link, DisplayIcon, Tab, Class, IconFileName, Caption, Floating
wdDialogLabelOptions                    := 1367 ; (none)
wdDialogLetterWizard                    :=  821 ; SenderCity, DateFormat, IncludeHeaderFooter, LetterStyle, Letterhead, LetterheadLocation, LetterheadSize, RecipientName, RecipientAddress, Salutation, SalutationType, RecipientGender, RecipientReference, MailingInstructions, AttentionLine, LetterSubject, CCList, SenderName, ReturnAddress, Closing, SenderJobTitle, SenderCompany, SenderInitials, EnclosureNumber, PageDesign, InfoBlock, SenderGender, ReturnAddressSF, RecipientCode, SenderCode, SenderReference
wdDialogListCommands                    :=  723 ; ListType
wdDialogMailMerge                       :=  676 ; CheckErrors, Destination, MergeRecords, From, To, Suppression, MailMerge, QueryOptions, MailSubject, MailAsAttachment, MailAddress
wdDialogMailMergeCheck                  :=  677 ; CheckErrors
wdDialogMailMergeCreateDataSource       :=  642 ; FileName, PasswordDoc, PasswordDot, HeaderRecord, MSQuery, SQLStatement, SQLStatement1, Connection, LinkToSource, WritePasswordDoc
wdDialogMailMergeCreateHeaderSource     :=  643 ; FileName, PasswordDoc, PasswordDot, HeaderRecord, MSQuery, SQLStatement, SQLStatement1, Connection, LinkToSource, WritePasswordDoc
wdDialogMailMergeFieldMapping           := 1304 ; (none)
wdDialogMailMergeFindRecipient          := 1326 ; (none)
wdDialogMailMergeFindRecord             :=  569 ; (none)
wdDialogMailMergeHelper                 :=  680 ; (none)
wdDialogMailMergeInsertAddressBlock     := 1305 ; (none)
wdDialogMailMergeInsertAsk              := 4047 ; (none)
wdDialogMailMergeInsertFields           := 1307 ; (none)
wdDialogMailMergeInsertFillIn           := 4048 ; (none)
wdDialogMailMergeInsertGreetingLine     := 1306 ; (none)
wdDialogMailMergeInsertIf               := 4049 ; (none)
wdDialogMailMergeInsertNextIf           := 4053 ; (none)
wdDialogMailMergeInsertSet              := 4054 ; (none)
wdDialogMailMergeInsertSkipIf           := 4055 ; (none)
wdDialogMailMergeOpenDataSource         :=   81 ; (none)
wdDialogMailMergeOpenHeaderSource       :=   82 ; (none)
wdDialogMailMergeQueryOptions           :=  681 ; (none)
wdDialogMailMergeRecipients             := 1308 ; (none)
wdDialogMailMergeSetDocumentType        := 1339 ; (none)
wdDialogMailMergeUseAddressBook         :=  779 ; (none)
wdDialogMarkCitation                    :=  463 ; (none)
wdDialogMarkIndexEntry                  :=  169 ; (none)
wdDialogMarkTableOfContentsEntry        :=  442 ; (none)
wdDialogMyPermission                    := 1437 ; (none)
wdDialogNewToolbar                      :=  586 ; (none)
wdDialogNoteOptions                     :=  373 ; (none)
wdDialogOMathRecognizedFunctions        := 2165 ; (none)
wdDialogOrganizer                       :=  222 ; (none)
wdDialogPermission                      := 1469 ; (none)
wdDialogPhoneticGuide                   :=  986 ; (none)
wdDialogReviewAfmtRevisions             :=  570 ; (none)
wdDialogSchemaLibrary                   := 1417 ; (none)
wdDialogSearch                          := 1363 ; (none)
wdDialogShowRepairs                     := 1381 ; (none)
wdDialogSourceManager                   := 1920 ; (none)
wdDialogStyleManagement                 := 1948 ; (none)
wdDialogTableAutoFormat                 :=  563 ; (none)
wdDialogTableCellOptions                := 1081 ; (none)
wdDialogTableColumnWidth                :=  143 ; (none)
wdDialogTableDeleteCells                :=  133 ; (none)
wdDialogTableFormatCell                 :=  612 ; (none)
wdDialogTableFormula                    :=  348 ; (none)
wdDialogTableInsertCells                :=  130 ; (none)
wdDialogTableInsertRow                  :=  131 ; (none)
wdDialogTableInsertTable                :=  129 ; (none)
wdDialogTableOfCaptionsOptions          :=  551 ; (none)
wdDialogTableOfContentsOptions          :=  470 ; (none)
wdDialogTableProperties                 :=  861 ; (none)
wdDialogTableRowHeight                  :=  142 ; (none)
wdDialogTableSort                       :=  199 ; (none)
wdDialogTableSplitCells                 :=  137 ; (none)
wdDialogTableTableOptions               := 1080 ; (none)
wdDialogTableToText                     :=  128 ; (none)
wdDialogTableWrapping                   :=  854 ; (none)
wdDialogTCSCTranslator                  := 1156 ; (none)
wdDialogTextToTable                     :=  127 ; (none)
wdDialogToolsAcceptRejectChanges        :=  506 ; (none)
wdDialogToolsAdvancedSettings           :=  206 ; (none)
wdDialogToolsAutoCorrect                :=  378 ; (none)
wdDialogToolsAutoCorrectExceptions      :=  762 ; (none)
wdDialogToolsAutoManager                :=  915 ; (none)
wdDialogToolsAutoSummarize              :=  874 ; (none)
wdDialogToolsBulletsNumbers             :=  196 ; (none)
wdDialogToolsCompareDocuments           :=  198 ; (none)
wdDialogToolsCreateDirectory            :=  833 ; (none)
wdDialogToolsCreateEnvelope             :=  173 ; (none)
wdDialogToolsCreateLabels               :=  489 ; (none)
wdDialogToolsCustomize                  :=  152 ; (none)
wdDialogToolsCustomizeKeyboard          :=  432 ; (none)
wdDialogToolsCustomizeMenuBar           :=  615 ; (none)
wdDialogToolsCustomizeMenus             :=  433 ; (none)
wdDialogToolsDictionary                 :=  989 ; (none)
wdDialogToolsEnvelopesAndLabels         :=  607 ; (none)
wdDialogToolsGrammarSettings            :=  885 ; (none)
wdDialogToolsHangulHanjaConversion      :=  784 ; (none)
wdDialogToolsHighlightChanges           :=  197 ; (none)
wdDialogToolsHyphenation                :=  195 ; (none)
wdDialogToolsLanguage                   :=  188 ; (none)
wdDialogToolsMacro                      :=  215 ; (none)
wdDialogToolsMacroRecord                :=  214 ; (none)
wdDialogToolsManageFields               :=  631 ; (none)
wdDialogToolsMergeDocuments             :=  435 ; (none)
wdDialogToolsOptions                    :=  974 ; (none)
wdDialogToolsOptionsAutoFormat          :=  959 ; (none)
wdDialogToolsOptionsAutoFormatAsYouType :=  778 ; (none)
wdDialogToolsOptionsBidi                := 1029 ; (none)
wdDialogToolsOptionsCompatibility       :=  525 ; (none)
wdDialogToolsOptionsEdit                :=  224 ; (none)
wdDialogToolsOptionsEditCopyPaste       := 1356 ; (none)
wdDialogToolsOptionsFileLocations       :=  225 ; (none)
wdDialogToolsOptionsFuzzy               :=  790 ; (none)
wdDialogToolsOptionsGeneral             :=  203 ; (none)
wdDialogToolsOptionsPrint               :=  208 ; (none)
wdDialogToolsOptionsSave                :=  209 ; (none)
wdDialogToolsOptionsSecurity            := 1361 ; (none)
wdDialogToolsOptionsSmartTag            := 1395 ; (none)
wdDialogToolsOptionsSpellingAndGrammar  :=  211 ; (none)
wdDialogToolsOptionsTrackChanges        :=  386 ; (none)
wdDialogToolsOptionsTypography          :=  739 ; (none)
wdDialogToolsOptionsUserInfo            :=  213 ; (none)
wdDialogToolsOptionsView                :=  204 ; (none)
wdDialogToolsProtectDocument            :=  503 ; (none)
wdDialogToolsProtectSection             :=  578 ; (none)
wdDialogToolsRevisions                  :=  197 ; (none)
wdDialogToolsSpellingAndGrammar         :=  828 ; (none)
wdDialogToolsTemplates                  :=   87 ; (none)
wdDialogToolsThesaurus                  :=  194 ; (none)
wdDialogToolsUnprotectDocument          :=  521 ; (none)
wdDialogToolsWordCount                  :=  228 ; (none)
wdDialogTwoLinesInOne                   := 1161 ; (none)
wdDialogUpdateTOC                       :=  331 ; (none)
wdDialogViewZoom                        :=  577 ; (none)
wdDialogWebOptions                      :=  898 ; (none)
wdDialogWindowActivate                  :=  220 ; (none)
wdDialogXMLElementAttributes            := 1460 ; (none)
wdDialogXMLOptions                      := 1425 ; (none)

DialogInsertCrossReference := Word.Dialogs(wdDialogInsertCrossReference)

wdRefTypeNumberedItem     :=  0 ; Numbered item.
wdRefTypeHeading          :=  1 ; Heading.
wdRefTypeBookmark         :=  2 ; Bookmark.
wdRefTypeFootnote         :=  3 ; Footnote.
wdRefTypeEndnote          :=  4 ; Endnote.

wdContentText             :=  1 ; Insert text value of the specified item. For example, insert text of the specified heading.
wdEndnoteNumber           :=  6 ; Insert endnote reference mark.
wdEndnoteNumberFormatted  := 17 ; Insert formatted endnote reference mark.
wdEntireCaption           :=  2 ; Insert label, number, and any additional caption of specified equation, figure, or table.
wdFootnoteNumber          :=  5 ; Insert footnote reference mark.
wdFootnoteNumberFormatted := 16 ; Insert formatted footnote reference mark.
wdNumberFullContext       :=  4 ; Insert complete heading or paragraph number.
wdNumberNoContext         :=  3 ; Insert heading or paragraph without its relative position in the outline numbered list.
wdNumberRelativeContext   :=  2 ; Insert heading or paragraph with as much of its relative position in the outline numbered list as necessary to identify the item.
wdOnlyCaptionText         :=  4 ; Insert only the caption text of the specified equation, figure, or table.
wdOnlyLabelAndNumber      :=  3 ; Insert only the label and number of the specified equation, figure, or table.
wdPageNumber              :=  7 ; Insert page number of specified item.
wdPosition                := 15 ; Insert the word "Above" or the word "Below" as appropriate.

DialogInsertCrossReference.ReferenceType     := wdRefTypeNumberedItem ; The type of item for which a cross-reference is to be inserted. Can be any WdReferenceType or WdCaptionLabelID constant or a user defined caption label.
DialogInsertCrossReference.ReferenceKind     := wdPageNumber ; The information to be included in the cross-reference.
DialogInsertCrossReference.InsertAsHyperlink := true ; True to insert the cross-reference as a hyperlink to the referenced item.
DialogInsertCrossReference.SeparateNumbers   := false ; True to use a separator to separate the numbers from the associated text. (Use only if the ReferenceType parameter is set to wdRefTypeNumberedItem and the ReferenceKind parameter is set to wdNumberFullContext.)
DialogInsertCrossReference.Show()
@swagfag WOW!
I just tested your code. It shows the dialog / window, but the ReferenceType, ReferenceKind etc. settings appear to have no effect. If I change e.g. the ReferenceType to

Code: Select all

DialogInsertCrossReference.ReferenceType     := wdRefTypeHeading
, the window still selects "Numbered item". Am I missing something?
Trisolaris
Posts: 79
Joined: 10 Mar 2019, 10:28

Re: Word VBA to AHK translation needed

29 Sep 2021, 04:51

AHK_user wrote:
28 Sep 2021, 23:24
I have made a script that tries to translate vba to ahk. It should know the constants and should work with excel and word. So try it out.

viewtopic.php?f=6&t=83370
Thanks, @AHK_user, I have to try that out soon!

Return to “Ask for Help (v1)”

Who is online

Users browsing this forum: Holarctic, mapcarter, robnicholson, Rohwedder and 334 guests