Word VBA教程:Visual Basic 命令对照表 S

ABCDEFGHIJKLMNOPRSTUVWY

S  
SaveTemplate ActiveDocument.AttachedTemplate.Save

'或

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

'或

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 系统
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

请使用 CheckBox、DropDown 或 TextInput对象的Default属性。

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

'或

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 在“Visual Basic 编辑器”中添加监视表达式
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"

Word VBA教程

Word VBA参考教程:目录1 Word VBA参考教程:目录2
Word VBA参考教程:目录3 Word VBA参考教程:目录4
Word VBA参考教程:目录5 Word VBA参考教程:目录6
Word VBA参考教程:目录7 Word VBA参考教程:目录8
Word VBA参考教程:目录9 Word VBA参考教程:目录10
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号