Можно ли средствами VB&VBA сделать следующее:

@[TUES]ZandR · Регистрация: 29.08.2007

Author24 — интернет-сервис помощи студентам

Ребята, срочно ! Есть таблица в Word.
Первый столбец - это порядковый номер строки.
Таких строк - 913 ! Уморишься нумеровать их.
Можно ли ускорить этот процесс?
Вот так:
1
2
3
4
5
...
913

Спасибо.
ZandR

26.09.2007, 21:14

Если первый столбец гарантированно пустой,
то ставишь курсор в первую ячейку (которая должна быть под номером 1) и далее из меню 'сервис->макрос->макросы->создать' создаешь макрос, вставляешь в него такой код

Visual Basic

    For i = 1 To 913
        Selection.TypeText Text:=Str(i)
        Selection.MoveDown Unit:=wdLine, Count:=1
    Next

и запускаешь - работает

@Andy1974 · 27.09.2007, 04:50

Схема такова:

Visual Basic

Dim s As String, i As Integer [Long-?]
For i = [от] To [До]
  s$ = s$ & rim(Str(i)) & Chr$(9) & [Текст_Далее]
Next

[Конвертирование_В_Таблицу]

@[TUES]ZandR 0 / 0 / 0 Регистрация: 29.08.2007 Сообщений: 64
		1
	Можно ли средствами VB&VBA сделать следующее: 26.09.2007, 20:31. Показов 818. Ответов 2 Метки нет (Все метки) Ребята, срочно ! Есть таблица в Word. Первый столбец - это порядковый номер строки. Таких строк - 913 ! Уморишься нумеровать их. Можно ли ускорить этот процесс? Вот так: 1 2 3 4 5 ... 913 Спасибо. ZandR 0

	27.09.2007, 04:50