如何用VBA宏将PowerPoint 2019选中文本改为美式英语？

你提供的宏没效果的原因很简单——核心代码被注释掉了（VBA里单引号'开头的行是注释，不会被执行）。

修正后的宏代码如下：

Sub English()
    ' 先检查是否选中了文本
    If Not ActiveWindow.Selection.Type = ppSelectionText Then
        MsgBox "请先选中需要修改语言的文本！", vbExclamation
        Exit Sub
    End If
    ' 将选中文本的语言设置为美式英语
    ActiveWindow.Selection.TextRange.LanguageID = msoLanguageIDUSEnglish
End Sub

几点说明：

• 去掉了原代码中核心语句前的单引号，让设置语言的代码真正执行
• 增加了选中状态判断，避免在未选中文本时运行宏出现错误
• msoLanguageIDUSEnglish是PowerPoint VBA内置的常量，对应美式英语的语言ID，确保设置准确

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