Форум программистов, компьютерный форум, киберфорум
VBA
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.91/11: Рейтинг темы: голосов - 11, средняя оценка - 4.91
Spot123
0 / 0 / 0
Регистрация: 24.12.2009
Сообщений: 3
1

Как написать макрос для автоматической пронумеровки картинок в Word

24.12.2009, 09:28. Просмотров 2277. Ответов 4

Никак не получается написать макрос(
В документ вставленно несколько картинок, нужно чтобы под каждой из картинок создалась подпись(в формате рис.1, рис.2 и т.д)
Помогите пожалуйста!
0
QA
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
24.12.2009, 09:28
Ответы с готовыми решениями:

Макрос для автоматической вставки картинок из заданной папки в ворд
Доброй ночи. Кто может помочь в создании макроса. Суть такова: есть папка, в которой находятся...

Написать макрос для Word, который будет делать автосумму как в Excel
Здравствуйте, помогоите пожалуйста написать макрос для Word, который будет делать автосумму как в...

Помогите написать макрос для Word
Проблема такая : в огромном тексте расставлены абзацы. Абзац-это английское словосочетание и его...

Написать макрос для изменения цвета в документе Word
Здравствуйте! Нужен макрос для изменения цвета выделения(т.е цвета фона) всех согласных букв в...

4
Busine2009
Заблокирован
24.12.2009, 20:14 2
Spot123,
начнём с того, что все картинки нужно перевести в InlineShape.
Вот ключевое выражение для 1-ого этапа:
Visual Basic
1
ConvertToInlineShape
Чтобы это применить ко всем Картинкам надо использовать Цикл.
1
Spot123
0 / 0 / 0
Регистрация: 24.12.2009
Сообщений: 3
24.12.2009, 21:56  [ТС] 3
Спасибо! Если не трудно, можешь расписать поподробнее?
0
Busine2009
Заблокирован
25.12.2009, 07:57 4
Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub Picture()
Dim oShape As Shape
Dim oInlineShape As InlineShape
CaptionLabels.Add Name:="рис."
For Each oShape In ActiveDocument.Shapes
    oShape.ConvertToInlineShape
Next
For Each oInlineShape In ActiveDocument.InlineShapes
    oInlineShape.Select
    Selection.InsertAfter Chr(13)
    Selection.MoveDown
    Selection.InsertCaption Label:="рис."
Next
End Sub
0
Spot123
0 / 0 / 0
Регистрация: 24.12.2009
Сообщений: 3
25.12.2009, 21:54  [ТС] 5
Спасибо огромное!!!очень выручил!
0
25.12.2009, 21:54
Answers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
25.12.2009, 21:54

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь.

Вставка картинок из папки вместо слов (макрос в Word)
Добрый день! Подскажите, пожалуйста, как осуществить множественную замену слов на картинки? Важно...

Макрос для автоматической нумерации строк
Подскажите, пожалуйста, как исправить макрос чтобы строки нумеровались автоматически на листе, а...

Макрос для автоматической вставки фото в лист Excel
Подскажите макрос вставить фото как фон к примечанию в Excel. Пример в файле. Фото в столбце 2.

Нужен макрос для автоматической замены переменных в формулах
Доброго дня всем! Пожалуйста, помогите написать макрос. В прикрепленном файле Пример макрос...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
5
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2020, vBulletin Solutions, Inc.