تفضل المرفق بعد التعديل
والطريقة هي :
من اشرطة الادوات افتح : أدوات / ماكرو / محرر Vicual Basic
ثم الصق هذا الكود ( انظر الى الصورة المرفقة)
Sub Document_open()
'تحديد الكائن
Selection.MoveRight Unit:=wdCharacter, Count:=1, Extend:=wdExtend
'تشغيل الملف الصوتي
Selection.InlineShapes(1).OLEFormat.DoVerb VerbIndex:=wdOLEVerbPrimary
End Sub
تشغيل ملف صوتي.rar