Вопрос : Создайте bookmarks для некоторых разделов

Дорогие специалисты: макрос

below выполняет следующий: раздел
Each содержит встроенный тип рубрики (wdStyleHeading2) получает bookmarked. Называть bookmarks следующим образом: Section_Bookmark_i (I = последовательный номер). макросом

This должен быть перезаписанное…
… так, что bookmarks получат названными: Section_Bookmark_DE; Section_Bookmark_EN; Section_Bookmark_ES; Section_Bookmark_FR; Section_Bookmark_IT (будет именем «Section_Bookmark_» bookmark получает приложенным DE, EN, ES, FR, ИМ). следовать за

The применяется к всем документам против этот макрос бежится:
There всегда точно 5 разделов сопрягают
требования…… (ReDim HasHeading2 (ActiveDocument.Sections.Count))

Help очень оценено. Вы очень много заранее.

Regards, Andreas class= " ясное " >
> " codeSnippet " class=
class= " lineNumbers "
class= 
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
>Sub BKMCreatePerSection " class= " id= " codeSnippet829379
class=

Ответ : Создайте bookmarks для некоторых разделов

То будет малая фишка.
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:

Sub BKMCreatePerSection2 ()
    Тусклое rng как ряд
    Тусклый Sec как раздел
    Затемните I как интежер
    Затемните суффикс () как шнур
    Затемните rngBookmark как ряд
    
    Суффикс = разделил («DE, EN, ES, FR, ОНО»,», ")
 
    На каждый Sec в ActiveDocument.Sections
        Установите rng = Sec.Range
        С rng. Находка
            . Форма = True
            . Тип = ActiveDocument.Styles (wdStyleHeading2)
            Установите rngBookmark = Sec.Range
            wdCharacter rngBookmark.MoveEnd, -1
            Если. Исполните после этого
                ActiveDocument.Bookmarks.Add «Section_Bookmark_» & суффикс (I), rngBookmark
                iий = I + 1
            Закончитесь если
        Закончитесь с
    Следующий Sec
        
Подводная лодка конца
Другие решения  
  •  Как я добавляю кнопки на форме PDF для того чтобы добавить/извлекаю рядки данных?
    •
  •  Шнур ошибки в блоке задвижки?
    •
  •  сколько вариант сервера SQL на одной машине
    •
  •  Внешний вид 2007 не может архивный файл открытой сети сохраненный
    •
  •  Активно директория DNS записывает вопрос
    •
  •  Отчет о доступа 2010 экспорта к CSV с коллекторами?
    •
  •  Прокладчик OCE 9400 не начинает
    •
  •  как добавить десятичное место в формуле в отчете о кристалла seagate
    •
  •  Windows XP и Мичрософт Оутлоок и проблемы установителя Windows
    •
  •  VB6 к VS2010 - консультации тренировки?
    •
     
    programming4us programming4us