Можно ли в ворде обрезать слова которые >4 символов.. . 4 первых оставить например, остальное удалить

Sub ипетрова ()
Dim word As Object
Dim wText As String

For Each word In ActiveDocument.Words
word.Select
wText = Trim(Selection.Text)
If Len(wText) > 4 Then Selection.Text = Left(wText, 4) & " "

Next
End Sub