powered by simpleCommunicator - 2.0.53     © 2025 Programmizd 02
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Помогите докрутить макрос
4 сообщений из 4, страница 1 из 1
Помогите докрутить макрос
    #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
Помогите докрутить макрос
    #38552886
Фотография Antonariy
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Как-то так:

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

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


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