Подчёркивание красной линией

[Syltan]

Скажите, как в ворд подчеркнуть, красной линией, чёрное слово?

[viter.alex]

Очень просто.

Sub UnderlineBlackWord()
  Dim oWord As Range
  For Each oWord In ActiveDocument.Words
    With oWord
      If .Font.Color = wdColorAutomatic Then
        .Font.Underline = wdUnderlineWavy
        .Font.UnderlineColor = wdColorRed
      Else: .Font.Underline = wdUnderlineNone
      End If
    End With
  Next
End Sub

[Fiesta200]

Формат - Шрифт - Подчеркивание. А там можете выбрать и стиль, и цвет