如何使用VBA将文本添加到Microsoft Word中的空项目符号?

Question

我正在尝试将文本添加到word文档中的空格式化项目符号点，但是我似乎找不到任何成功的方法。我不太擅长 VBA，我只是用它来自动重复报告。

这是我用来查找和替换文本的 VBA 订阅的格式，我只是找不到调整以添加到项目符号的方法：

Private Sub FixedReplacements()
Dim Rng As Range
Dim SearchString As String
Dim EndString As String
Dim Id As String
Dim Link As String
Set Rng = ActiveDocument.Range
Rng.Find.ClearFormatting
Rng.Find.Replacement.ClearFormatting
With Rng.Find
.Text = ""
.Replacement.Text = ""
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Rng.Find.Execute Replace:=wdReplaceAll
End Sub

我为空项目符号点设定的目标是让它们显示类似"没有进一步信息"的内容。 <<只是一个例子。

Answer 1

如何做到这一点在很大程度上取决于项目符号的插入方式。没有办法专门搜索子弹本身。评论提到

项目符号点

是直接从中找到的格式化项目符号点 词。

在这种情况下，默认设置是使用List Paragraph样式设置段落格式。如果是这种情况，那么Find可以使用该样式搜索段落。然后，问题中的Find代码如下所示。(另请注意对Format和Wrap属性的更改。

With Rng.Find
.Text = "^p"
.Replacement.Text = "No further information.^p"
.Forward = True
.Style = "List Paragraph"
.Wrap = wdFindStop
.Format = True
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With

如果使用了其他样式来应用项目符号，则可以搜索该样式名称。请记住，样式名称区分大小写。

文件/选项/高级，编辑选项部分有一个选项：对项目符号列表或编号列表使用普通样式。如果这已被激活，那么事情就会变得非常困难。您能做的最好的事情是尝试匹配应用的段落格式(缩进等)。