Visual Basic Equivalents I
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 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 |