VBA Word - 使用If函数插入文本，并更改​​文本字体

Question

我是编码的初学者，所以请耐心等待。有没有办法使用函数如果插入文本（使用TypeText），然后更改使用VBA Word添加的文本的字体？

所以我会告诉你一些我正在做的事情;我使用以下代码来计算文档中拼写错误的数量。

Sub countErrors()
    MsgBox (ActiveDocument.SpellingErrors.count)
End Sub

我想要做的是使用If函数来解决存在的拼写错误的数量。如果有任何拼写错误，我想在文档的顶部插入文字，说＆＃34; REJECTED＆＃34;字体为红色，粗体和大小14.有没有办法使用If函数？

我尝试在上面的代码中添加以下内容;

Sub countErrors()
    Msgbox (ActiveDocument.SpellingErrors.count)
    If SpellingErrors <= 1 then
    Selection.HomeKey unit:=wdStory
    With Selection
        .Font.Size = 14
        .Font.ColorIndex = wdRed
        .Font.Bold = True
    End With
    Selection.TypeText ("REJECTED ")
    End If
End Sub

代码只计算拼写错误的数量并显示带有它的MsgBox，然后是代码结束的地方 - 它不会添加任何文本等。

有人可以让我知道我哪里出错吗？这非常令人沮丧。

提前谢谢。

Answer 1

您的代码需要检查SpellingErrors是否大于零。

Sub CountErrors()

MsgBox "The document currently has " & ActiveDocument.SpellingErrors.Count & " spelling error(s)."

If ActiveDocument.SpellingErrors.Count > 0 Then
    Selection.HomeKey unit:=wdStory
    With Selection
        .Font.Size = 14
        .Font.ColorIndex = wdRed
        .Font.Bold = True
        .TypeText "REJECTED"
    End With
End If

End Sub