嘿，新手朋友别担心～这两个需求都完全可以实现，我给你一步步拆解：

一、基于拼写错误数量的If判断逻辑 #

你原来统计拼写错误的代码已经很扎实啦，我们可以直接在这个基础上扩展If条件判断，根据错误数量执行不同操作：

Sub countErrorsAndHandle()
    Dim errorCount As Integer
    errorCount = ActiveDocument.SpellingErrors.Count
    
    ' 根据错误数判断执行逻辑
    If errorCount > 0 Then
        ' 有拼写错误时的操作：弹出提示+插入带格式的提示文本
        MsgBox "文档中发现 " & errorCount & " 处拼写错误！"
        insertAndFormatText("⚠️ 文档存在 " & errorCount & " 处拼写错误，请检查！", vbRed, True)
    Else
        ' 无拼写错误时的操作
        MsgBox "文档未发现拼写错误！"
        insertAndFormatText("✅ 文档拼写检查通过！", vbGreen, False)
    End If
End Sub

二、TypeText插入文本后修改字体的实现 #

TypeText插入文本后，光标会停在文本末尾，我们可以通过调整Range对象选中刚插入的内容，再设置字体属性。我把这个逻辑封装成了通用函数，方便你随时调用：

Sub insertAndFormatText(textContent As String, textColor As Long, isBold As Boolean)
    ' 先插入目标文本
    Selection.TypeText Text:=textContent
    
    ' 选中刚插入的文本：从当前光标位置向左移动对应长度的字符
    Selection.MoveLeft Unit:=wdCharacter, Count:=Len(textContent), Extend:=wdExtend
    
    ' 批量修改字体样式
    With Selection.Font
        .Color = textColor
        .Bold = isBold
        .Size = 12 ' 可选：自定义字号
        .Name = "微软雅黑" ' 可选：自定义字体
    End With
    
    ' 取消选中，光标回到文本末尾
    Selection.Collapse Direction:=wdCollapseEnd
End Sub

小提示 #

• 如果你不想封装函数，也可以直接把插入+修改的逻辑写在If分支里，效果是一样的
• 执行代码前记得把光标放在你想要插入文本的位置，不然会插错地方哦～

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