在Excel VBA中，如何将同一列中的单元格区域粘贴到MS Word中的项目符号点列表中？

Question

因此，对于我的工作，我必须创建一个未完成订单报告（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执行此操作。

Answer 1

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

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