Question

我无法弄清楚如何让VBA在Word中启动项目符号列表。我有一些代码可以输入单词，我可以获得字体和段落格式，没问题，但现在我想创建一个项目符号列表。我找到了以下代码，

ListFormat.ApplyListTemplate ListTemplate:=ListGalleries(wdBulletGallery).ListTemplates(2)

应创建第二种标准类型的项目符号列表，但我可以确定的是将其与“范围”一起使用。命令，导致整个文档应用列表。我想要做的是将它应用于我拥有代码类型的新行，然后，在某些时候，能够关闭列表，以便能够继续正在应用的列表。

谢谢！

Answer 1

此链接可以帮助您查询：

基本上，此代码将其应用于选择：

Selection.Range.ListFormat.ApplyBulletDefault

此代码将其添加到选定的段落编号（在本例中为第2段）：

Documents("MyDoc.doc").Paragraphs(2).Range.ListFormat _ 
 .ApplyBulletDefault

此代码将Bullet点应用于一系列段落：

Set myDoc = ActiveDocument 
Set myRange = myDoc.Range( _ 
 Start:= myDoc.Paragraphs(3).Range.Start, _ 
 End:=myDoc.Paragraphs(6).Range.End) 
If myRange.ListFormat.ListType = wdListNoNumbering Then 
 myRange.ListFormat.ApplyBulletDefault 
End If

假设您知道正在添加的文本，您可以使用第二个示例。如果您不知道要添加多少段落，那么每次创建新段落时，将整数递增1并在第三个示例中使用该整数。

例如：

Start:= myDoc.Paragraphs(2).Range.Start, _ 
End:=myDoc.Paragraphs(i).Range.End)

VBA：如何在Word中开始和结束列表，项目符号或编号？

1 个答案: