Вопрос : Закрепляющ петлей через 4 раздела, изменяя Кодие поля в коллекторах

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

- СВЕРХСЧЕТНАЯ страница и коллектор РОВНОЙ страницы раздела где стрелка в настоящее время пребывает внутри и изменяет Кодего поля {bookmark_DE REF \ h} к {bookmark_EN REF \ h} using VBA. (Внизу Кодий делает)

- Кодий должно ПОСЛЕ ЭТОГО ПОЙТИ ДАЛЬШЕ дальше и петля через следующий 3 (3) раздела и изменить существующий Кодего поля {bookmark_DE REF \ h} в даже и сверхсчетные коллекторах страницы в следующий заказе к… упованию

I


{bookmark_ES REF \ h} {bookmark_FR REF \ h} {bookmark_IT REF \ h} это возможна.

Thank вы очень много заранее для вашей помощи.

Regards, Andreas class= " ясное " >
> " codeSnippet " class=
class= " lineNumbers "
class= 
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
>Sub ModifyHeaderFields " class= " id= " codeSnippet780815
class=

Ответ : Закрепляющ петлей через 4 раздела, изменяя Кодие поля в коллекторах

Здесь одно, котор я подготовил более раньше (перед обедом)
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:

Sub ModifyHeaderFields ()
    Тусклый sec как Word.Section
    Тусклое fld как Word.Field
    Тусклый s как интежер
    Тусклое secStart как интежер
    Тусклые langs () как шнур
    Тусклый h как Word.WdHeaderFooterIndex
    
    langs = разделили («EN, ES, FR, ОНО»,», ")
    
    secStart = Selection.Sections (1).Index
    Для s = от 0 до 3
        Установите sec = ActiveDocument.Sections (secStart + s)
        Для h = wdHeaderFooterPrimary к разделу 2 wdHeaderFooterEvenPages 'снимает первый коллектор страницы
            Для каждого fld в sec. Коллекторы (h). Range.Fields
                Если fld. Тип = wdFieldRef после этого
                    fld. Code.Text = заменяет ть (fld. Code.Text, «bookmark_DE», «bookmark_» &
                    fld. Уточнение
                Закончитесь если
            Следующее fld
        Следующий h
    Следующий s
Подводная лодка конца
Другие решения  
  •  Как я добавляю кнопки на форме PDF для того чтобы добавить/извлекаю рядки данных?
    •
  •  Шнур ошибки в блоке задвижки?
    •
  •  сколько вариант сервера SQL на одной машине
    •
  •  Внешний вид 2007 не может архивный файл открытой сети сохраненный
    •
  •  Активно директория DNS записывает вопрос
    •
  •  Отчет о доступа 2010 экспорта к CSV с коллекторами?
    •
  •  Прокладчик OCE 9400 не начинает
    •
  •  как добавить десятичное место в формуле в отчете о кристалла seagate
    •
  •  Windows XP и Мичрософт Оутлоок и проблемы установителя Windows
    •
  •  VB6 к VS2010 - консультации тренировки?
    •
     
    programming4us programming4us