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

Question

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

这是我一直用于查找和替换文本的VBA字幕格式，我只是找不到一种方法来调整添加到项目符号点的位置：

var1="14081"
var2="port"
sed '/applicationConnectors:/{n;s/\($var2\).*\$/\1${var1}/}' configuration.yml > newfile
mv newfile configuration.yml

我为空项目符号设置的目标是使它们显示“无更多信息”的内容。 <<只是一个例子。

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

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

。

在“文件/选项/高级”的“编辑选项”部分中有一个选项：对项目符号或编号列表使用“普通”样式。如果已激活此功能，那么事情将变得非常困难。最好的办法是尝试匹配应用的段落格式（缩进等）。