本示例将选定内容设置为 Arial 字体的加粗格式。

With Selection.Font
    .Name = "Arial"
    .Bold = True
End With

 

本示例将活动文档选用的第一个列表模板的名称设置为“myList”,然后在插入点添加一个 LISTNUM 域(与 myList 模板链接)。该域采用 myList 模板的格式设置。

If ActiveDocument.ListTemplates.Count >= 1 Then
    ActiveDocument.ListTemplates(1).Name = "myList"
    Selection.Collapse Direction:=wpsCollapseEnd
    ActiveDocument.Fields.Add Range:=Selection.Range, _
    Type:=wpsFieldListNum, Text:="myList"
End If