|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
09.12.2009, 18:24 | #1 |
Регистрация: 09.12.2009
Сообщений: 6
|
макрос добавления названий для таблиц
всем здравствуйте.
у меня есть текстовый документ с огромным количеством страниц. В этом тексте много таблиц, и несколько разделов. помогите написать макрос, который перед каждой таблицей вставляет название по типу "таблица 1.1", где 1.1 - это первая таблица первого раздела. |
09.12.2009, 21:35 | #2 |
Балуюсь кодами
Участник клуба
Регистрация: 09.01.2009
Сообщений: 1,837
|
Привет. Попробуй и напиши о результатах
Код:
Лучше день потерять — потом за пять минут долететь!©
|
13.11.2010, 05:01 | #3 |
Пользователь
Регистрация: 02.11.2010
Сообщений: 55
|
на 160 страничном сложном документе - этот макрос просто летает
и это гораздо удобнее, чем тыкать каждый раз "вставить название таблицы" а как правильно в коде обозначать рисунки и активные диаграммы?? НА figures и pictures ругается и второйраздел не слушается... Sub NumTables() Dim oTbl As Table Dim oRng As Range Application.ScreenUpdating = False For Each oTbl In ActiveDocument.Tables oTbl.Cell(1, 1).Select Selection.SplitTable Set oRng = Selection.Paragraphs.First.Range With oRng .InsertBefore "Таблица " .SetRange .Paragraphs.First.Range.End - 1, .Paragraphs.First.Range.End - 1 ActiveDocument.Fields.Add oRng, wdFieldSection .SetRange .Paragraphs.First.Range.End - 1, .Paragraphs.First.Range.End - 1 .InsertAfter "." .SetRange .Paragraphs.First.Range.End - 1, .Paragraphs.First.Range.End - 1 ActiveDocument.Fields.Add oRng, wdFieldSequence, "Таблица" End With oTbl.Cell(2, 2).Select Selection.SplitTable Set oRng = Selection.Paragraphs.Second.Range With oRng .InsertBefore "Таблица " .SetRange .Paragraphs.Second.Range.End - 1, .Paragraphs.Second.Range.End - 1 ActiveDocument.Fields.Add oRng, wdFieldSection .SetRange .Paragraphs.Second.Range.End - 1, .Paragraphs.Second.Range.End - 1 .InsertAfter "." .SetRange .Paragraphs.Second.Range.End - 1, .Paragraphs.Second.Range.End - 1 ActiveDocument.Fields.Add oRng, wdFieldSequence, "Таблица" End With Последний раз редактировалось npocmop; 13.11.2010 в 05:47. Причина: чуть не забыл спросить.. |
13.11.2010, 11:25 | #4 | |
Пользователь
Регистрация: 23.09.2010
Сообщений: 65
|
npocmop, figures и pictures - нет таких объектов в VBA Word. Для работы с рисунками надо использовать:
Цитата:
|
|
14.11.2010, 19:00 | #5 |
Пользователь
Регистрация: 02.11.2010
Сообщений: 55
|
спасибо :) почитал...
тогда вроде так: приер.rar
но две задачи осталось никак не разгрысть: - ровнять надпись справа по границе рисунка, другим форматом шрифта (мелким и наклонным - как обычно надписи) - привязать к разделу в формате картинка № .. раздела .. |
16.11.2010, 09:44 | #6 | ||
Пользователь
Регистрация: 23.09.2010
Сообщений: 65
|
npocmop,
Цитата:
Документ весь в альбомной ориентации и во всех разделах одинаковые поля? Картинки имеют разную ширину? Цитата:
Код:
Последний раз редактировалось forumWord; 16.11.2010 в 09:47. |
||
16.11.2010, 17:01 | #7 |
Пользователь
Регистрация: 02.11.2010
Сообщений: 55
|
1. ведь обычно всегда в документе есть ещё что-нибудь кроме слов "Картинка №", оформленное стилем "Название объекта".
2. документ не весь в альбомной ориентации и во всех разделах не одинаковые поля. 3. картинки имеют разную ширину. и там полно таблиц, которые нумеруются первым макросом viter.alex, только с разделами пока разбираюсь, с section.. |
16.11.2010, 17:38 | #8 | |
Пользователь
Регистрация: 23.09.2010
Сообщений: 65
|
Цитата:
|
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
процедуры переворотов, добавления, удаления элемента.. для AVL дерева | smalsvoloch | Помощь студентам | 0 | 03.12.2009 20:28 |
Размещение информации из таблиц "Справочников" на форме для добавления-редактирования | vovk | БД в Delphi | 9 | 15.06.2009 21:50 |
Надо макрос для Excel для перестановки букв | dionisprf | Microsoft Office Excel | 2 | 10.06.2009 06:04 |
макрос для сводных таблиц | jisu | Microsoft Office Excel | 4 | 05.05.2009 05:23 |
Совпадение названий программ | mutabor | Свободное общение | 3 | 25.10.2007 19:40 |