Ms word 按字母顺序在Word 2010/13文档中添加“标题1”

我在Word2013和2010中操作，所以我可以使用在这两种语言中都能工作的代码。我正试图创建一个word文档来跟踪我的食谱。最基本的是，我希望有一个基于标题更新的TOC。我也希望它有任何类别，我想要的，例如：开胃菜，饮料，入口，等等。。。按字母顺序排列。每个类别下我都有表格。每个菜谱都有一个表，表中有它的名称、方向、注释、标签，可能还有一张图片。第二个单元格中还有另外两列表格，其中包含配方所需的每种成分的数量和名称

到目前为止，我已经完成了所有这些，我想自动添加新的类别和菜谱。目前，我必须找到类别，然后向下滚动找到名称的字母顺序，并插入我制作的快速表格。然后我填写信息

我希望能够在文档中搜索每个类别名称，然后将新类别插入到它所属的任何位置，前后都有一个空格。我发现我的桌子给我带来了麻烦，如果我在所有东西之间没有空间的话。它试图把它接触到的任何东西拉到表中并合并它们

我想提供背景故事，这样你就知道我最终会去哪里，并且可以提供更符合我需要的帮助。在我可以添加一个新的类别之后，我计划使用vba按每个表的第一个单元格中的名称的字母顺序组织每个表。当我开始添加排序时，它也会有所帮助。最后，我希望能够对它进行排序，只显示某个人的食谱，或者显示我经常使用的食谱。然后我会让它要么隐藏所有其他的，要么用这些创建一个新的文档。谢谢你的帮助。下面我将发布我最近尝试的代码。我尝试了同一代码的其他一些变体，并不断得到“预期的语句结尾”。我在尝试它的其他变体时也遇到了其他错误，但这是我自己能想到的最好的

Private Sub UserForm_Initialize()
    For Each cat In ActiveDocument.Styles = "Heading 1"
        lstCat.AddItem (cat)
    Next
End Sub

我有一个名为frmAddCategory的表单，我正在使用它作为测试。我打算用一个列表框lstCat来显示样式标题为1的每个类别。我有一个名为txtAdd的文本框来输入新的文本，还有一个cmdAdd按钮来将其添加到表单中

编辑：在了解了大纲视图模式后，我一直在玩我的宏记录器。我将其设置为仅显示“标题1”级别，并选择了我想要的，而不是选择附录或参考。然后我转到“主页”选项卡，按字母升序对段落进行排序。我有一些代码，我相信我可以用来让它在VBA中运行。但是，这不是一个完整的修复，因为我不想选择标题为1的最后两个。如果我手动选择每个标题1下的表格，它也可以工作，但是我不能设置前后的间距。我希望每个标题和它们下面的表格之间都有一到两个空格，以便于查看和编辑

---

另外，如果有人对我的问题给予负面评价，请发表评论解释。从论坛的常见问题和我看到的其他问题来看，这是一个提出得很好的问题。一个清晰的标题，一个很好的问题解释，代码示例，研究。所以，如果我做错了什么，请告诉我，这样我就可以纠正它

首先感谢您对宏录制器和大纲模式的介绍，我一直在尝试在列表框中填充两个HeadingLevel1标题之间的selection.text

现在对你说，对不起，我想不出用词来表达的方式。但这将是非常容易的访问。一个类别表称为TBL类别，另一个类别表称为配方TBL类别。为了使操作更简单，在所有表上使用autoID时。但为了避免tblRecipes的许多麻烦，请将其autoID重命名为RecipesID，与其他表相同。在配方表中，您可以使用备注字段来保存大量数据。标题中文本的位置将放在tblRecipes的一个字段中。一旦有了表，希望为要跟踪的每个项目都有一个字段。点击保存，然后使用向导根据表创建表单。对所有您想要的表重复此操作，以便将信息放入任何表中

1.reportTOC基于您想要的每个标题的查询，可以根据需要预览或打印。reportByCategory等报告按a到z排序，除非您希望按所有者排序，然后按a到z自动排序

报告向导以获取硬拷贝。如果你想很容易地排序，内置的。另外，如果你想轻松地挑选出假日的所有食谱，那就来一桌吧。一个tblHolidayRecipes字段autoId不是您在任何地方使用的，而是需要的，fldRecipesId保存RecipesId，fldHolidayId保存HolidayId。向导将显示如何仅获取所需内容。在access 2013中，您可以包括食品或食品的pix