Zoom In & Zoom Out di Microsoft Word

Untuk perbesaran dokumen di Word sebenarnya sudah ada fitur zoom.
Namun untuk lebih mendetail dapat ditambah Zoom In dan Zoom Out.
Note: Tips ini khusus untuk Word 2000/2003/XP

a. Zoom In

- Buka Microsoft Word, Klik Tools, Macro, Visual Basic Editor
- Buat Modul baru (Insert, Module)
- Ketik:


Sub ZoomIn()


Dim ZP As Integer
ZP = Int(ActiveWindow.ActivePane.View.
Zoom.Percentage*1.1)
If ZP>200 Then ZP=200
ActiveWindow.ActivePane.View.Zoom.Percentage
=ZP


End Sub

b. Untuk Zoom Out Ketik:

Sub ZoomOut

Dim ZP As Integer
ZP=Int(ActiveWindow.ActivePane.View.Zoom.
Percentage*0.9)
if ZP<10 Then ZP=10
ActiveWindow.ActivePane.View.Zoom
Percentage=ZP

End Sub

-Klik Debug, Compile Project
-Tutup jendela VBE
-Klik Tools, Macro, Macros
-Klik opsi "Zoom In"/''ZoomOut'' pada daftar ''Organizer''
-Aktifkan Tab ''Macro Project Items'', copy ''Module1'' dari bagian kiri ke kanan, klik OK
-Buka Tools, Customize. Pada Tab ''Comments'' cari opsi ''Macros'' pada bagian ''Categories''
-Drag opsi ''Normal.Mode1.ZoomIn''/''Normal.Mode1.ZoomOut '' ke Menu bar
-Klik kanan shortcut tersebut, ubah namanya menjadi ''ZoomIn/ZoomOut pada bagian ''Name''
-Tutup ''Customize''