Visual Basic Equivalents T

Microsoft Word Visual Basic

Visual Basic Equivalents T

ABCDEFGHIJKLMNOPRSTUVWY

T
TabLeader$(pos) aType = Selection.Paragraphs(num).TabStops(pos).Leader
TableAutoFormat ActiveDocument.Tables(1).AutoFormat
TableAutoSum ActiveDocument.Tables(1).Cell(row, column).AutoSum
TableColumnWidth ColumnWidth, RulerStyle

TableColumnWidth AutoFit

TableColumnWidth NextColumn

TableColumnWidth PrevColumn

TableColumnWidth SpaceBetweenCols

ActiveDocument.Tables(1).Columns.SetWidth ColumnWidth:=num, Rulerstyle:=wdRulerStyle

ActiveDocument.Tables(1).Columns.AutoFit

Selection.Columns(1).Next.Select

Selection.Columns(1).Previous.Select

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

TableDeleteCells ShiftCells ActiveDocument.Tables(1).Cell(row, column).Delete ShiftCells:=WdDeleteCells
TableDeleteColumn ActiveDocument.Tables(1).Columns(num).Delete

' or

ActiveDocument.Tables(1).Columns.Delete

TableDeleteRow ActiveDocument.Tables(1).Rows(num).Delete

' or

ActiveDocument.Tables(1).Rows.Delete

TableFormula ActiveDocument.Tables(1).Cell(row, column).Formula
TableGridlines, TableGridlines() ActiveWindow.View.TableGridlines = True

x = ActiveWindow.View.TableGridlines

TableHeadings, TableHeadings() Selection.Tables(1).Rows(num).HeadingFormat = True

' or

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

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

TableInsertCells Selection.Tables(1).Columns(num).Cells.Add
TableInsertColumn Selection.Tables(1).Columns.Add
TableInsertRow Selection.Tables(1).Rows.Add
TableInsertTable NumColumns, NumRows

TableInsertTable NumColumns, NumRows, Format, Apply

TableInsertTable NumColumns, NumRows, ConvertFrom

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

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

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

TableMergeCells Selection.Cells.Merge
TableRowHeight RulerStyle, LineSpacingRule, LineSpacing, LeftIndent, Alignment, AllowRowSplit

TableRowHeight NextColumn

TableRowHeight PrevColumn

With ActiveDocument.Tables(num).Rows(num)

.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

TableSelectColumn Selection.Tables(1).Columns(num).Select
TableSelectRow Selection.Tables(1).Rows(num).Select
TableSelectTable ActiveDocument.Tables(1).Select
TableSort ActiveDocument.Tables(1).Sort
TableSortAToZ ActiveDocument.Tables(1).SortAscending
TableSortZToA ActiveDocument.Tables(1).SortDescending
TableSplit Selection.Tables(1).Split
TableSplitCells Selection.Tables(1).Cells(row, column).Split
TableToText Selection.Tables(1).ConvertToText
TableUpdateAutoFormat Selection.Tables(1).UpdateAutoFormat
TabType() x = Selection.ParagraphFormat.TabStops(1).Alignment
Text Label control
TextBox TextBox control
TextFormField ActiveDocument.FormFields.Add Range:=range, Type:=wdFieldFormTextInput
TextToTable] Selection.ConvertToTable
Time$() Time()

' or

Time$()

TimeSerial() TimeSerial
TimeValue() TimeValue
TipWizard No direct equivalent

' displays a special tip when Word is launched

Assistant.FeatureTips = True

Today() Dim x As Long

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

ToggleFieldDisplay Selection.Fields.ToggleShowCodes
ToggleFull ActiveWindow.View.FullScreen = Not ActiveWindow.View.FullScreen
ToggleHeaderFooterLink ActiveDocument.Sections(2).Headers(wdHeaderFooterPrimary).LinkToPrevious
ToggleMainTextLayer ActiveWindow.View.ShowMainTextLayer = Not ActiveWindow.View.ShowMainTextLayer
TogglePortrait ActiveDocument.PageSetup.TogglePortrait
ToggleScribbleMode WordBasic.ToggleScribbleMode
ToolbarButtonMacro$() x = CommandBars(name).Controls(1).OnAction
name = ToolbarName$() name = CommandBars(num).Name
ToolbarState(name) CommandBars(name).Visible = True
ToolsAddRecordDefault WordBasic.ToolsAddRecordDefault

' 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

ToolsAdvancedSettings Not available with any 32-bit version of Windows or later.
ToolsAutoCorrect InitialCaps, SentenceCaps, Days, CapsLock, ReplaceText

ToolsAutoCorrect SmartQuotes

ToolsAutoCorrect Formatting, Replace, With, Add

ToolsAutoCorrect Formatting, Replace, With, Add

ToolsAutoCorrect .Replace = text, .Delete

With AutoCorrect

.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

ToolsAutoCorrectCapsLockOff, ToolsAutoCorrectCapsLockOff() AutoCorrect.CorrectCapsLock = True
ToolsAutoCorrectDays, ToolsAutoCorrectDays() AutoCorrect.CorrectDays = True
ToolsAutoCorrectExceptions Tab = 0, Name, Add

ToolsAutoCorrectExceptions Tab = 1, Name, Add

ToolsAutoCorrectExceptions Tab = 0, AutoAdd

ToolsAutoCorrectExceptions Tab = 1, AutoAdd

ToolsAutoCorrectExceptions Tab = 0, Name, .Delete

ToolsAutoCorrectExceptions Tab = 1, Name, Delete

FirstLetterExceptions.Add name

TwoInitialCapsExceptions.Add name

AutoCorrect.FirstLetterAutoAdd = True

AutoCorrect.TwoInitialCapsAutoAdd = True

FirstLetterExceptions(name).Delete

TwoInitialCapsExceptions(name).Delete

ToolsAutoCorrectInitialCaps, ToolsAutoCorrectInitialCaps() AutoCorrect.CorrectInitialCaps = True
ToolsAutoCorrectReplaceText, ToolsAutoCorrectReplaceText() AutoCorrect.ReplaceText = True
ToolsAutoCorrectSentenceCaps, ToolsAutoCorrectSentenceCaps() AutoCorrect.CorrectSentenceCaps = True
ToolsAutoCorrectSmartQuotes, ToolsAutoCorrectSmartQuotes() Options.AutoFormatAsYouTypeReplaceQuotes = True
ToolsBulletListDefault Selection.Range.ListFormat.ApplyBulletDefault
ToolsBulletsNumbers Replace, Font, CharNum, Type, FormatOutline, AutoUpdate, FormatNumber, Punctuation, StartAt, Points, Hang, Indent, Remove With ListGalleries (wdNumberGallery).ListTemplates (1).ListLevels (1)

.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)

ToolsCalculate, ToolsCalculate() Selection.Range.Calculate
ToolsCompareVersions ActiveDocument.Compare
ToolsCreateEnvelope PrintEnvLabel

ToolsCreateEnvelope AddToDocument

ActiveDocument.Envelope.Insert

ActiveDocument.Envelope.PrintOut

ToolsCreateLabels PrintEnvLabel

ToolsCreateLabels AddToDocument

Application.MailingLabel.PrintOut

Application.MailingLabel.CreateNewDocument

ToolsCustomize Tab With Dialogs(WdWordDialog)

.DefaultTab = WdWordDialogTab

.Show

End With

ToolsCustomizeKeyboard KeyCode, KeyCode2, Category, Name, Add, Remove, ResetAll, CommandValue, Context CustomizationContext = template or document

KeyBindings.Add

CustomizationContext = template or document

FindKey(BuildKeyCode(Wdkey, Wdkey)).Disable

CustomizationContext = template or document

KeyBindings.ClearAll

ToolsCustomizeMenuBar Context, Position, MenuType, MenuText, Menu, Add, Remove, Rename CustomizationContext = template or document

CommandBars(name).Delete

CommandBars.Add

CommandBars(name).Name = text

ToolsCustomizeMenus MenuType, Position, Category, Name, Menu, AddBelow, MenuText, Rename, Add, Remove, ResetAll, CommandValue, Context CustomizationContext = template or document

CommandBars(name).Controls(num).Delete

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

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

ToolsGetSpelling, ToolsGetSpelling() GetSpellingSuggestions
ToolsGetSynonyms, ToolsGetSynonyms() SynonymInfo
ToolsGrammar ActiveDocument.CheckGrammar
ToolsGrammarStatisticsArray ' enumerate the ReadabilityStatistics collection

i = 1

For Each aStat In ActiveDocument.ReadabilityStatistics

aArray(i) = aStat.Value

i = i + 1

Next aStat

ToolsHyphenation AutoHyphenation, HyphenateCaps, HyphenationZone, LimitConsecutiveHyphens With ActiveDocument

.AutoHyphenation = True

.HyphenateCaps = True

.HyphenationZone = num

.ConsecutiveHyphensLimit = num

End With

ToolsHyphenationManual ActiveDocument.ManualHyphenation
ToolsLanguage Language, Default Selection.Range.LanguageID = WdLanguageID

ActiveDocument.Styles(wdStyleNormal).LanguageID = WdLanguageID

ToolsMacro Name, Run, Edit, Show, Delete, Rename, Description, NewName, SetDesc Application.Run

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

ToolsManageFields Application.Run MacroName:="ToolsManageFields"
ToolsMergeRevisions ActiveDocument.Merge FileName:=name
ToolsNumberListDefault Selection.Range.ListFormat.ApplyNumberDefault
ToolsOptions Dialogs(WdWordDialog).Show
ToolsOptionsAutoFormat PreserveStyles, ApplyStylesHeadings, ApplyStylesLists, ApplyStylesOtherParas, ReplaceQuotes, ReplaceSymbols, ApplyBulletedLists, ReplaceOrdinals, ReplaceFractions, ShowOptionsFor

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

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

With Options

.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

ToolsOptionsCompatibility ActiveDocument.Compatibility Type:=WdCompatibility
ToolsOptionsEdit ReplaceSelection, DragAndDrop, AutoWordSelection, InsForPaste, Overtype, SmartCutPaste, AllowAccentedUppercase, PictureEditor, TabIndent With Options

.ReplaceSelection = True

.AllowDragAndDrop = True

.AutoWordSelection = True

.INSKeyForPaste = True

.Overtype = True

.SmartCutPaste = True

.AllowAccentedUppercase = True

.PictureEditor = text

.TabIndentKey = True

End With

ToolsOptionsFileLocations Options.DefaultFilePath (WdDefaultFilePath) = text
ToolsOptionsGeneral Pagination, WPHelp, WPDocNavKeys, BlueScreen, ErrorBeeps, UpdateLinks, SendMailAttach, Units, ButtonFieldClicks, ShortMenuNames, RTFInClipboard, ConfirmConversions, TipWizardActive, RecentFiles, RecentFileCount With Options

.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

ToolsOptionsGrammar Options, CheckSpelling, ShowStatistics With Options

.CheckGrammarWithSpelling = True

.ShowReadabilityStatistics = True

End With

ActiveDocument.ActiveWritingStyle (language) = text

ToolsOptionsPrint Draft, Reverse, UpdateFields, Summary, ShowCodes, Annotations, ShowHidden, EnvFeederInstalled, UpdateLinks, Background, DrawingObjects, DefaultTray, FormsData, FractionalWidths, PSOverText With Options

.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

ToolsOptionsRevisions InsertedTextMark, DeletedTextMark, RevisedLinesMark, InsertedTextColor, DeletedTextColor, RevisedLinesColor, HighlightColor With Options

.InsertedTextMark = WdInsertedTextMark

.DeletedTextMark = WdDeletedTextMark

.RevisedLinesMark = WdRevisedLinesMark

.InsertedTextColor = WdColorIndex

.DeletedTextColor = WdColorIndex

.RevisedLinesColor = WdColorIndex

.DefaultHighlightColorIndex = WdColorIndex

End With

ToolsOptionsSave CreateBackup, FastSaves, SummaryPrompt, GlobalDotPrompt, NativePictureFormat, AutoSave, SaveInterval

ToolsOptionsSave FormsData, Password, WritePassword, RecommendReadOnly, EmbedFonts

With Options

.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

ToolsOptionsSpelling AlwaysSuggest, SuggestFromMainDictOnly, IgnoreAllCaps, IgnoreMixedDigits, ResetIgnoreAll, Type, CustomDictn, AutomaticSpellChecking, HideSpellingErrors, RecheckDocument With Options

.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

ToolsOptionsUserInfo Name, Initials, Address With Application

.UserName = text

.UserInitials = text

.UserAddress = text

End With

ToolsOptionsView DraftFont, WrapToWindow, PicturePlaceHolders, FieldCodes, BookMarks, FieldShading, Hscroll, Vscroll, StyleAreaWidth, Tabs, Spaces, Paras, Hyphens, Hidden, ShowAll, Drawings, Anchors, TextBoundaries, Vruler, Highlight

ToolsOptionsView StatusBar

With ActiveWindow.View

.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

ToolsProtectDocument ActiveDocument.Protect
ToolsProtectSection Protect, Section ActiveDocument.Sections(num).ProtectedForForms = True
ToolsRemoveRecordDefault WordBasic.ToolsRemoveRecordDefault

' or if the data source is a Word table

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

ToolsRepaginate ActiveDocument.Repaginate
ToolsReviewRevisions ShowMarks, HideMarks, Wrap, FindPrevious, FindNext, AcceptRevisions, RejectRevisions ActiveDocument.ShowRevisions = True

Selection.NextRevision

Selection.PreviousRevision

Selection.Range.Revisions.AcceptAll

Selection.Range.Revisions.RejectAll

ToolsRevisionAuthor$() anAuthor = Selection.Range.Revisions(1).Author
ToolsRevisionDate$() aDate = ActiveDocument.Revisions(1).Date
ToolsRevisions MarkRevisions, ViewRevisions, PrintRevisions, AcceptAll, RejectAll With ActiveDocument

.TrackRevisions = True

.PrintRevisions = True

.ShowRevisions = True

End With

With Selection.Range.Revisions

.AcceptAll

.RejectAll

End With

ToolsRevisionType() aType = ActiveDocument.Revisions(1).Type
ToolsShrinkToFit ActiveDocument.FitToPages
ToolsSpelling ActiveDocument.CheckSpelling
ToolsSpellingRecheckDocument ActiveDocument.SpellingChecked = False
ToolsSpellSelection Selection.Range.CheckSpelling
ToolsThesaurus Selection.Range.CheckSynonyms
ToolsUnprotectDocument ActiveDocument.UnProtect (Password:=text)
ToolsWordCount CountFootnotes, Pages, Words, Characters, Paragraphs, Lines ActiveDocument.ComputeStatistics Statistic:=WdStatistic, IncludeFootnotesAndEndnotes:=True