Sub clearMidWordUnderline()
Dim currChar As Range, prevChar As Range
For Each currChar In ActiveDocument.Content.Characters
If prevChar Is Nothing Then
ElseIf (prevChar.Text = " " Or prevChar.Text = "." Or prevChar.Text = ",") _
And currChar.Font.Underline = 0 And prevChar.Font.Underline = 1 Then
prevChar.Font.Underline = 0
End If
Set prevChar = currChar
Next currChar
End Sub
Пример:Здесь нужно убрать подчеркивание пробела после слова "величины", т.к. последующий текст не подчеркнут, а пробел после слова "квадрата" должен оставаться подчеркнутым, т.к. последующий текст тоже подчеркнут.