Word 2003宏设置NoProofing为True失效问题求助

问题根源 #

1. 原代码遍历Words集合时，刻意排除了最后一个单词（wordCount - 1），导致文档末尾内容未被处理；同时Words集合包含空格、制表符等非文本元素，部分有效文本的属性未被正确设置。
2. 对于已有内容的行，直接单独设置单个Word对象的NoProofing属性，容易被文本原有字符格式覆盖，无法全局生效。

修正方案 #

方案1：直接对全文档范围设置（最高效） #

无需逐个遍历，直接将整个文档内容的NoProofing设为True：

Sub Proofing()
    ActiveDocument.Content.NoProofing = True
End Sub

方案2：按段落精准处理 #

如果需要针对段落级别的内容控制，可遍历所有段落：

Sub ProofingByParagraphs()
    Dim para As Paragraph
    For Each para In ActiveDocument.Paragraphs
        para.Range.NoProofing = True
    Next para
End Sub

方案3：修复原单词遍历逻辑 #

若坚持使用单词遍历方式，需修正范围并过滤无效元素：

Sub ProofingFixed()
    Dim i As Integer
    Dim wordCount As Integer
    wordCount = ActiveDocument.Words.Count
    
    For i = 1 To wordCount
        ' 跳过空的分隔符（如单独空格、换行）
        If Trim(ActiveDocument.Words(i).Text) <> "" Then
            ActiveDocument.Words(i).NoProofing = True
        End If
    Next i
End Sub

额外说明 #

Word 2003中NoProofing是字符级属性，需确保目标文本未被锁定格式或继承了冲突的样式设置。针对XLSX转Word后丢失拼写检查记录的场景，设置该属性为True可标记内容无需拼写检查，以此模拟“已完成拼写检查”的状态。

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