求助：用PowerPoint VBA生成指定格式的5个文本段落

以下是能直接实现你需求的VBA代码（针对Word文档）：

Sub GenerateFormattedParagraphs()
    Dim doc As Document
    Dim para As Paragraph
    
    ' 创建新文档，若要操作当前文档可改为 Set doc = ActiveDocument
    Set doc = Documents.Add
    
    ' 第一个段落：Arial字体、蓝色
    Set para = doc.Content.Paragraphs.Add
    para.Range.Text = "第一个Arial蓝色段落内容"
    With para.Range.Font
        .Name = "Arial"
        .Color = wdColorBlue
    End With
    para.Range.InsertParagraphAfter
    
    ' 生成4个带圆形项目符号的黑色段落
    Dim i As Integer
    For i = 1 To 4
        Set para = doc.Content.Paragraphs.Add
        para.Range.Text = "带圆形项目符号的段落" & i
        ' 应用默认圆形项目符号
        para.Range.ListFormat.ApplyBulletDefault
        ' 显式设置黑色字体（避免继承其他格式）
        para.Range.Font.Color = wdColorBlack
        para.Range.InsertParagraphAfter
    Next i
End Sub

代码说明 #

• 若不需要新建文档，把Set doc = Documents.Add替换为Set doc = ActiveDocument即可操作当前打开的Word文档
• wdColorBlue和wdColorBlack是Word内置的颜色常量，直接使用即可
• ApplyBulletDefault会添加Word默认的圆形项目符号，若要自定义项目符号样式，可进一步调用ListFormat的其他方法

参考资料 #

• 在Word的VBA编辑器中按F1，可查看Paragraph、Range、Font等对象的完整属性和方法说明
• 按F2打开对象浏览器，搜索wdColor可查看所有内置颜色常量；搜索ListFormat可了解更多项目符号/编号的设置方式

内容的提问来源于stack exchange，提问作者Radhish