Документы Word могут содержать немного больше, чем текст. Вы также можете включать графические и мультимедийные объекты, такие как аудиоклипы. Обычный способ воспроизведения звукового клипа — это дважды щелкнуть его значок в документе. Что делать, если вы хотите, чтобы звуковой клип начал воспроизводиться при первом открытии документа без необходимости двойного щелчка?

Лучший способ решить эту проблему — использовать макрос. Вы можете легко создать макрос, который автоматически запускается при открытии документа, и макрос может воспроизводить звуковой файл. Вот очень простой макрос, который делает именно это:

Private Sub Document_Open()

ThisDocument.InlineShapes(1).Select     Selection.InlineShapes(1).OLEFormat.DoVerb VerbIndex:=wdOLEVerbPrimary End Sub

Макрос предполагает, что звуковой клип — это самый первый объект, который был встроен в ваш документ. Если нет, вам нужно будет определить номер индекса для клипа в коллекции InlineShapes и использовать это значение индекса в макросе.

В основе макроса используется метод DoVerb, который представляет собой общий способ выполнения различных действий с объектом OLE (в данном случае звуковым файлом). Параметр VerbIndex определяет выполняемое действие.

В этом случае VerbIndex устанавливается равным wdOLEVerbPrimary, что означает «основное действие для объекта OLE этого типа». Поскольку это звуковой файл, основное действие — воспроизвести его.

Возможно, лучший подход — использовать возможности Word для создания закладок в своих интересах. Вы можете использовать закладку, чтобы определить звуковой клип, который хотите воспроизвести, а затем использовать эту информацию в макросе, чтобы определить, что будет воспроизводиться. Рассмотрим следующий макрос:

Private Sub Document_Open()

Selection.GoTo What:=wdGoToBookmark, Name:="WavSound"

Selection.InlineShapes(1).OLEFormat.DoVerb VerbIndex:=wdOLEVerbPrimary End Sub

Этот макрос также предполагает, что звуковой клип встроен в ваш документ. Однако клип должен быть отмечен закладкой с использованием имени WavSound. Макрос выбирает эту закладку (аудиоклип) и воспроизводит ее с помощью метода DoVerb.

Эти подходы отлично работают, если вы хотите воспроизвести звуковой клип, являющийся частью вашего документа. Вы можете захотеть воспроизвести звуковой клип, который не является частью документа. Таким образом, значок аудиоклипа не появляется в документе и портит внешний вид документа.

Для этого нужно попросить Windows API воспроизвести звук за вас. Этот метод работает, когда вы хотите получить доступ к звуковому файлу, который, как вы знаете, уже находится на компьютере, если в системе также установлен проигрыватель Windows Media. Следующий пример должен работать в системе Windows XP. (Макрос может работать или не работать в системе Vista, в зависимости от конфигурации системы.)

Private Declare Function PlaySound Lib "winmm.dll" _   Alias "PlaySoundA" (ByVal IpszName As String, _   ByVal hModule As Long, ByVal dsFlags As Long) As Long

Private Sub Document_Open()

PlaySound "c:\windows\media\tada.wav", ByVal0&, &H1 End Sub

Макрос Document_Open запускается при открытии документа, но вызывает функцию PlaySound. Эта функция определена в закрытом объявлении как псевдоним для метода PlaySoundA файла winmm.dll. Этот метод не запускает сам медиаплеер и ничего не вставляет в тело документа.

_Примечание: _

Если вы хотите знать, как использовать макросы, описанные на этой странице (или на любой другой странице на сайтах WordTips), я подготовил специальную страницу, содержащую полезную информацию.

link: / wordribbon-WordTipsMacros [Щелкните здесь, чтобы открыть эту специальную страницу в новой вкладке браузера].

WordTips — ваш источник экономичного обучения работе с Microsoft Word.

(Microsoft Word — самая популярная программа для обработки текстов в мире.) Этот совет (3902) относится к Microsoft Word 97, 2000, 2002 и 2003.