Автоматическая нумерация в Excel при печати документа

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

Решение №1 для Word:

В Word’е  выделяете  нужную цифру и делаете на нее Закладку ( Вставка — Закладка), даете имя закладке. Например number.

Создайте макрос: Вид- Макросы — Создать

Текст макроса:

Sub number_autochanger()
'Увеличение цифры на еденицу
Dim num As Variant
With ActiveDocument
   If .Bookmarks.Exists("number") Then
      .Bookmarks("number").Range.Select
      num = CVar(Selection.Text)
      num = num + 1
      Selection.Text = num
      Selection.Bookmarks.Add Name:="number"
      Selection.Collapse wdCollapseStart
   Else
      MsgBox "Ошибка!Такой закладки нет"
   End If
   .PrintOut
End With
End Sub

Создаете Вкладку и кнопку для макроса.
Все. При нажатии этой кнопки документ будет печататься потом менять номер на единицу. Для печати следующего документа — нажмите кнопку еще раз.

Решение№2 для Excel.

Дело в том что в кладок в Excel нет!Вместо этого там адресация ячеек и по идее нужно это поменять условии if и вместо number везде должен быть адрес ячейки, но
как это сделать я пока не разобрался и сделал как проще!
1.Скопировал из Excel таблицу в Word как рисунок, предварительно удалив цифру которую нужно менять,
2.поставил рисунок в положение за текстом, растянул как нужно по странице,
3.цифру в word’е пробелами и табами подставил куда нужно поверх рисунка.

Ну а далее уже по инструкции для word.

Решение №3 для Excel.
Позже здесь будет нормальный макрос для Excel

 

Закладка Постоянная ссылка.

2 комментария

  1. Автору спасибо.

  2. рад что статья вам помогла

Комментарии закрыты