List 我得到一个编译错误，但我想我有所有的部分

我有一份清单格式的文件。我试着结合两个潜艇，正如你在changebullet和findbullet中所看到的。我试图让findbullet在文档中循环并转到列表索引中的新列表。然后，我尝试使用changebullet循环if语句，查看我使用Selectcase讨论的contentcontrol中是否存在字符串

其思想是在ContentControls1的内容控件下拉列表中选择一个项目，然后单击命令按钮触发Changebullet。您可以看到我试图输入代码的项目符号列表。在changebullet顶部去掉所有的繁杂内容后，它生成了一个符号字体样式的列表。它不会将项目符号添加到列表中。最后，它不会保持文本的字体，因为Times New Roman将所有内容都更改为符号，只是项目符号需要是符号

对于已经在使用的语句，我遇到了编译错误，或者找不到End with或End if的错误

更新/编辑：我进行了一些迭代并修复了我的问题。下面是错误列表，然后是修复列表

根据@EventHandler的建议，出现编译错误。我能够修复代码。它有助于在VBA中正确缩进所有内容，以便我可以看到问题。 通过同时添加到sub，不必要地使代码变得复杂。 然后程序将无法正确循环添加没有项目符号的列表，仅在运行宏时光标所在的位置。 解决问题

我去掉了不必要的子项添加，并格式化子项，使我的语句与结束语句对齐。容易解决 添加了行ActiveDocument.Lists1.Range.Select这允许宏仅与我试图操作列表1的列表交互 修复项目符号问题，即输入文本后不显示。我设置continueprevouslist:=True这允许文本插入显示项目符号并保留列表1。 我从这位哈普小姐那里拿走的东西。获取宏以选择要与之交互的节，或将光标移动到要与文档交互的位置。要防止列表索引中断，并添加/调整项目符号列表，请使“继续上一个列表”等于true

你没有完成的每一项都有一个答案

If InStr(ActiveDocument.ContentControls(1).Range.Text, "ISWPPP") Then


    For Each oPara In ActiveDocument.ListParagraphs

最后

 End If
 Next oPara

---

如果您认为这不值得，请随意删除Mods@eventHandler已经帮助我完成了上述代码的更多迭代。仍然损坏，但如果我得到一个有效的解决方案或更接近正确的东西，我会重新发布。感谢您提供的信息，一旦我克服了编译错误，我就能够解决问题，我重新发布了我的修改过的代码。

 End If
 Next oPara