[Iska]

Если все так сложно, »

Нет:

Код:

Option Explicit

Sub ActivateSoundRecorderObject()
    With Selection.InlineShapes
        Select Case .Count
            Case 1
                With .Item(1)
                    If .Type = wdInlineShapeEmbeddedOLEObject Then
                        With .OLEFormat
                            If .ProgID = "SoundRec" And .ClassType = "SoundRec" Then
                                .DoVerb wdOLEVerbOpen
                                
                                With Application.Tasks
                                    If .Exists("Звуковой объект в " & ActiveDocument.Name & "") Then
                                        .Item("Звуковой объект в " & ActiveDocument.Name & "").Activate
                                    End If
                                End With
                            Else
                                MsgBox "В выделении отсутствуют внедрённые объекты типа «Звукозапись»", vbExclamation + vbOKOnly
                            End If
                        End With
                    Else
                        MsgBox "В выделении отсутствуют внедрённые объекты", vbExclamation + vbOKOnly
                    End If
                End With
            Case 0
                MsgBox "В выделении отсутствуют объекты", vbExclamation + vbOKOnly
            Case Else
                MsgBox "В выделении слишком много объектов", vbExclamation + vbOKOnly
        End Select
    End With
End Sub

Назначайте его вызов на горячую клавишу, либо на кнопку на панели инструментов (или как оно там в Office 2010 зовётся).