[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, просто надо будет
делать импорт через Органайзер
Здравствуйте!
Original Message > Часто использую WinWord (каждый день) так как работаю
верстальщиком в
работать с
Согласен с тем, что он прост и надежен, но у него есть
и очень существенные недостатки. Так, Office-95 не
может читать документы, созданные в более поздних
версиях, а это очень неудобно. Мне часто приходится
обмениваться материалами с разными издательствами,
и нигде 95-я версия уже давно не используется. Да и
некоторые другие приложения уже давно отказываются
работать с Office-95/97.