VPF::Макрос в ворде - Форум программистов

HellanD

Дата 30.10.2006, 16:45 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 443
Регистрация: 16.5.2006
Где: Киев

Репутация: нет
Всего: 2

Или что то с этим связаное...
Задаче вобщем такая надо создать стиль для подписей рисунков содержащий
слово рис. + номер
Номер надо вычислять по числу вхождений этого самого стиля...
Подскажите где такое можно прописать.

--------------------

Мой сайт на django
Japanese Innovations

Aloha

Дата 30.10.2006, 17:22 (ссылка)

(нет голосов)

Загрузка ...

Профиль
Группа: Участник Клуба
Сообщений: 351
Регистрация: 14.5.2006

Репутация: 5
Всего: 165

HellanD

Если важен конечный результат, а именно: создание подрисуночных подписей, содержащих

Цитата

слово рис. + номер

то можно попробовать так:

Код

Dim x As InlineShape
CaptionLabels.Add Name:="Рис."
For Each x In ActiveDocument.InlineShapes
  If x.Type = wdInlineShapePicture Then
    x.Range.InsertCaption Label:="Рис.", _
                          Position:=wdCaptionPositionBelow
  End If
Next

Подразумевается, что рисунки находятся в тексте документа (а не в виде плавающих объектов)

Второй вариант – создать собственный стиль с использованием нумерованного списка

Открываем панель "Стили и форматирование": Формат > Стили и форматирование
Жмем кнопку "Создать стиль" (если нужно – в поле "Имя" задаем новое имя стиля, а также ставим флажок "Обновлять автоматически")
В диалоге "Создание стиля" жмем кнопку "Формат" и выбираем пункт "Нумерация"
В диалоге "Список" выбираем вкладку "Нумерованный"
Выбираем второй слева вариант и жмем кнопку "Изменить”
В диалоге "Изменение нумерованного списка" в поле "Формат номера" ставим курсор в крайнюю левую позицию и вводим "Рис. " (при этом важно, чтобы в этом поле осталась исходная запись: 1.)

Или так:

Код

Dim v_Style As Style
Dim v_ListTemplate As ListTemplate

Set v_Style = ActiveDocument.Styles.Add("Подписи к рисункам", wdStyleTypeParagraph)
Set v_ListTemplate = ListGalleries(wdNumberGallery).ListTemplates(1)
v_ListTemplate.ListLevels(1).NumberFormat = "Рис. %1."
v_Style.LinkToListTemplate v_ListTemplate

Это сообщение отредактировал(а) Aloha - 31.10.2006, 00:56

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Программирование, связанное с MS Office \| Следующая тема »