| 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" |