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