Visual Basic Equivalents S
Visual Basic Equivalents S
This content is no longer actively maintained. It is provided as is, for anyone who may still be using these technologies, with no warranties or claims of accuracy with regard to the most recent product version or service release.
aa158433(v=office.10).mdaa158435(v=office.10).mdaa158437(v=office.10).mdaa158439(v=office.10).mdaa158441(v=office.10).mdaa158443(v=office.10).mdaa158446(v=office.10).mdaa158448(v=office.10).mdaa158450(v=office.10).mdaa158452(v=office.10).mdaa158452(v=office.10).mdaa158452(v=office.10).mdaa158454(v=office.10).mdaa158456(v=office.10).mdaa158458(v=office.10).mdaa158458(v=office.10).mdaa158460(v=office.10).mdaa158464(v=office.10).mdaa158466(v=office.10).mdaa158466(v=office.10).mdaa158468(v=office.10).mdaa158468(v=office.10).md
| S | |
|---|---|
| SaveTemplate | ActiveDocument.AttachedTemplate.Save
' or Templates(name).Save |
| ScreenRefresh | Application.ScreenRefresh |
| ScreenUpdating, ScreenUpdating() | Application.ScreenUpdating = True |
| Second(time) | Second(time) |
| Seek filenumber, position
Seek(filenumber) |
Seek[#]filenumber,position
Seek(filenumber) |
| Select Case | Select Case |
| SelectCurAlignment | Selection.SelectCurrentAlignment |
| SelectCurColor | Selection.SelectCurrentColor |
| SelectCurFont | Selection.SelectCurrentFont |
| SelectCurIndent | Selection.SelectCurrentIndent |
| SelectCurSentence | Selection.Sentences(1).Select |
| SelectCurSpacing | Selection.SelectCurrentSpacing |
| SelectCurTabs | Selection.SelectCurrentTabs |
| SelectCurWord | Selection.Words(1).Select |
| Selection$() | text = Selection.Text |
| SelectionFileName$() | aFileName = Selection.Document.FullName |
| SelInfo(Type) | x = Selection.Information(WdInformation) |
| SelType()
SelType 1 |
aType = Selection.Type(Type)
Selection.Collapse Direction:=wdCollapseStart |
| SendKeys keys, wait | SendKeys keys, wait |
| SentLeft 1,1 | Selection.Sentences(1).Previous(Unit:=wdSentence, Count:=1).Select |
| SentRight 1, 1 | Selection.Sentences(1).Next(Unit:=wdSentence, Count:=1).Select |
| SetAttr filename, attribute | SetAttr filename, attribute |
| SetAutoText | Templates(name).AutoTextEntries.Add |
| SetDocumentDirty 1 | ActiveDocument.Saved = False |
| SetDocumentProperty | ActiveDocument.BuiltInDocumentProperties.Add
' or ActiveDocument.CustomDocumentProperties.Add |
| SetDocumentPropertyLink name, source | ActiveDocument.CustomDocumentProperties(name).LinkSource = source |
| SetDocumentVar name, value | ActiveDocument.Variables.Add name, value |
| SetEndOfBookmark name
SetEndOfBookmark name1, name2 |
range.Bookmarks(name).Start = range.Bookmarks(name).End
ActiveDocument.Bookmarks(name1).End = ActiveDocument.Bookmarks(name2).End |
| SetFileCreatorAndType | Macintosh only |
| SetFormResult name, "text"
SetFormResult name, 1 SetFormResult name, num SetFormResult name, , default |
ActiveDocument.FormFields(name).Result = "text"
ActiveDocument.FormFields(name).CheckBox.Value = True ActiveDocument.FormFields(name).DropDown.Value = num Use the Default property with a CheckBox, DropDown or TextInput object. |
| SetPrivateProfileString section, key, setting, filename | System.PrivateProfileString(filename, section, key) = setting |
| SetProfileString section, key, setting | System.ProfileString(section, key) = setting |
| SetSelRange charpos1, charpos2 | ActiveDocument.Range(Start:=charpos1, End:=charpos2).Select |
| SetStartOfBookmark name
SetStartOfBookmark book1, book2 |
range.Bookmarks(name).End = range.Bookmarks(name).Start
ActiveDocument.Bookmarks(book1).Start = ActiveDocument.Bookmarks(book2).Start |
| SetTemplateDirty 0 | Documents(name).AttachedTemplate.Saved = True
' or Templates(name).Saved = True |
| Sgn() | Sgn() |
| ShadingPattern, ShadingPattern() | Selection.Shading.Texture = WdTextureIndex |
| Shadow, Shadow() | Selection.Font.Shadow = True
x = Selection.Font.Shadow |
| Shell | Shell |
| ShowAll, ShowAll() | Windows(1).View.ShowAll = True
x = ActiveWindow.View.ShowAll |
| ShowAllHeadings | ActiveWindow.View.ShowAllHeadings |
| ShowAnnotationBy name | ActiveDocument.Comments.ShowBy = name |
| ShowClipboard | Application.ShowClipboard |
| ShowHeadingNumber | Windows(name).View.ShowHeading Level:=num |
| ShowMe | Application.ShowMe |
| ShowNextHeaderFooter | ActiveWindow.View.NextHeaderFooter |
| ShowPrevHeaderFooter | ActiveWindow.View.PreviousHeaderFooter |
| ShowVars | Add a watch expression in the Visual Basic Editor |
| ShrinkFont | Selection.Font.Shrink |
| ShrinkFontOnePoint | Selection.Font.Size = Selection.Font.Size - 1 |
| ShrinkSelection | Selection.Shrink |
| SizeToolbar name, width | CommandBars(name).Width = num |
| SkipNumbering, SkipNumbering() | Selection.Range.ListFormat.RemoveNumbers |
| SmallCaps, SmallCaps() | Selection.Font.SmallCaps = True |
| SortArray | WordBasic.SortArray |
| SpacePara1, SpacePara1() | Selection.Paragraphs.Space1
x = Selection.Paragraphs.LineSpacing |
| SpacePara15, SpacePara15() | Selection.Paragraphs.Space15
x = Selection.Paragraphs.LineSpacing |
| SpacePara2, SpacePara2() | Selection.Paragraphs.Space2
x = Selection.Paragraphs.LineSpacing |
| SpellChecked, SpellChecked() | ActiveDocument.Content.SpellingChecked = True
x = ActiveDocument.Content.SpellingChecked |
| Spike | NormalTemplate.AutoTextEntries.AppendToSpike |
| SplitSubdocument | ActiveDocument.Subdocuments(1).Split Range:=range |
| StartOfColumn, StartOfColumn() | Selection.StartOf Unit:=wdColumn, Extend:=wdMove |
| StartOfDocument, StartOfDocument() | Selection.HomeKey Unit:=wdStory, Extend:=wdMove |
| StartOfLine, StartOfLine() | Selection.HomeKey Unit:=wdLine, Extend:=wdMove |
| StartOfRow, StartOfRow() | Selection.StartOf Unit:=wdRow, Extend:=wdMove |
| StartOfWindow, StartOfWindow() | Selection.MoveUp Unit:=wdWindow |
| Stop | Stop |
| Str$(number) | Str(number)
Str$(number) |
| Strikethrough, Strikethrough() | Selection.Font.StrikeThrough = True |
| String$(count, character) | String(count, character)
String$(count, character) |
| Style | Selection.Style = wdStyleHeading1 |
| StyleDesc$() | x = Selection.Style.Description |
| StyleName$() | x = Selection.Style.NameLocal |
| Sub...End Sub | Sub...End Sub |
| Subscript, Subscript() | Selection.Font.Subscript = True
x = Selection.Font.Subscript |
| Superscript, Superscript() | Selection.Font.Superscript = True
x = Selection.Font.Superscript |
| SymbolFont | Selection.Font.Name = "Symbol" |