1 Тема от andrkar

  • andrkar
  • Модератор
  • Неактивен
  • Откуда: Томск
  • Зарегистрирован: 10.03.2010
  • Сообщений: 431
  • Поблагодарили: 26

Тема: Переход на следующую страницу - как событие

Можно ли отследить переход, а точнее добавление новой страницы в документе, чтобы выполнить после этого определенное действие на этой новой странице???

2 Ответ от Вождь

  • Переход на следующую страницу - как событие
  • Вождь
  • Модератор
  • Неактивен
  • Зарегистрирован: 07.01.2010
  • Сообщений: 745
  • Поблагодарили: 181

Re: Переход на следующую страницу - как событие

Не оптимально, но можно использовать такой метод:
1. При активации документа запомнить начальное количество страниц.
2. При изменении документа следить за текущим количеством страниц.

Private N1&

Private Sub appWord_WindowActivate(ByVal Doc As Word.Document, ByVal wN As Word.Window)
' Occurs when any document window is activated
    N1 = Selection.Information(wdNumberOfPagesInDocument)
End Sub

Private Sub appWord_WindowSelectionChange(ByVal Sel As Word.Selection)
' Occurs when the selection changes in the active document window
Dim N2&
    N2 = Selection.Information(wdNumberOfPagesInDocument)
    If N2 = N1 Then
    Else
        If N2 > N1 Then
            ' добавлены страницы
        Else
            ' удалены страницы
        End If
        N1 = N2
    End If
End Sub

Отредактировано Вождь (18.04.2010 07:04:58)

Макросы под заказ и готовый пакет - mtdmacro.ru

СайтВождь