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

[Office] Поделимся опытом

Здравствуйте

Часто использую WinWord (каждый день) так как работаю верстальщиком в
редакции. Практически работаю в Office 95 - по моему мнению работать с
ним проще, быстрее.

Так вот, за время работы потихоньку писал макросы для облегчения
труда и чтоб побольше времени оставалось на игры :)
Думаю каждый бывалый Office-сист держит у себя макрос которым он
наиболее часто пользуется. Так поделимся ж опытом!

1. Замена нажатием Alt+Z. Бывает часто что приходится удалять один и тот
же текст (или набор символов) из разных частей документа (при верстке программы
телепередач - одна из
нудных задач). Я же просто выделяю текст и нажимаю Alt+Z.

Sub MAIN()
EditReplace Find:=Selection$(), Replace:="", Direction:=0, MatchCase:=1, WholeWord:=0,
PatternMatch:=0, SoundsLike:=0, ReplaceAll:=1, Format:=0, Wrap:=1, FindAllWordForms:=0
End Sub

Макрос привязываем к клавише Alt+Z.

2. Увеличение и уменьшения масштаба просмотра (два макроса ZoomUp и ZoomDown)
Как я уже говорил, я работаю верстальщиком и привык к клавитуре мне
показалось неудобным для увеличения масштаба лезть каждый раз мышкой в
панель и сотворил следующие два макроса

Sub MAIN()
Dim z$
Dim dlg As Object: Set dlg = DialogRecord.ViewZoom(False)
CurValues.ViewZoom dlg
z$ = Str(Val(dlg.ZoomPercent) + 10)
ViewZoom ZoomPercent:=z$
End Sub

Public Sub MAIN()
Dim z$
Dim dlg As Object: Set dlg = DialogRecord.ViewZoom(False)
CurValues.ViewZoom dlg
z$ = Str(Val(dlg.ZoomPercent) - 10)
ViewZoom ZoomPercent:=z$
End Sub

Для увеличения использую клавиши Ctrl+Shift+[,
а для уменьшения Ctrl+Shift+].

3. Печать текущей страницы. Часто приходится печатать текущую страницу
документа, а так как для печати используется комбинация Ctrl+P, то для
печати текущей страницы я нажимаю Ctrl+Shift+P (печать идет сразу, без
отображения диалога печати, так что вы не имеете возможности смены
принтера)

Sub MAIN()
FilePrint AppendPrFile:=0, Range:="2", PrToFileName:="", From:="", to:="", Type:=0,
NumCopies:="1", Pages:="", Order:=0, PrintToFile:=0, Collate:=1, FileName:=""
End Sub

4. Еще у меня есть макросы увеличение размера шрифта с клавиатуры,
замены по маске (для программ TV), выделения жирным времени в
программе TV и т.д.

Макросы успешно работают и в других версиях Office, просто надо будет
делать импорт через Органайзер

Ответить   Tue, 20 Jun 2006 13:40:02 +0400 (#562965)

 

Ответы:

Здравствуйте!

Original Message > Часто использую WinWord (каждый день) так как работаю
верстальщиком в

работать с

Согласен с тем, что он прост и надежен, но у него есть
и очень существенные недостатки. Так, Office-95 не
может читать документы, созданные в более поздних
версиях, а это очень неудобно. Мне часто приходится
обмениваться материалами с разными издательствами,
и нигде 95-я версия уже давно не используется. Да и
некоторые другие приложения уже давно отказываются
работать с Office-95/97.

Ответить   Tue, 20 Jun 2006 19:13:19 +0400 (#563096)