Visual Basic Equivalents T

TableColumnWidth AutoFit

TableColumnWidth NextColumn

TableColumnWidth PrevColumn

TableColumnWidth SpaceBetweenCols

ActiveDocument.Tables(1).Columns.AutoFit

Selection.Columns(1).Next.Select

Selection.Columns(1).Previous.Select

ActiveDocument.Tables(1).Rows.SpaceBetweenColumns = num

' or

ActiveDocument.Tables(1).Columns.Delete

' or

ActiveDocument.Tables(1).Rows.Delete

x = ActiveWindow.View.TableGridlines

' or

Selection.Tables(1).Rows.HeadingFormat = True

x = Selection.Tables(1).Rows.HeadingFormat

TableInsertTable NumColumns, NumRows, Format, Apply

TableInsertTable NumColumns, NumRows, ConvertFrom

ActiveDocument.Tables.Add(Range:=range, NumRows:=num, NumColumns:=num).AutoFormat

Selection.ConvertToTable Separator:=WdTableFieldSeparator, NumRows:=num, NumColumns:=num

TableRowHeight NextColumn

TableRowHeight PrevColumn

    .SetHeight RowHeight:= num, HeightRule:=WdRowHeightRule

    .Alignment = WdRowAlignment

    .SetLeftIndent LeftIndent:=num, RulerStyle:=WdRulerStyle

    .AllowBreakAcrossPages = True

End With

Selection.Rows(1).Next.Select

Selection.Rows(1).Previous.Select

' or

Time$()

' displays a special tip when Word is launched

Assistant.FeatureTips = True

x = DateSerial(Year(Date), Month(Date), Day(Date))

' or if the data source is a Word table

Selection.Tables(1).Cell(Row:=Selection.Information(wdMaximumNumberOfRows), _

    Column:=Selection.Information(wdMaximumNumberOfColumns)).Select

Selection.MoveRight Unit:=wdCell

ToolsAutoCorrect SmartQuotes

ToolsAutoCorrect Formatting, Replace, With, Add

ToolsAutoCorrect Formatting, Replace, With, Add

ToolsAutoCorrect .Replace = text, .Delete

    .CorrectInitialCaps = True

    .CorrectSentenceCaps = True

    .CorrectDays = True

    .CorrectCapsLock = True

    .ReplaceText = True

End with

Options.AutoFormatAsYouTypeReplaceQuotes = True

AutoCorrectEntries.AddRichText Name:= text, Range:=range

AutoCorrectEntries.Add Name:= text, Value:= text

AutoCorrectEntries(name).Delete

ToolsAutoCorrectExceptions Tab = 1, Name, Add

ToolsAutoCorrectExceptions Tab = 0, AutoAdd

ToolsAutoCorrectExceptions Tab = 1, AutoAdd

ToolsAutoCorrectExceptions Tab = 0, Name, .Delete

ToolsAutoCorrectExceptions Tab = 1, Name, Delete

TwoInitialCapsExceptions.Add name

AutoCorrect.FirstLetterAutoAdd = True

AutoCorrect.TwoInitialCapsAutoAdd = True

FirstLetterExceptions(name).Delete

TwoInitialCapsExceptions(name).Delete

    .NumberFormat = "%1."

    .TrailingCharacter = WdTrailingCharacter

    .NumberStyle = WdListNumberStyle

    .Alignment = WdListLevelAlignment

    .TextPosition = InchesToPoints(num)

    .TabPosition = InchesToPoints(num)

    .ResetOnHigher = True

    .StartAt = num

    .Font.Size = num

End With

Selection.Range.ListFormat.ApplyListTemplate _

        ListTemplate:=ListGalleries(wdNumberGallery).ListTemplates(1)

ToolsCreateEnvelope AddToDocument

ActiveDocument.Envelope.PrintOut

ToolsCreateLabels AddToDocument

Application.MailingLabel.CreateNewDocument

    .DefaultTab = WdWordDialogTab

    .Show

End With

KeyBindings.Add

CustomizationContext = template or document

FindKey(BuildKeyCode(Wdkey, Wdkey)).Disable

CustomizationContext = template or document

KeyBindings.ClearAll

CommandBars(name).Delete

CommandBars.Add

CommandBars(name).Name = text

CommandBars(name).Controls(num).Delete

CommandBars(name).Controls.Add Type:=msoControlButton, ID:=num, Before:=num

CommandBars(name).Controls(num).Caption = text

i = 1

For Each aStat In ActiveDocument.ReadabilityStatistics

    aArray(i) = aStat.Value

    i = i + 1

Next aStat

    .AutoHyphenation = True

    .HyphenateCaps = True

    .HyphenationZone = num

    .ConsecutiveHyphensLimit = num

End With

ActiveDocument.Styles(wdStyleNormal).LanguageID = WdLanguageID

Application.OrganizerDelete

Application.OrganizerRename

With Dialogs(wdDialogToolsMacro)

    .Show = "templateName"

    .Name = "macroName"

    .Edit = True

    .Execute

End With

With Dialogs(wdDialogToolsMacro)

    .Show = "templateName"

    .Name = "macroName"

    .Description = "newDescription"

    .SetDesc = True

    .Execute

End With

ToolsOptionsAutoFormat ApplyBorders, ApplyBulletedLists, ApplyStylesHeadings, ApplyNumberedLists, ReplaceFractions, ReplaceOrdinals, ReplaceQuotes, ReplaceSymbols, ShowOptionFor

There is no Visual Basic equivalent for the following arguments: AdjustParaMarks, AdjustTabsSpaces, ReplaceBullets, AdjustEmptyParas.

    .AutoFormatPreserveStyles = True

    .AutoFormatApplyHeadings = True

    .AutoFormatApplyLists = True

    .AutoFormatApplyOtherParas = True

    .AutoFormatReplaceQuotes = True

    .AutoFormatReplaceSymbols = True

    .AutoFormatApplyBulletedLists = True

    .AutoFormatReplaceOrdinals = True

    .AutoFormatReplaceFractions = True

End With

With Options

    .AutoFormatAsYouTypeApplyBorders = True

    .AutoFormatAsYouTypeApplyBulletedLists = True

    .AutoFormatAsYouTypeApplyHeadings = True

    .AutoFormatAsYouTypeApplyNumberedLists = True

    .AutoFormatAsYouTypeReplaceFractions = True

    .AutoFormatAsYouTypeReplaceOrdinals = True

    .AutoFormatAsYouTypeReplaceQuotes = True

    .AutoFormatAsYouTypeReplaceSymbols = True

End With

    .ReplaceSelection = True

    .AllowDragAndDrop = True

    .AutoWordSelection = True

    .INSKeyForPaste = True

    .Overtype = True

    .SmartCutPaste = True

    .AllowAccentedUppercase = True

    .PictureEditor = text

    .TabIndentKey = True

End With

    .Pagination = True

    .WPHelp = True

    .WPDocNavKeys = True

    .BlueScreen = True

    .EnableSound = True

    .UpdateLinksAtOpen = True

    .SendMailAttach = True

    .MeasurementUnit = WdUnits

    .ButtonFieldClicks = num

    .ShortMenuNames = True

    .RTFInClipboard = True

    .ConfirmConversions = True

End With

Assistant.ActivateWizard

With Application

    .DisplayRecentFiles = True

    .RecentFiles.Maximum = num

End With

    .CheckGrammarWithSpelling = True

    .ShowReadabilityStatistics = True

End With

ActiveDocument.ActiveWritingStyle(language) = text

    .PrintDraft = True

    .PrintReverse = True

    .UpdateFieldsAtPrint = True

    .PrintProperties = True

    .PrintFieldCodes = True

    .PrintComments = True

    .PrintHiddenText = True

    .EnvelopeFeederInstalled = True

    .UpdateLinksAtPrint = True

    .PrintBackground = True

    .PrintDrawingObjects = True

    .DefaultTray = text

    .DefaultTrayID = WdPaperTray

End With

With ActiveDocument

    .PrintFormsData = True

    .PrintFractionalWidths = True

    .PrintPostScriptOverText = True

End With

    .InsertedTextMark = WdInsertedTextMark

    .DeletedTextMark = WdDeletedTextMark

    .RevisedLinesMark = WdRevisedLinesMark

    .InsertedTextColor = WdColorIndex

    .DeletedTextColor = WdColorIndex

    .RevisedLinesColor = WdColorIndex

    .DefaultHighlightColorIndex = WdColorIndex

End With

ToolsOptionsSave FormsData, Password, WritePassword, RecommendReadOnly, EmbedFonts

    .CreateBackup = True

    .AllowFastSave = True

    .SavePropertiesPrompt = True

    .SaveNormalPrompt = True

    .BackgroundSave = True

    .SaveInterval = number

End With

With ActiveDocument

    .SaveFormsData = True

    .Password = text

    .WritePassword = text

    .ReadOnlyRecommended = True

    .EmbedTrueTypeFonts = True

End With

    .SuggestSpellingCorrections = True

    .SuggestFromMainDictionaryOnly = True

    .IgnoreUppercase = True

    .IgnoreMixedDigits = True

    .CheckSpellingAsYouType = True

End With

With ActiveDocument

    .SpellingChecked = False

    .ShowSpellingErrors = True

End With

Application.ResetIgnoreAll

Languages(wdLanguageID).SpellingDictionaryType = wdDictionaryType

CustomDictionaries.Add

    .UserName = text

    .UserInitials = text

    .UserAddress = text

End With

ToolsOptionsView StatusBar

    .Draft = True

    .WrapToWindow = True

    .ShowPicturePlaceHolders = True

    .ShowFieldCodes = True

    .ShowBookmarks = True

    .FieldShading = WdFieldShading

    .Parent.DisplayHorizontalScrollBar = True

    .Parent.DisplayVerticalScrollBar = True

    .Parent.StyleAreaWidth = num

    .ShowTabs = True

    .ShowSpaces = True

    .ShowParagraphs = True

    .ShowHyphens = True

    .ShowHiddenText = True

    .ShowAll = True

    .ShowDrawings = True

    .ShowObjectAnchors = True

    .ShowTextBoundaries = True

    .Parent.DisplayVerticalRuler = True

    .ShowHighlight = True

End With

Application.DisplayStatusBar = True

' or if the data source is a Word table

Selection.Tables(1).Rows(1).Delete

Selection.NextRevision

Selection.PreviousRevision

Selection.Range.Revisions.AcceptAll

Selection.Range.Revisions.RejectAll

    .TrackRevisions = True

    .PrintRevisions = True

    .ShowRevisions = True

End With

With Selection.Range.Revisions

    .AcceptAll

    .RejectAll

End With