Гость
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Помогите докрутить макрос / 4 сообщений из 4, страница 1 из 1
07.02.2014, 09:00
    #38552792
Kromm
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Помогите докрутить макрос
День добрый!
Помогите пожалуйста добавить новое условие в макрос.
Есть макрос, который обновляет все поля в документе MS Word. Прописываю его в шаблон Normal и все отлично работает.
Нужно, что бы он обновлял в документе только определенные поля - IF и DOCVARIABLE. А остальные не трогал. Как это прописать в него?
Вот исходный текст макроса:

Sub AutoOpen()
Dim aStory As Range
Dim aField As Field
Dim myTOC As TableOfContents
For Each aStory In ActiveDocument.StoryRanges
For Each aField In aStory.Fields
aField.Update
Next aField
Next aStory
For Each myTOC In ActiveDocument.TablesOfContents
myTOC.Update
Next myTOC
End Sub
...
Рейтинг: 0 / 0
07.02.2014, 10:29
    #38552886
Antonariy
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Помогите докрутить макрос
Как-то так:

Код: vbnet
1.
If aField.Name = "IF" Or aField.Name = "DOCVARIABLE" then aField.Update
...
Рейтинг: 0 / 0
07.02.2014, 10:37
    #38552908
Kromm
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Помогите докрутить макрос
Antonariy,
Ок, спасибо! Попробую :)
...
Рейтинг: 0 / 0
07.02.2014, 10:47
    #38552925
Shocker.Pro
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Помогите докрутить макрос
Kromm,

Модератор: Учимся использовать тэги оформления кода - FAQ
...
Рейтинг: 0 / 0
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Помогите докрутить макрос / 4 сообщений из 4, страница 1 из 1
Целевая тема:
Создать новую тему:
Автор:
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]