Как заставить VBA‑код работать только в документе Word

Чтобы ваш код VBA выполнялся только в документе, над которым вы сейчас работаете, а не во всех открытых документах, нужно изменить подход с событий уровня приложения на события конкретного документа или добавить проверки валидности документа. Проблема с текущим кодом в том, что App_DocumentBeforeSave – это событие уровня приложения, которое срабатывает для каждого документа, но его можно изменить так, чтобы обрабатывать только активный документ.

Содержание

• Понимание проблемы
• Решение 1: Использовать события конкретного документа
• Решение 2: Модифицировать события приложения с проверкой документа
• Решение 3: Перенести код в шаблон документа
• Лучшие практики для кода конкретного документа
• Тестирование реализации

Понимание проблемы

Ваш текущий код использует Private WithEvents App As Word.Application, что создаёт обработчики событий уровня приложения. Как описано в документации Microsoft, события приложения, такие как DocumentBeforeSave, срабатывают для всех открытых документов, а не только для того, в котором определён макрос.

Ключевой вывод: события приложения требуют дополнительной логики для определения, какой документ должен обрабатываться, тогда как события конкретного документа естественно ограничивают область действия только содержащим документом.

Решение 1: Использовать события конкретного документа

Самый прямой способ – заменить события уровня приложения на события конкретного документа. События, такие как Document_Open(), Document_New() и Document_BeforeSave(), автоматически срабатывают только для документа, в котором они находятся.

Как изменить ваш код:

' Удалите объявление WithEvents и обработчики событий приложения
' Оставьте только эти события конкретного документа:

Private Sub Document_Open()
    ' Этот код выполняется только при открытии ЭТОГО документа
    Call FixSmartQuotes
    MsgBox "Curly quotes fixed on document open!", vbInformation
End Sub

Private Sub Document_New()
    ' Этот код выполняется только при создании ЭТОГО документа из шаблона
    Call FixSmartQuotes
    MsgBox "Curly quotes fixed on new document!", vbInformation
End Sub

Private Sub Document_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
    ' Этот код выполняется только при сохранении ЭТОГО документа
    Call FixSmartQuotes
    MsgBox "Curly quotes fixed on save!", vbInformation
End Sub

Преимущества:

• Автоматически ограничено конкретным документом – дополнительной проверки не требуется
• Чистая структура кода
• Более эффективное использование ресурсов

Решение 2: Модифицировать события приложения с проверкой документа

Если вы предпочитаете оставить события уровня приложения (например, для кросс-документной функциональности), можно добавить проверку, чтобы убедиться, что событие относится к активному документу. Как изменить существующий код:

Private WithEvents App As Word.Application

Private Sub Document_Open()
    Set App = Word.Application
End Sub

Private Sub Document_New()
    Set App = Word.Application
End Sub

Private Sub App_DocumentBeforeSave(ByVal Doc As Document, SaveAsUI As Boolean, Cancel As Boolean)
    ' Проверяем, относится ли это событие к активному/текущему документу
    If Doc Is ActiveDocument Then
        Call FixSmartQuotes
        MsgBox "Curly quotes fixed in current document!", vbInformation
    End If
End Sub

Альтернативные методы проверки:

' Вариант 1: Сравнение по имени
If Doc.Name = ActiveDocument.Name Then

' Вариант 2: Сравнение по полному пути (надежнее)
If Doc.FullName = ActiveDocument.FullName Then

' Вариант 3: Использовать пользовательское свойство документа (самый надёжный)
If Doc.CustomDocumentProperties("MyDocumentMarker").Value = True Then

Решение 3: Перенести код в шаблон документа

Для документов, создаваемых из шаблонов, можно разместить код непосредственно в модуле ThisDocument шаблона. Как объясняет Word MVP, макросы, такие как AutoOpen(), AutoNew() или AutoClose(), хранящиеся в шаблонах, будут вести себя как события документа при создании или открытии документов из этого шаблона.

' Поместите это в модуль ThisDocument вашего шаблона:

Private Sub Document_Open()
    Call FixSmartQuotes
    MsgBox "Curly quotes fixed for documents from this template!", vbInformation
End Sub

Private Sub Document_New()
    Call FixSmartQuotes
    MsgBox "Curly quotes fixed for new documents from this template!", vbInformation
End Sub

Private Sub Document_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
    Call FixSmartQuotes
    MsgBox "Curly quotes fixed when saving from this template!", vbInformation
End Sub

Лучшие практики для кода конкретного документа

1. Используйте события документа, когда это возможно

События конкретного документа более эффективны и надёжны, чем события приложения с проверкой. Как ясно показано в документации Microsoft, события документа предназначены именно для этой цели.

2. Добавьте обработку ошибок

Всегда включайте обработку ошибок при работе с документами:

Private Sub Document_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
    On Error GoTo ErrorHandler
    Call FixSmartQuotes
    Exit Sub
    
ErrorHandler:
    MsgBox "Error fixing quotes: " & Err.Description, vbExclamation
End Sub

3. Документируйте ваш код

Добавьте комментарии, объясняющие, к какому документу относится код:

' Этот код выполняется только для документов, содержащих этот макрос
Private Sub Document_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
    ' ... ваш код здесь
End Sub

4. Используйте пользовательские свойства для идентификации документа

Для более надёжной идентификации добавьте и проверяйте пользовательские свойства:

Private Sub Document_Open()
    ' Добавляем маркерное свойство для идентификации этого документа
    On Error Resume Next ' Свойство может уже существовать
    ThisDocument.CustomDocumentProperties.Add _
        Name:="MyDocumentCode", Value:=True, LinkToContent:=False
    On Error GoTo 0
    
    Set App = Word.Application
End Sub

Тестирование реализации

Чтобы убедиться, что ваш код конкретного документа работает корректно:

1. Тестируйте с несколькими документами: Откройте несколько Word‑документов и убедитесь, что ваш код выполняется только в целевом документе.
2. Тестируйте различные сценарии:
   • Открытие документа
   • Создание документа
   • Сохранение документа
   • Закрытие документа
3. Отладка через окно Immediate: Добавьте Debug.Print, чтобы отслеживать выполнение:

Private Sub App_DocumentBeforeSave(ByVal Doc As Document, SaveAsUI As Boolean, Cancel As Boolean)
    Debug.Print "DocumentBeforeSave fired for: " & Doc.Name
    If Doc Is ActiveDocument Then
        Debug.Print "Processing active document: " & Doc.Name
        Call FixSmartQuotes
        MsgBox "Curly quotes fixed in current document!", vbInformation
    End If
End Sub

4. Проверьте срабатывание событий: Как отмечают пользователи Stack Overflow, убедитесь, что ваши события срабатывают стабильно в разных сессиях Word.

Заключение

Чтобы ваш VBA‑код выполнялся только в текущем редактируемом документе Word:

1. Используйте события конкретного документа (Document_Open, Document_New, Document_BeforeSave) вместо событий приложения, когда это возможно.
2. Добавьте проверку документа в события приложения, если они необходимы, используя If Doc Is ActiveDocument Then.
3. Рассмотрите перенос кода в шаблоны для документов, создаваемых из конкретных шаблонов.
4. Внедрите надёжную обработку ошибок и документируйте ваш код.
5. Тщательно тестируйте с несколькими документами, чтобы убедиться в корректной работе.

Самый надёжный подход – Решение 1, использование событий конкретного документа, так как он автоматически ограничивает область действия нужным документом без дополнительной логики фильтрации. Это более чистый, эффективный и менее подверженный ошибкам способ.

Источники

1. Microsoft Learn – Using Events with the Document Object
2. Microsoft Learn – Application.DocumentBeforeSave event
3. Word MVP – Running Macros Automatically When Document is Created/Opened/Closed
4. Stack Overflow – How to ensure DocumentBeforeSave code runs only on current document
5. Microsoft Learn – Document.Open event