PowerPoint VBA：如何修改多选文本字体并识别整行选取消项目符号？

一、批量修改所有选中的文本元素 #

原来的代码只修改最后一个选中的文本片段，是因为ActiveWindow.Selection.TextRange默认仅返回最后一个独立选区。要处理所有分散选中的文本，需要遍历所有选中的文本区域：

Sub ChangeAllSelectedFonts()
    Dim i As Integer
    With ActiveWindow.Selection
        ' 遍历所有选中的独立文本区域
        For i = 1 To .RangeCount
            .TextRange(i).Font.Name = "Courier New"
        Next i
    End With
End Sub

运行这个宏后，不管你选中多少个分散的文本片段（比如同时选中某行的单个单词和另一整段），所有选中内容的字体都会被改为Courier New。

二、识别整行选中并移除项目符号 #

要判断是否选中了整行（整个段落），可以对比选中区域的起始/结束位置和对应段落的起始/结束位置是否完全一致，若一致则说明是整段选中，随后移除项目符号：

Sub RemoveBulletForFullLineSelection()
    Dim i As Integer
    Dim selectedRange As TextRange
    Dim para As Paragraph
    
    With ActiveWindow.Selection
        For i = 1 To .RangeCount
            Set selectedRange = .TextRange(i)
            ' 获取选中区域对应的段落
            Set para = selectedRange.Paragraphs(1)
            ' 判断是否选中了整个段落
            If selectedRange.Start = para.Start And selectedRange.End = para.End Then
                ' 隐藏项目符号
                para.Bullet.Visible = msoFalse
            End If
        Next i
    End With
End Sub

合并功能：一次完成字体修改+整行去项目符号 #

如果需要同时实现两个功能，可以把代码合并成一个宏：

Sub FormatSelectedText()
    Dim i As Integer
    Dim selectedRange As TextRange
    Dim para As Paragraph
    
    With ActiveWindow.Selection
        For i = 1 To .RangeCount
            Set selectedRange = .TextRange(i)
            ' 修改字体为Courier New
            selectedRange.Font.Name = "Courier New"
            
            ' 判断是否为整段选中，是则移除项目符号
            Set para = selectedRange.Paragraphs(1)
            If selectedRange.Start = para.Start And selectedRange.End = para.End Then
                para.Bullet.Visible = msoFalse
            End If
        Next i
    End With
End Sub

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