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