ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Нумерация в таблице Word
8 сообщений из 8, страница 1 из 1
Нумерация в таблице Word
    #34836511
Sebastian
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Sebastian
Участник
Добрый день!
Как макросом пронумеровать здоровенную таблицу в Ворде?
Причём начинать надо не с первой строки т.к. там заголовки столбцов, а со второй или даже третьей.
...
Рейтинг: 0 / 0
29.09.2007, 18:38:31
| Ответить | Цитировать | Написать  
Нумерация в таблице Word
    #34836945
Sebastian
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Sebastian
Участник
Никто не знает?
...
Рейтинг: 0 / 0
30.09.2007, 14:27:06
| Ответить | Цитировать | Написать  
Нумерация в таблице Word
    #34836979
Deggasad
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Deggasad
Участник
Если честно. без издёвок:
мне например не очень понятно что такое
Sebastian пронумеровать здоровенную таблицу в Ворде
если это действие всем кто в ворде лабает известное, то пардон.
Если же это означает что-то типа : добавить впериде столбец и внём поставить номер строки начиная со 2-й, то этого в вопросе не написано. Или может присоединить к тексту уже имеющемуся в первом столбце текст с номером в формате "00", такого тоже не читается.

Вот например нумерация в первом столбце с заменой содержимого ячеек

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
Dim iCel As Cell
Dim firstRow As Long, n As Long
' с какой строки начинать
firstRow =  3 

  For Each iCel In ActiveDocument.Tables( 1 ).Columns( 1 ).Cells
   If iCel.RowIndex >= firstRow Then
     n = n +  1 
     iCel.Range.Text = n
   End If
  Next
...
Рейтинг: 0 / 0
30.09.2007, 15:28:07
| Ответить | Цитировать | Написать  
Нумерация в таблице Word
    #34836996
Sebastian
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Sebastian
Участник
Ой, спасибо! Воистину "стучите и вам откроют..."
А можно сделать так, чтобы при удалении или добавлении строк нумерация тоже менялась (чтобы каждый раз заново не нумеровать)?
...
Рейтинг: 0 / 0
30.09.2007, 16:13:40
| Ответить | Цитировать | Написать  
Нумерация в таблице Word
    #34837037
Deggasad
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Deggasad
Участник
SebastianОй, спасибо! Воистину "стучите и вам откроют..."
А можно сделать так, чтобы при удалении или добавлении строк нумерация тоже менялась (чтобы каждый раз заново не нумеровать)?

Я в ворде не особо силён. так попробовал вам помочь, но не пойму зачем вам вообще геморой с макросами нужен. Ведь это всё через нумерованные стили отлично делается.
На всякий случай:
Выделяете первый столбец
Меню формат - список - вкладка нумерованный - выбираете какой нравится и жмёте Ок. Потом сколько угодно строк добавляйте. Вообще со стилями много возможностей по поводу нумерации, уровни, прерывания, сквозные. Вообщем есть чем поиграться, а самому делать подобный механизм - зачем?
...
Рейтинг: 0 / 0
30.09.2007, 17:24:44
| Ответить | Цитировать | Написать  
Нумерация в таблице Word
    #34837061
Sebastian
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Sebastian
Участник
Оно конечно так. Про нумерованные списки я знаю и этим пользуюсь, но всё же....
Получается написать через макрорекордер, но как там указать с какой строки надо начинать нумерацию? По сравнению со мной - вы АС.
Спасибо огромное!
...
Рейтинг: 0 / 0
30.09.2007, 17:57:55
| Ответить | Цитировать | Написать  
Нумерация в таблице Word
    #34837240
Deggasad
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Deggasad
Участник
Если не рассматривать вопрос програмного создания новых стилей (это можно сделать через запись макроса если нужно) и предположить что у вас уже есть 2 стиля:
- "СтильНумерацииСтрокТаблицы"
- "СтильЗаголовкаТаблицы"

то дальше их нужно только один раз применить к нужным ячейкам

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
Dim iCel As Cell
Dim firstRow As Long
' с какой строки начинать
firstRow =  2 

  For Each iCel In ActiveDocument.Tables( 1 ).Columns( 1 ).Cells
   If iCel.RowIndex >= firstRow Then
        iCel.Range.Style = ActiveDocument.Styles("СтильНумерацииСтрокТаблицы")
     Else
        iCel.Range.Style = ActiveDocument.Styles("СтильЗаголовкаТаблицы")
   End If
  Next
...
Рейтинг: 0 / 0
30.09.2007, 21:54:28
| Ответить | Цитировать | Написать  
Нумерация в таблице Word
    #34839623
Sebastian
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Sebastian
Участник
Спасибо.
...
Рейтинг: 0 / 0
01.10.2007, 23:45:15
| Ответить | Цитировать | Написать  
8 сообщений из 8, страница 1 из 1
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Нумерация в таблице Word
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=61&fpage=263&tid=2182180]:
 0ms
get settings:
 5ms
get forum list:
 16ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 293ms
get topic data:
 13ms
get forum data:
 5ms
get page messages:
 67ms
get tp. blocked users:
 2ms
others: 195ms
total:  602ms
созд. / загр.: 602ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]