Автозапуск макроса

[Nykolyn]

Sub Test()
Selection.MoveLeft Unit:=wdWord, Count:=3, Extend:=wdExtend
Selection.Copy
Dim iData As DataObject
Set iData = New DataObject
iData.GetFromClipboard
iText = iData.GetText
Selection.Find.ClearFormatting
With Selection.Find
.Text = iText
.Replacement.Text = ""
.Forward = False
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute
End Sub

Подскажите плиз, нужно чтобы этот макрос сам запускался, когда нажимаю пробел
То есть после каждого введенного слова

[Вождь]

Привязка макроса к нажатию клавиши "Пробел":

    CustomizationContext = ActiveDocument 'NormalTemplate
    KeyBindings.Add _
        KeyCode:=BuildKeyCode(Arg1:=Word.wdKeySpacebar), _
        KeyCategory:=Word.wdKeyCategoryMacro, _
        Command:="Test"

В текст пробел придется вставлять самому, макросом. Например так:

Selection.TypeText " "