استعمال Agent لقراءة النص في برنامج MS Word

هذا الكود يوضع بعد انشاء UserForm ووضع زر امر به

وكتابة اي جمله في المستند الحالي ثم الانتقال لمحرر فيجول بيسك وتشغيل الكود لقراءة النص

Dim Merlin As IAgentCtlCharacterEx
'this sets Merlin as an object
Const DATAPATH = "Merlin.acs"
'this sets Merlin's datapah

Private Sub UserForm_Initialize()
    Agent1.Characters.Load "Merlin", DATAPATH
    'This loads the character's animations
    Set Merlin = Agent1.Characters("Merlin")
    'This sets him as "Merlin"
    Merlin.LanguageID = &H409
    'This loads his language (i.e. german,
    'english, etc.)
    Merlin.Show
End Sub

Private Sub CommandButton1_Click()
    Merlin.Speak Word.ActiveDocument
    'This makes Merlin read the document's name
    Dim strSpeak() As String
    strSpeak = Split(Word.ActiveDocument.Content, ".")
    For i = 0 To UBound(strSpeak)
        Merlin.Speak strSpeak(i) & "."
    Next
    'This makes merlin read the document's content
End Sub

حاولت ان اصنع زر امر أو ادمج الكود في المستند لتشغيل الكود بدون الحاجة للـ Form ولم تنجح محاولاتي

امل منكم المساعدة

ولتزيل المثال من هنا