Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Microsoft Office и VBA программирование > Microsoft Office Word
Регистрация

Восстановить пароль

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 04.10.2011, 23:30   #1
bdfy
Форумчанин
 
Регистрация: 12.11.2009
Сообщений: 258
По умолчанию Сквозная нумерация таблиц рисунков формул по документу

сейчас для нумерации таблиц/рисунков/формул добавляю два вот таких поля
{STYLEREF 1 \s}.{SEQ Таблица \* ARABIC \s 1}
причем уже даже не помню как это в ворде делается - просто копирую из документа в документ. получается нумерация в пределах раздела. вида 1.1 1.2 и т.д.
а как сделать сквозную нумерацию через весь документ ?
bdfy вне форума Ответить с цитированием
Старый 05.10.2011, 02:24   #2
viter.alex
Балуюсь кодами
Участник клуба
 
Аватар для viter.alex
 
Регистрация: 09.01.2009
Сообщений: 1,837
По умолчанию

{SEQ Таблица \* ARABIC \s 1}
Убрать отсюда "\s 1"
Лучше день потерять — потом за пять минут долететь!©
viter.alex вне форума Ответить с цитированием
Старый 05.10.2011, 03:43   #3
bdfy
Форумчанин
 
Регистрация: 12.11.2009
Сообщений: 258
По умолчанию

то что надо. а вот как бы еще автозамену сделать по документу....
заменить {STYLEREF 1 \s}.{SEQ Таблица \* ARABIC \s 1}
на {SEQ Таблица \* ARABIC}
обычное "найти-заменить" работать в данном случае ведь не будет ((
bdfy вне форума Ответить с цитированием
Старый 17.10.2011, 19:41   #4
bdfy
Форумчанин
 
Регистрация: 12.11.2009
Сообщений: 258
По умолчанию

нумерацию сейчас вставляю макросом
Код:
    .Range.InsertCaption label:="Рисунок", TitleAutoText:="", _
        Title:="-" & text, Position:=1, ExcludeLabel:=0
а как вставить нумерацию простую без \s 1
bdfy вне форума Ответить с цитированием
Старый 17.10.2011, 19:46   #5
bdfy
Форумчанин
 
Регистрация: 12.11.2009
Сообщений: 258
По умолчанию

можно вот так
Код:
    With CaptionLabels("Рисунок")
        .NumberStyle = wdCaptionNumberStyleArabic
        .IncludeChapterNumber = False
    End With
но это влияет похоже вообще на все ссылки потом. во всех документах.
bdfy вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Количество рисунков и таблиц - Поле VistaSV30 Microsoft Office Word 10 03.06.2024 17:44
Нумерация рисунков dima9 Microsoft Office Word 18 30.06.2016 12:04
Расчет некоторых формул в ворде из таблиц. Mixasik Microsoft Office Word 4 16.07.2009 09:05
Форматирование таблиц и рисунков Ludmila Microsoft Office Word 24 09.10.2007 13:56
Нумерация рисунков и таблиц в Word coolsolver Microsoft Office Word 1 18.09.2007 09:27