Отправляет email-рассылки с помощью сервиса Sendsay
  Все выпуски  

Microsoft Office - совет дня


Служба Рассылок Subscribe.Ru

Microsoft Office 2000 - Совет дня

Сайт (архив) Ведущий рассылки Степа

Макрос: таблица в текст

Если вы часто преобразовываете таблицы в документах Word'а в текст, вам пригодится макрос, который ускорит эту работу. Это очень короткий макрос, даже если вы не часто конвертируете таблицы в текст, он может заслужить ваше внимание.

Чтобы создать макрос, запустите Word и нажмите Alt + F11. В редакторе Visual Basic, щелкните папку "Modules" на левой панели (в верхней части), затем выберите Insert/Module и добавьте приведенный ниже код.

Sub Таблица()

Selection.Tables(1).Select
Selection.Rows.ConvertToText Separator:=wdSeparateByTabs, NestedTables:= _
True
Selection.style="ActiveDocument.Styles("Обычный")"
Selection.MoveDown Unit:=wdLine, Count:=1

End Sub

Нажмите Alt + Q чтобы вернуться в Word. Чтобы запустить макрос, щелкните таблицу, которую нужно конвертировать в текст, затем нажмите Alt + F8 и дважды щелкните "Таблица".

Рассылка Microsoft Windows - Совет дня

Короткие советы для продуктивного использования Windows.
Ваш e-mail:

Another Banner Network

http://subscribe.ru/
E-mail: ask@subscribe.ru
Отписаться
Убрать рекламу

В избранное