Закладки в Word - вроде простая вещь

@Oleg_T · Регистрация: 03.04.2008

Author24 — интернет-сервис помощи студентам

Как реализовать последовательный переход по закладкам в Word?
Делаю следующее:

Dim Doc1 As Word.Application
Set Doc1 = CreateObject('Word.Application')
Doc1.Documents.Open (App.Path & 'Report.doc')

'здесь мне нужно последовательно перебирать закладки, и по
'их названиям подставлять соответственно текст
'что-то вроде select case с Doc1.Selection.bookmarks(n)

'если знаем имя закладки, то можем к ней перейти:
Doc1.Selection.GoTo What:=wdGoToBookmark, Name:='Первая закладка'
Doc1.Selection.InsertAfter 'Текст для первой закладки'
'итд

'но я не знаю, какая закладка стоит первой и как ее имя
'в общем, подскажите пожалуйста - как из последовательно перебирать
'и как определить конец текста?

@Korolana · 28.04.2009, 21:51

Bookmarks are the collection of objects. So, you can loop as:

Dim o As Bookmark
For Each o In ActiveDocument.Bookmarks
Next

@Oleg_T · 29.04.2009, 07:42 **[ТС]**

Thank you, to me very much have helped to you.

@Oleg_T 0 / 0 / 0 Регистрация: 03.04.2008 Сообщений: 39
		1
	Закладки в Word - вроде простая вещь 28.04.2009, 07:18. Показов 1765. Ответов 2 Метки нет (Все метки) Как реализовать последовательный переход по закладкам в Word? Делаю следующее: Dim Doc1 As Word.Application Set Doc1 = CreateObject('Word.Application') Doc1.Documents.Open (App.Path & 'Report.doc') 'здесь мне нужно последовательно перебирать закладки, и по 'их названиям подставлять соответственно текст 'что-то вроде select case с Doc1.Selection.bookmarks(n) 'если знаем имя закладки, то можем к ней перейти: Doc1.Selection.GoTo What:=wdGoToBookmark, Name:='Первая закладка' Doc1.Selection.InsertAfter 'Текст для первой закладки' 'итд 'но я не знаю, какая закладка стоит первой и как ее имя 'в общем, подскажите пожалуйста - как из последовательно перебирать 'и как определить конец текста? 0

@Korolana 1 / 1 / 0 Регистрация: 27.08.2008 Сообщений: 154
	28.04.2009, 21:51	2
	Bookmarks are the collection of objects. So, you can loop as: Dim o As Bookmark For Each o In ActiveDocument.Bookmarks Next 0

@Oleg_T 0 / 0 / 0 Регистрация: 03.04.2008 Сообщений: 39
	29.04.2009, 07:42 [ТС]	3
	Thank you, to me very much have helped to you. 0