Visual Basic Equivalents I

Microsoft Word Visual Basic

Visual Basic Equivalents I

ABCDEFGHIJKLMNOPRSTUVWY

I
If...Then...Else If...Then...Else
Indent ActiveDocument.Paragraphs(1).TabIndent
Input Input
Input$() Input()
InputBox$() InputBox
Insert Selection.InsertAfter Text:=text

' or

Selection.TypeText Text:=text

InsertAddCaption CaptionLabels.Add
InsertAddress Application.GetAddress
InsertAnnotation ActiveDocument.Comments.Add
InsertAutoCaption Clear, ClearAll, Label, Position With AutoCaptions(name)

.AutoInsert = True

.CaptionLabel.Name = text

.CaptionLabel.Position = WdCaptionPosition

End With

AutoCaptions.CancelAutoInsert

InsertAutoText Selection.Range.InsertAutoText
InsertBreak Selection.InsertBreak Type:=WdBreakType
InsertCaption Selection.InsertCaption
InsertCaptionNumbering Label, FormatNumber, ChapterNumber, Level, Separator With CaptionLabels(name)

.ChapterStyleLevel = num

.Separator = WdSeparatorType

.NumberStyle = WdCaptionNumberStyle

.IncludeChapterNumber = True

End With

InsertChart ActiveDocument.Shapes.AddOLEObject
InsertColumnBreak Selection.InsertBreak Type:=wdColumnBreak
InsertCrossReference Selection.InsertCrossReference
InsertDatabase Selection.Range.InsertDatabase
InsertDateField Selection.Fields.Add Range:=range, Type:=wdFieldDate
InsertDateTime Selection.InsertDateTime
InsertDrawing ActiveDocument.Shapes.AddOLEObject
InsertEquation ActiveDocument.Shapes.AddOLEObject
InsertExcelTable ActiveDocument.Shapes.AddOLEObject
InsertField field_type ActiveDocument.Fields.Add Range:=range, Type:=field_type
InsertFieldChars Selection.Fields.Add Range:=range, Type:=wdFieldEmpty, PreserveFormatting:=False
InsertFile Name, Range, ConfirmConversions, Link Selection.InsertFile
InsertFootnote Reference, NoteType ActiveDocument.Footnotes.Add Range:=range, Text:=text

ActiveDocument.Endnotes.Add Range:=range, Text:=text

InsertFormField Entry, Exit, Name, Enable, TextType, TextDefault, TextWidth, TextFormat, CheckSize, CheckWidth, CheckDefault, Type, OwnHelp, HelpText, OwnStat, StatText Set myField = ActiveDocument.FormFields.Add(Range:=range, Type:=WdFieldType)

With myField

.EntryMacro = text

.ExitMacro = text

.Name = text

.Enabled = True

.OwnHelp = True

.HelpText = text

.OwnStatus = True

.StatusText = text

End With

With myField.TextInput

.Width = num

.Default = text

.EditType

End With

With myField.CheckBox

.Size = num

.AutoSize = True

.Default = True

End With

InsertFrame Selection.Frames.Add
InsertIndex ActiveDocument.Indexes.Add
InsertMergeField ActiveDocument.MailMerge.Fields.Add
InsertObject ActiveDocument.Shapes.AddOLEObject
InsertPageBreak Selection.InsertBreak Type:=wdPageBreak
InsertPageField ActiveDocument.Fields.Add Range:=range, Type:=wdFieldPage
InsertPageNumbers ActiveDocument.Sections(1).Footers(wdHeaderFooterPrimary).PageNumbers.Add
InsertPara Selection.InsertParagraphAfter

' or

Selection.TypeParagraph

InsertPicture Name, LinkToFile, New ActiveDocument.Shapes.AddPicture

ActiveDocument.InlineShapes.New Range:=range

InsertSectionBreak Selection.Range.InsertBreak Type:=WdBreakType
InsertSound Selection.InlineShapes.AddOLEObject ClassType:="SoundRec"
InsertSpike NormalTemplate.AutoTextEntries("Spike").Insert Where:=range
InsertSubdocument ActiveDocument.Subdocuments.AddFromFile Range:=range
InsertSymbol Selection.InsertSymbol
InsertTableOfAuthorities ActiveDocument.TablesOfAuthorities.Add
InsertTableOfContents ActiveDocument.TablesOfContents.Add
InsertTableOfFigures ActiveDocument.TablesOfFigures.Add
InsertTimeField ActiveDocument.Fields.Add Range:=range, Type:=wdFieldTime
InsertWordArt ActiveDocument.Shapes.AddOLEObject
InStr() InStr()
Int() Int()
IsAutoCorrectException() For Each xItem In AutoCorrect.FirstLetterExceptions

If xItem.Name = "apt." Then isFound = True

Next xItem

For Each aItem In AutoCorrect.TwoInitialCapsExceptions

If aItem.Name = "THem" Then aExists = True

Next aItem

IsCustomDocumentProperty() For Each aProp In ActiveDocument.CustomDocumentProperties

If aProp.Name = "age" Then isFound = True

Next aProp

IsDocumentDirty() x = Not ActiveDocument.Saved
IsDocumentPropertyReadOnly() x = WordBasic.IsDocumentPropertyReadOnly(name)
IsExecuteOnly() x = ActiveDocument.VBProject.Protection
IsMacro() Not applicable in Office Word 2003
IsTemplateDirty() x = Not ActiveDocument.AttachedTemplate.Saved
Italic, Italic() Selection.Font.Italic = True