[Nykolyn]

Сообщение от lmikle

Ну, вообще, если не ошибаюсь, то можно сделать по вводу пробела автоматический запуск.

Не знаю ерунда какая-то выходит, не получается сделать шаг:

Код:

Sub Test()
    Selection.MoveLeft Unit:=wdWord, Count:=3, Extend:=wdExtend
    Selection.Copy
    Selection.Find.ClearFormatting
    With Selection.Find
        .Text = "(нужно чтобы вот тут вставлялись скопированные три слова)"
        .Replacement.Text = ""
        .Forward = True
        .Wrap = wdFindAsk
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute
End Sub