Mac版Word首字母大写宏运行崩溃求助（保留驼峰格式）

问题描述 #

我想把文档里每个单词的首字母改成大写，同时保留单词其余部分的驼峰格式（比如wordExample变成WordExample）。试了多种代码变体（以下是最简版本），但每次运行都会让Mac版Word崩溃。我的Word版本是16.87，macOS版本是14.5，求帮忙。

原崩溃代码 #

Sub CapitalizeFirstLetterOnly()

    Dim doc As Document
    Dim word As Range
    Dim firstLetter As String
    Dim restOfWord As String

    Set doc = ActiveDocument

    For Each word In doc.words

        firstLetter = UCase(Left(word.Text, 1))
        restOfWord = Mid(word.Text, 2)

        word.Text = firstLetter & restOfWord

    Next word
   
End Sub

崩溃原因分析 #

1. 直接遍历doc.words动态集合时，修改word.Text会实时改变文档的单词划分规则，导致遍历过程中集合元素不断变动，Mac版Word的VBA引擎对这种动态集合的兼容性差，直接引发崩溃。
2. doc.words会把空格、标点符号也识别为"单词"，修改这类内容也容易触发异常。

修复后的代码 #

Sub CapitalizeFirstLetterSafely()
    Dim doc As Document
    Dim wordRanges() As Range
    Dim i As Integer
    Dim wordText As String
    
    Set doc = ActiveDocument
    
    ' 提前将所有单词的Range存入静态数组，避免遍历动态集合
    ReDim wordRanges(1 To doc.Words.Count)
    For i = 1 To doc.Words.Count
        Set wordRanges(i) = doc.Words(i)
    Next i
    
    ' 遍历静态数组处理每个单词
    For i = 1 To UBound(wordRanges)
        wordText = Trim(wordRanges(i).Text)
        ' 跳过空内容或非字母开头的"单词"（如标点、空格）
        If Len(wordText) > 0 And wordText Like "[A-Za-z]*" Then
            wordRanges(i).Text = UCase(Left(wordText, 1)) & Mid(wordText, 2)
        End If
    Next i
End Sub

修复说明 #

• 先把所有单词的Range对象存入静态数组，遍历数组时不会受文档内容修改的影响，从根源避免动态集合引发的崩溃问题。
• 增加判断逻辑，只处理以字母开头的有效单词，跳过标点、空格这类无效内容，减少异常触发概率。
• 使用Trim清理单词前后的空格，确保首字母判断准确。

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