1

Тема: Перемещение по документу с использованием броузера

При использовании броузера Word перемещение по документу происходит командой, например

Application.Browser.Target = wdBrowseHeading
Application.Browser.Next

При достижении последнего элемента (в данном случае заголовка) перемещения курсора не происходит.
Как программно получить информацию о том, что команда Application.Browser.Next не выполнена

2

Re: Перемещение по документу с использованием броузера

Сравнивать положение курсора (Selection.Start) с предыдущим

Лучше день потерять — потом за пять минут долететь!

3

Re: Перемещение по документу с использованием броузера

Спасибо, но подобные варианты я знаю. Просто интересовался, может есть какая-либо специальная функция. Ведь по сути дела не происходит выполнение команды, а значит, по идее должен сработать какой-то обработчик ошибок, следовательно следы гдет-то должны быть!

4

Re: Перемещение по документу с использованием броузера

Попробовал я этот метод. Очень удобно!

Sub test()
  Dim st As Long

  Selection.HomeKey wdStory
  st = Selection.Start
  With Application.Browser
    .Target = wdBrowseHeading
    .Next
    Do While st <> Selection.Start
      'Здесь делаем нужные манипуляции
      st = Selection.Start
      .Next
    Loop
  End With
End Sub

Спасибо за наводку!

Лучше день потерять — потом за пять минут долететь!

5

Re: Перемещение по документу с использованием броузера

извините, что то я таким:
При использовании броузера Word перемещение по документу происходит командой, например

не сталкивался никогда, можете поясните что это такое, для чего нужно

6

Re: Перемещение по документу с использованием броузера

Броузер Word это маленький кружочек между двумя стрелочками (вверх-вниз) под полосой вертикальной прокрутки.
Нажатие на кружок жает возможность выбора из меню элемента документа для перехода к нему. После этого нажатие на одну из стрелочек позволяет переместиться вперед или назад по тексту до ближайшего выбранного элемента.

7

Re: Перемещение по документу с использованием броузера

так то понятно, но столкнулся с тем что горизонтальная прокрутка в документе имеется а вертикальной нет, какая опция отвечает за её появление, главное и в документе с большим количеством листов она отсутствует

8

Re: Перемещение по документу с использованием броузера

В 2007 Кнопка Офис - Параметры Ворд - Дополнительно - Экран - Показывать вертикальную полосу прокрутки.
В 2003 не помню, но тоже где-то в Параметрах

9

Re: Перемещение по документу с использованием броузера

спасибо!!

10

Re: Перемещение по документу с использованием броузера

В Офисе 2003 Сервис Параметры - Вид - Показывать - Показывать вертикальную полосу прокрутки