word单字成行标红（目录生成前运行）

此代码目前发现在目录生成后使用会报错，建议生成目录前使用。
另，偶有使用后结果有些差异，但目前来看，对于上百页的排版来说，还是比较方便。

Sub word单字成行标红_段落掉字1232314545()
Rem 部分情况下含表格不行会报错
Rem 方便排查单字成行，但需要手动进行进一步处理
Application.ScreenUpdating = False
Dim doc As Document, Rng As Range, Par As Paragraph, lineCount%
Dim LineStart&, LineEnd&
Set doc = ActiveDocument
For Each Par In doc.Paragraphs
lineCount = Par.Range.ComputeStatistics(wdStatisticLines) '段落行数
If Par.Range.Tables.Count = 0 Then 'If Par.Range.Information(12) = False Then
If lineCount > 1 Then
Set Rng = doc.Range(Par.Range.Start, Par.Range.Start)
LineStart = Rng.GoTo(wdGoToLine, wdGoToNext, lineCount - 1).Start
LineEnd = Par.Range.End
If LineStart > LineEnd Then
MsgBox "段落掉字出问题"
Exit Sub
End If
Set Rng = doc.Range(LineStart, LineEnd)
If Len(Rng) <= 3 Then Rng.Font.ColorIndex = wdRed
End If
End If
Next
Application.ScreenUpdating = True
MsgBox "操作完毕！"
End Sub