Недавно понадобилось удалить все нечетные строки в Excel. Быстренько был сделан следующий микро макрос:

i = 1
While Not Cells(i, 1) = “”
Rows(i).Delete
i = i + 1
Wend

Для удаления четных в начале для i достаточно задать начальное значение равное 2. В итоге несколько тысяч строк были удалены за несколько секунд.

После начала работы в Word 2007 (на работе лицензия на 2007-й офис) не обнаружил там очень полезной функции – Вставка рисунка со сканера или камеры, которая до этого всегда размещалась в меню Вставка->Рисунок.

Пришлось решить данную проблему написанием макроса:

Sub scan()

WordBasic.InsertImagerScan

End Sub

Потом навешиваем этот макрос на кнопку и дело в шляпе!