excel - 从 Excel VBA 在 Word 中编写项目符号列表

Question

我正在向多行字符串 strEvap 添加单词在 Excel 中。有些行以项目符号开头(项目符号字符 •)。示例字符串:

3 Evaporateurs
Évaporateur de type mural, modèle --, à installer et raccorder au condenseur, complet avec :
• Alimentation électrique par l’unité de condensation via un câble 14/3+Gnd
• Moteurs ECM

字符串完成后，我创建一个 Word 文档并使用以下代码将字符串写入 Word 文档:

Function FnWriteToWordDoc(strEvap As String, strCond As String)
   Dim objWord
   Dim objDoc
   Dim objSelection

   Set objWord = CreateObject("Word.Application")
   Set objDoc = objWord.Documents.Add
   objWord.Visible = True
   Set objSelection = objWord.Selection
   objSelection.TypeText (strEvap)
End Function

这工作正常。此时，我有一个 Word 文档，其中字符串的样式与上面的示例相同。

我的问题:

如何格式化以项目符号开头的行以识别为 Word 中项目符号列表的一部分？理想情况下，它会在我写入文档时完成，但我不介意它是否遍历所有行并将它们作为项目符号列表(如果最后适用)。

到目前为止，我有以下代码将选定的行转换为项目符号列表。它可以独立工作，但必须从 Word 文档中使用，而不是我的 Excel 代码。

Sub RendreBulletDansWord()
    Selection.Range.ListFormat.ApplyListTemplateWithLevel ListTemplate:= _
        ListGalleries(wdBulletGallery).ListTemplates(1), ContinuePreviousList:= _
        False, ApplyTo:=wdListApplyToWholeList, DefaultListBehavior:= _
        wdWord10ListBehavior
End Sub

Answer 1

Word 具有可以执行此操作的自动套用格式功能。自动套用格式可应用于整个文档或范围。我建议您将内容写入 Range 对象，而不是 Selection，这样您就可以确定受影响的内容。

自动套用格式可以做很多事情，因此有必要指定您想要什么和不想要什么。我只包含了项目符号列表的选项，如下所示。可以想象，您可能想要关闭其他选项。您可以在 Word 语言引用中找到整个列表。请注意，有 AutoFormat 和 AutoFormatAsYouType 设置。您无需担心后者，但请注意，因为某些自动套用格式设置在 AutoFormatAsYouType 之后按字母顺序列出。

Dim rng as Word.Range
Set rng = objWord.Selection.Range
rng.Text = strEvap
objWord.Options.AutoFormatApplyBulletedLists = True
rng.AutoFormat

*不过，如果您使用 .TypeText可以想象它可以与 AutoFormatAsYouType 设置一起使用。但我个人更喜欢不使用 Selection 和 TypeText。