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

Question

因此，对于我的工作，我必须创建一个未结订单报告 (OOR)。然后，我创建了一个 word 文档，突出显示本报告的“关键点”。因此，当我运行为此报告创建的宏时，我将关键点添加到 OOR 电子表格中的 Sheet2。

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

请看下面的代码：

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 执行此操作。

Answer 1

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

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