|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
|
Опции темы | Поиск в этой теме |
07.06.2012, 12:40 | #1 |
Форумчанин
Регистрация: 09.06.2011
Сообщений: 146
|
Как обновить только CaptionLabels???
Доброго всем времени суток!!!
Подскажите пожалуйста макрос который обновляет только CaptionLabels не все поля (Fields). Второй день бьюсь ничего не придумывается(( Заранее благодарен!!! |
07.06.2012, 14:47 | #2 |
Форумчанин
Регистрация: 29.09.2008
Сообщений: 378
|
В упрощенном виде где-то так:
Код:
Макросы на заказ и готовый пакет - http://mtdmacro.ru/
|
08.06.2012, 12:53 | #3 |
Форумчанин
Регистрация: 09.06.2011
Сообщений: 146
|
Уважаемый, Вождь, спасибо за ответ!!!
Но видимо у меня не все так просто - в моем документе имеется огромное количество разных связей с Excel, авто нумерация страниц (по ГОСТу она у меня двойная снизу и сверху, при этом верхняя зависит от нижней т.е. отличается на определенное значение), и нумерация ссылок на таблицы (выглядит как "такие-то данные приведены в таблице 1") Вот мой макрос, который вставляет слово "таблице 1" в конец предложения. Sub ТаблицаСноска() ' ' ТаблицаСноска Макрос ' ' CaptionLabels.Add Name:="таблице" With CaptionLabels("таблице") .NumberStyle = wdCaptionNumberStyleArabic .IncludeChapterNumber = False End With Selection.InsertCaption Label:="таблице", TitleAutoText:="InsertCaption1", _ Title:="", Position:=wdCaptionPositionBelow, ExcludeLabel:=0 End Sub Ваш макрос в моем случае не выполняет цикл, а остается на строке: If F.Type = Word.wdFieldSequence Then Т.е. почему-то оно не равно Может как-то можно привязаться к названию CaptionLabel??? (CaptionLabels.Add Name:="таблице") Помогите пожалуйста! |
08.06.2012, 12:57 | #4 |
Старожил
Регистрация: 24.01.2011
Сообщений: 3,061
|
>Т.е. почему-то оно не равно
а чему же оно равно нужное? может его и ставить, то чему равно |
08.06.2012, 13:31 | #5 |
Форумчанин
Регистрация: 09.06.2011
Сообщений: 146
|
Что означает "F.Type"?
Или как написать For Each F In ActiveDocument.Fields , но не во всех полях, а именно в нужных? |
08.06.2012, 13:34 | #6 |
Форумчанин
Регистрация: 09.06.2011
Сообщений: 146
|
Почему-то у меня F.Type = или 13 или 37 или 88, а Word.wdFieldSequence постоянно 12
|
08.06.2012, 13:49 | #7 |
Старожил
Регистрация: 24.01.2011
Сообщений: 3,061
|
это тип поля
'текстовое поле имеет тип № 70 'флажок имеет тип № 71 'поле со списком имеет тип № 83 'гиперссылка имеет тип № 88 'поле запускающее макрос имеет тип № 51 'поле TOC имеет тип № 13 'поле { } имеет тип № 3 а про какое у Вас речь не пойму выложите файл Ворда 2003 с этим полем |
08.06.2012, 13:51 | #8 |
Старожил
Регистрация: 24.01.2011
Сообщений: 3,061
|
>Word.wdFieldSequence постоянно 12
и пусть будет, а то начнётся хаос |
08.06.2012, 14:00 | #9 |
Форумчанин
Регистрация: 09.06.2011
Сообщений: 146
|
Не получится он весит 80 мб и состоит из разных файлов, т.е. главный документ(((
|
08.06.2012, 14:01 | #10 |
Форумчанин
Регистрация: 09.06.2011
Сообщений: 146
|
Так, а почему же он F.Type не хочет быть 12?
|
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Как обновить indy до 10.5.5 | TwiX | Работа с сетью в Delphi | 14 | 27.07.2011 18:31 |
Одни из jpg файлов реальные JPEG а другие только название. как загрузиь только картинки? | AgressiveBehavior | Общие вопросы Delphi | 1 | 16.09.2009 09:39 |
как обновить Dr web? | jenja | Безопасность, Шифрование | 2 | 09.03.2009 14:23 |
Как обновить?? | Vremya-Dengy | Общие вопросы Delphi | 6 | 17.02.2009 22:44 |
как обновить листбокс? | counter | Win Api | 2 | 16.02.2009 11:42 |