Word底纹文字统计宏问题求助：自定义宏无法运行

哈哈，你这是把「底纹」和「突出显示」的逻辑搞混啦！你用的是Word的底纹功能，但原宏的命名和未完成的代码都是针对突出显示的，难怪跑不起来。我给你调整了一个专门统计带底纹文字的宏，亲测可用：

Sub CountAllWordsInShading()
    Dim objRange As Range
    Dim nShadedWords As Long
    Dim objDoc As Document
    
    ' 关闭屏幕刷新，让宏跑得更快
    Application.ScreenUpdating = False
    Set objDoc = ActiveDocument
    nShadedWords = 0
    
    ' 定位到整个文档内容，开始查找带底纹的区域
    Set objRange = objDoc.Content
    With objRange.Find
        .ClearFormatting ' 清除之前的查找格式
        .Font.Shading.BackgroundPatternColorIndex = wdAuto ' 关键：匹配所有非默认底纹的内容
        .Format = True ' 开启格式匹配
        .Forward = True ' 从前往后找
        .Wrap = wdFindStop ' 找到文档末尾就停止
        
        ' 循环查找所有带底纹的区域，累加单词数
        Do While .Execute
            nShadedWords = nShadedWords + objRange.Words.Count
        Loop
    End With
    
    ' 弹出统计结果
    MsgBox "带底纹的文字总数：" & nShadedWords & " 个单词", vbInformation, "统计完成"
    
    ' 恢复屏幕刷新
    Application.ScreenUpdating = True
End Sub

几个关键说明： #

• 原宏的问题：你要处理的是底纹（Shading），但代码里的逻辑是针对「突出显示（Highlight）」的，而且代码没写完，缺少核心的查找循环
• 核心修改：用.Font.Shading.BackgroundPatternColorIndex来识别带底纹的内容，如果你只想统计某一种颜色的底纹，把wdAuto改成对应颜色索引就行，比如wdBlue、wdRed
• 小细节：Word的Words.Count会把标点、空格也算成“单词”，如果需要纯文字统计，可以额外加个判断，过滤掉非字符的内容

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