Excel 获取同一列中要粘贴到项目符号列表中的单元格范围

因此，对于我的工作，我必须创建一个开放式订单报告（OOR）。然后我创建一个word文档，突出显示该报告的“要点”。因此，当我运行为该报告创建的宏时，我将关键点添加到OOR电子表格中的Sheet2中

然后，我希望将这些关键点复制/粘贴到项目符号列表中的MS Word中。到目前为止，在运行宏时，我可以打开word文档，让它写出项目符号列表的标题“文件中的关键点”，但无法添加项目符号

请参阅以下代码：

Selection.TypeText Text:="Key Points from the attached file: "
    With Selection
        .Font.Bold=True
        .Font.Color= RGB(31,73,125)
    End With
    Selection.TypeParagraph
    Selection.TypeText Text:=vbTab
    With ListGalleries(wdBulletGallery).ListTemplates(1).ListLevels(1)
        .NumberFormat = ChrW(61623)
        .TrailingCharacter = wdTrailingTab
        .NumberStyle = wdListNumberStyleBullet
        .NumberPosition = InchesToPoints(0.25)
        .Alignment = wdListLevelAlignLeft
        .TextPosition = InchesToPoints(0.5)
        .TabPosition = wdUndefined
        .ResetOnHigher = 0
        .StartAt = 1    
    End With
    ListGalleries(wdBulletGallery).ListTemplates(1).Name = ""
    Selection.Range.ListFormat.ApplyListTemplateWithLevel ListTemplate:= _
        ListGalleries(wdBulletGallery).ListTemplates(1), ContinuePreviousList:= _
        False, ApplyTo:=wdListApplyToWholeList, DefaultListBehavior:= _
        wdWord10ListBehavior
    Selection.TypeText Text:= Worksheet(“Sheet2”).Range(“C2”).Value
    Selection.TypeParagraph
    Selection.TypeText Text:= Worksheet(“Sheet2”).Range(“C3”).Value
    Selection.TypeParagraph

---

我需要对单元格C2:C10执行此操作。

编写宏时，最简单的方法是使用“录制宏”按钮。然后查看它生成的内容并使用它生成的VBA

---

打开Word，启用开发者功能区（文件|选项|自定义功能区）并开始录制宏。选择一些文本并单击项目符号按钮。停止宏，然后您可以看到Word宏创建了什么，以便选择数据并格式化数据

张贴的代码没有使子弹作为OP明确说明，因为他问的问题，以解决它！通过在word中记录宏，可以看到用于使选择项目符号化的确切代码。然后使用这个生成的代码，您知道它将在上面的代码中创建项目符号来修复它。如果这不管用，那么你可以再看看，天哪。谢谢你的提示。不幸的是，这正是我创建我的帖子中列出的代码所做的。你能一步一步地浏览宏并看到每一步的发生吗。我不确定（没有看到）你是否有子弹的选择？是否选择了要添加项目符号的文本？您的vbTab位是否尝试缩进项目符号或其他内容？